Codigo Visual basic .net 2008

ESTE CODIGO SIRVE PARA ALMACENAR UN CAMPO EN UNA BD DE SQLSERVER

Imports System.Data
Imports System.Data.SqlClient
Public Class Form3
Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
Dim cadena As String
cadena = "Data Source=user1;Initial Catalog=redsemantica;User ID=sa;Password=12345"
Dim Cn As New SqlConnection(cadena)
Dim Dr1 As SqlDataReader
Dim textosql1 As String
textosql1 = "Insert Into Nodos(Nom_N) Values('" & Me.txtNombre.Text & "')"
Dim cmd1 As New SqlCommand(textosql1, Cn)
Try
Cn.Open()
Dr1 = cmd1.ExecuteReader
MsgBox("Los datos se guardaron correctamente", MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "Mensaje")
Catch ExSql As SqlException
Dim mensaje As String
mensaje = ExSql.Number.ToString & " " & ExSql.Message
MsgBox(mensaje, 16, "Acceso denengado a la informacion")
Catch Ex As Exception
Dim mensaje1 As String
mensaje1 = Ex.Message
MsgBox(mensaje1, 16, "Verifique")
End Try
End Sub
End Class

Para insertar informacion de una bd en el combo

'copiar el codigo de arriba hasta aqui:
Dr1 = cmd1.ExecuteReader
Seguir con lo siguiente:
While Dr1.Read()
            Me.ComboBox1.Items.Add(Dr1(1))
End While

Para comparar con una contraseña:

Este codigo debe ir dentro del boton de Aceptar u OK, en el form de ingreso al sistema:

lo mismo que esta anteriormente, pero en la consulta sql debe estar asi:
textosql1 = "Select * From Usuarios Where Nombre = '" & Me.ComboBox1.Text & "'"
y luego del executereader deb ir:
Dr1 = cmd1.ExecuteReader
        If Dr1.FieldCount() = 3 Then
            Dr1.Read()
            aux = Dr1(2)
            If Me.TextBox1.Text = aux Then
                Me.Hide()
                Form2.Show()
            Else
                MsgBox("La contraseña no es correcta")
            End If
        Else
            MsgBox("No es un usuario del sistema")
        End If

Para insertar una pagina web en un form de visual basic .net
'Debe insertar en el form el componente webbrowser
Me.WebBrowser1.Navigate("c:\nombrecarpeta\nombrearchivo.htm")

ToolTipText de Visual Basic 6.0 cambia en visual Basic .Net

' Visual Basic 6.0
Button1.ToolTipText = "Saves changes"

' Visual Basic .NET
' Adds a ToolTip control (ToolTip1) to the form.
ToolTip1.SetToolTip(Button1, "Save changes")

Mover un objeto en VB .Net

Crear primero una variable publica:

dim contar as integer 

en el load del form insertar lo siguiente:

contar = 20

Me.Timer1.Enabled = True

Me.Timer1.Interval = 100

ahora en el timer insertar esto:

Private Sub Timer1_Tick() ......
        Me.Button1.Left = contar
        contar = contar + 10

End Sub

Recuerda siempre que el educarte significa seguir investigando dia 

a dia sin descanso. Hasta siempre. Proximamente estare editando

nuevo codigo.

Texto a Voz 

  Dim SAPI
        SAPI = CreateObject("sapi.spvoice")
        SAPI.Speak(Me.TextBox1.Text)  

VER UN VIDEO CON VISUAL BASIC .NET

Abre un proyecto de windows, y crea un formulario Windows.
Luego expande el cuadro de herramientas de controles.
Expande Componentes, ahi encontraras varios componentes como timer, serialport, etc.
Haz clic Derecho y selecciona ELEGIR ELEMENTOS...

Se abrirá un cuadro de dialogo en el que puedes escoger elementos del 
FrameWork o Componentes COM, para nuestro caso haz clic en la ficha 
componentes COM
Busca el llamado Windows Media Player y seleccionalo.
Entonces aparecerá en la opción componentes el Media Player en cuestión y lo arrastras a tu formulario.
Verás una cuadro con la forma típica del windows media player (la pantalla 
negra y los controles), puedes modificar algunas propiedades del mismo 
haciendo clic derecho y escogiendo propiedades.

ahora bien si quieres abrir programaticamente un archivo y luego reproducirlo podemos hacerlo facilmente.
que tal si colocamos un botón el cual al presionarlo mostrará el cuadro de 
dialogo abrir archivo y luego lo reproducirá en nuestro formulario.

coloca el siguiente codigo en el evento clic del botón.

Dim OpenFileDialogo As New OpenFileDialog
Dim Archivo As String
If OpenFileDialogo.ShowDialog = Windows.Forms.DialogResult.OK Then
'En Archivo tenemos el archivo con ruta completa a reproducir
Archivo = OpenFileDialogo.FileName

'Ahora vamos a reproducirlo en nuestro control Windows Media Player
'Esto lo hacemos de forma sencilla en la propiedad URL colocamos la ruta del archivo a abrir
'Luego invocamos el método play
Try
Me.AxWindowsMediaPlayer1.URL = Archivo
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
Catch ex As Exception
MessageBox.Show("No se puede reproducir el archivo, pruebe con otro")
End Try
End If