LabelEs una etiqueta y sus principales propiedades son: Name: Indica el nombre del componente. Text: Indica el texto que se visualiza en la etiqueta.

EjemplosUtiliza en un formulario de tu aplicacin de ejemplo el elemento Label.

Definicin de variablesUna variable es una posicin de memoria de un determinado tipo que almacena informacin de su tipo correspondiente. A dicha posicin de memoria se accede a travs del nombre de la variable. Para definir variables se utiliza se realiza de la siguiente forma: Dim n As Integer para definir una variable n de tipo entero. Dim n As Double para definir una variable n de tipo real Dim n As String para definir una variabe n de tipo cadena de texto.Nombres de las variablesLos nombres de las variables deben empezar por una letra y a continuacin pueden ir letras o nmeros. Visual Basic .NET no hace distincin entre maysculas y minsculas.Una palabra no puede ser una palabra reservada del lenguaje Visual Basic .NET. Se pueden definir varias variables del mismo tipo en una solo lnea.Ejemplo:Dim n1, n2, n3 As Integern3=n1+n2 Se suma el contenido de las variables n1 y n2 y se guarda el resultado en la variable n3.Entrada y salida de informacinAprenderemos a utilizar dos instrucciones mediante las cuales la aplicacin muestra mensajes por pantalla o hace que el usuario del programa pueda introducir valores. Los comandos a los que nos referimos son MSGBOX e INPUTBOX, respectivamente.MsgboxLa instruccin MSGBOX permite mostrar en pantalla el contenido de un mensaje indicado por el programador.Un ejemplo de lnea de cdigo con este comando sera el siguiente:MSGBOX BUENOS DIAS

InputboxAl igual que MSGBOX, la instruccin INPUTBOX muestra una ventana en pantalla. La diferencia reside en que la ventana en cuestin servir para pedirle al usuario del programa la introduccin de un valor. Un ejemplo de lnea de cdigo que utilice este comando sera el siguiente:n=INPUTBOX(Introduce un valor del 1 al 10)

InputBoxAl igual que MSGBOX, la instruccin INPUTBOX muestra una ventana en pantalla. La diferencia reside en que la ventana en cuestin servir para pedirle al usuario del programa la introduccin de un valor. Un ejemplo de lnea de cdigo que utilice este comando sera el siguiente:Ejemplosn=INPUTBOX(Introduce un valor del 1 al 10)

Programacin orientada a eventosVisual Basic es un entorno de programacin orientado a eventos. Esto significa que podemos escribir cdigo de manera que este se ejecutar en cuanto se produzca una determinada accin o evento: clic sobre un botn, doble clic sobre un botn o sobre el fondo de un formulario, carga inicial de un formulario, descarga de un formulario, etc.Cada control que utilizamos en Visual Basic (botn, caja de texto, checkbox, etc.) tiene asociado una serie de eventos, los cuales no siempre sern los mismos para todos los controles.La forma de insertar cdigo a un determinado evento de un control consistir en, desde el editor de cdigo de ese control, seleccionar en la parte superior derecha del mismo el nuevo evento y, a continuacin, escribir el cdigo del programa correspondiente. El evento clic sobre un botn es uno de los ms importantes, en este Apartado nos limitaremos a comentar la utilidad y funcionamiento de dos de ellos, asociados al objeto formulario: LOAD y CLOSED.Tratamiento de bases de datos SQL ServerEl tratamiento de base de datos SQL Server es muy similar al utilizado en Access lo nico que hay que utilizar otros componentes para SQL Server. Estos componentes se encuentran en el cuadro de herramientas en el apartado Datos y son: SqlConnection: Habra que definir la propiedad ConnectionString utilizando el asistente para crear una conexin nueva y eligiendo como proveedor el Microsoft OLE DB Provider for SQL Server y seleccionando el nombre del servidor SQL Server, y la base de datos deseada con las opciones de seguridad adecuadas. Al final podemos probar la conexin y pulsar el botn Aceptar.

Realizacin de consultas mediante el lenguaje SQL en SQL ServerA continuacin mostraremos el cdigo necesario para lanzar una consulta en SQL Server que elimine el registro deseado de la tabla Alumnos: Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click Dim cmd As New SqlClient.SqlCommand SqlConnection1.Open() cmd.Connection = SqlConnection1'El delete sin el * porque sino en el SQL SERVER no funciona cmd.CommandText = "delete from Alumnos where IdAlumno=" & Val(txtID.Text) cmd.CommandType = CommandType.Text cmd.ExecuteReader() MsgBox("Se ha eliminado el registro") SqlConnection1.Close()End SubEjemplosRealiza diversas consultas en tu aplicacin que se conecte a una base de datos en SQL Server.

SqlDataAdapter: Seguimos el asistente y lo vinculamos a la conexin a la base de datos que hemos creado anteriormente. Le damos a siguiente y elegimos la opcin por defecto Usar instrucciones SQL. Generamos una consulta SELECT con lo que queremos visualizar. Se generan las instrucciones SELECT, INSERT, UPDATE y DELETE. DataSet: Creamos un conjunto de datos con tipo (DataSet11) y generamos los datos para este dataset11 en las opciones del men Datos-> Generar conjunto de datos y lo asociamos con el SqlDataAdapter1 creado anteriormente SqlCommand: Es el que nos permite la ejecucin de consultas en lenguaje SQL utilizando el modo conectado (Dim cmd As New SqlClient.SqlCommand) y rellenando las propiedades: Connection, CommandText (con la consulta adecuada), CommandType y ejecutando la consulta con el mtodo ExecuteReader().EjemplosRealiza una aplicacin que se conecte a una base de datos en SQL Server.

Cuestionario bsico UNAS PREGUNTAS TIPO TEST !!! Principio del formulario1) Cmo se definen las variables? Con Dim.Con MsgBox.Con InputBox.

2) Qu instruccin muestra por pantalla el contenido de un mensaje? If .MsgBox .For .

3) Cul de las siguientes instrucciones es un bucle? If .Else .For .

4) Cul es el evento que se activa justo antes de mostrase en pantalla un formulario?. LOAD .CLOSED .CLICK .

5) Una Label es una.... Es una casilla de verificacin.Es una etiqueta .Es un cuadro de texto .

Final del formulario

Cuestionario avanzado MAS PREGUNTAS TIPO TEST !!! Principio del formulario1) Para trabajar con los datos de una tabla se utiliza... MainMenu .DataGrid.ComboBox.

2) Con bases de datos Access se utiliza... OleDbConnection.SqlConnection .AccessConnection .

3) Con bases de datos SQL Server se utiliza... OleDbConnection.SqlServerConnection .SqlConnection .

4) Donde va el cdigo SQL de la consulta?. cmd.Connection.cmd.CommandText.cmd.CommandType.

5) Con bases de datos SQL Server se utiliza... OleDbCommand.ServerCommand..SqlCommand.

Final del formulario

Activividades bsicas AQU LAS TIENES!!! 1. Cmo definiras lo que es un proyecto de Visual Basic?2. Acabas de realizar un proyecto en Visual Basic constituido por dos formularios. A la hora de guardarlo, cuntos archivos debers conservar?3. Qu es un evento? Define este trmino con tus propias palabras y pon un ejemplo.4. Qu son y para que sirven las propiedades de un objeto? Ilustra tu explicacin con un ejemplo.5. Para qu sirve la instruccin MSGBOX? Pon un ejemplo.6. Para qu sirve la instruccin INPUTBOX? Apyate en un ejemplo para definir el trmino.7. Para qu sirve la instruccin DIM? Pon un ejemplo.8. Para qu sirve la instruccin IF? Explcalo con tus propias palabras e incluye un ejemplo.9. Para qu sirve la instruccin ELSE? Pon un ejemplo.10. Para qu sirve la instruccin FOR? Apyate en un ejemplo para definir el trmino.11. Para qu sirve la instruccin WHILE? Pon un ejemplo.12. En qu consiste un evento LOAD de un formulario? En qu casos sera conveniente escribir, en este lugar, cdigo Visual Basic?Activividades avanzadas AQU LAS TIENES!!! 1. Qu es VBA? Define el trmino e incluye un ejemplo ilustrativo.2. Qu es y para que se puede utilizar VBScript?3. Qu utilidad tiene el apartado Declaraciones/General de un formulario?4. Utiliza la ayuda de Visual Basic para obtener informacin acerca de las instrucciones FOR y WHILE, las cuales posibilitan la creacin de bucles.Una vez estudiado su funcionamiento, haz un clic sobre el enlace que permite acceder a un ejemplo de programa y prueba a copiarlos y pegarlos en un programa Visual Basic para comprobar el funcionamiento de estas dos instrucciones.5. Qu es y en qu casos sera conveniente usar et evento UNLOAD de un formulario?6. Qu instruccin utilizaras para finalizar un programa en Visual Basic?7. Qu opcin elegiras para poner en funcionamiento el editor de mens de Visual Basic?8. Qu opcin seleccionaras para agregar un nuevo formulario a un proyecto?9. En un proyecto constituido por ms de un formulario, cmo haras para, desde un formulario, llamar a otro formulario?10. Para qu sirve y cmo configuraras el control DBGrid?11. Qu es y para qu se puede utilizar una variable de tipo Database?12. Especifica los pasos que seguiras para dar de alta nuevos registros en una tabla.13. Explica, mediante un ejemplo, como borraras registros en una tabla mediante la sentencia DELETE de SQL.14. Escribe el cdigo necesario que permita la modificacin de los registros de una tabla.Control TextBox - Caja de textoEl control TextBox o Caja de texto se utiliza para Ingresar y/o visualizar Texto ( es un control de entrada de datos )

Si en nuestros programas no vamos a introducir Texto, me refiero a solo mostrarlo, valores etc..., es preferible y mas lgico utilizar un control Label en cambio de un control TextBox , ya que consume menos recursosLa propiedad principal de este control se llama Text. Mediante ella podemos asignarle un texto ya sea en tiempo de diseo o tiempo de ejecucin al control. Si es en tiempo de diseo, debemos seleccionar el TextBox e ir a la ventana de propiedades y seleccionar Text. Dentro de ella podemos escribir el texto a ser mostrado. Si es en tiempo de ejecucin debemos escribir el nombre de el TextBox que queremos y al presionar el punto ".", vb despliega la lista de propiedades y mtodos del TextBox, y ah seleccionamos Text

Por ejemplo si quiero mostrar un texto en un control llamado Text1 se hara de esta forma:Private Sub Form_Load()

Text1.Text = "Un texto cualquiera"

End SubSi quisiera mostrar el contenido de un control Label llamado Label1 en un control llamado text1 se hara as:Private Sub Form_Load()

Text1.Text = Label1.Caption

End SubNota , no es necesario escribir la propiedad Text seguida del nombre del control, ya que la propiedad Text es la propiedad por defecto, y Vb se dara automticamente cuenta que al no poner ninguna propiedad la asuma como tal, por ejemplo esto es vlido:Private Sub Form_Load()

Text1 = "Un texto cualquiera"

End SubEsto de las propiedades por defecto lo tienen la mayora de los controles, pero cada control tiene la suya, por ejemplo la propiedad default de un control Label es Caption, por lo que no es necesario escribirla, y Visual Basic no dara error:Private Sub Form_Load()

Label1 = "Hola"

End SubPara un control Picture, la propiedad Picture es la que est establecida por defecto, y esto tampoco dara error y cargara una imagen perfectamente en el control sin indicar explcitamente la propiedad.Private Sub Form_Load()

Picture1 = LoadPicture("la ruta de una imagen")

End SubPropiedad MultilineLa propiedad Multiline o multilinea se utiliza para poder mostrar los saltos de carro o saltos de lnea y que el texto se vea en varias y no todo en un nica lnea. Los valores que posee son True que est activada y en False quiere decir que est deshabilitada. Por defecto cuando aadimos un TextBox, la propiedad est en False, osea que tenemos que indicarle nosotros a vb, ya sea desde la ventana de propiedades ponindola en true. Una cosa importante es que esto no lo podemos cambiar en tiempo de ejecucin mediante cdigo, si o si hay que establecerla desde la ventana de propiedades, ya que es una propiedad de solo lectura.Propiedad PasswordCharEsta propiedad tiene la funcin de ocultar el verdadero contenido del TextBox por el caracter que le indiquemos, por ejemplo los TextBox de ingresos de contrasea, donde el texto se oculta pero no se pierde, solo impide visualizarlo:

Nota : para establecer el caracter a mostrar solo debemos indicarlo en la propiedad PasswordChar, pero solo funciona cuando la propiedad Multiline del Text est en False.Propiedad ScrollBarsEsta propiedad permite que el TextBox tenga o no tenga barras de Scroll cuando el texto sea superior a las dimensiones de la caja de texto. Los valores que puede tener son: 0 indica que el textBox no mostrar Barras de desplazamiento, en 1 Solo barra Horizontal, 2 Solo barra Vertical y 3 ambas barras de desplazamiento. En esta imagen se ve un TextBox con la propiedad Scrollbars en 2, solo Vertical

Propiedad LockedEsta propiedad lo que hace es impedir que se pueda escribir en el TextBox, bloqueando la entrada de datos. Esta propiedad puede tener el Valor True o False, habilitado para el primero y False para el segundo. Por defecto est deshabilitada, es decir en FalsePropiedad MaxlengthLa propiedad MaxLength se usa para limitar la cantidad de caracteres que se podrn ingresar. Por ejemplo si en el TextBox tuviesemos el texto "Domingo" y hacemos esto:Private Sub Command4_Click()Text1.Text = "Domingo"Text1.MaxLength = 3End SubEl texto "Domingo" se podr visualizar pero si intentamos escribir en la caja de texto, no se podr ingresar mas de 3 caracteres. Es decir la propiedad recibe un nmero que identifica la longitud mxima permitida de letras a ingresar.Propiedad SelStart y SelLengthLa primera lo que hace es devolver o establecee el punto inicial del texto seleccionado. en cambio SelLength devuelve o establece el nmero de caracteres seleccionados.El siguiente ejemplo utiliza estas dos propiedades, en conjunto con la propiedad Len de visual basic, para que al persionar la tecla Ctrl+A, se seleccione todo el contenido del TextBox

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 1 Then Text1.SelStart = 0 'Selecciona Todo el contenido de la caja de texto Text1.SelLength = Len(Text1.Text) End IfEnd SubAlgunos ejemplos del Uso del control TextBoxSupongamos que quisieramos mostrar el contenido de un Text1 en un Text2, cuando presionamos un Command1, haramos asi:

Private Sub Command1_Click()'Copiamos el texto de Text1 en el Text2Text2 = Text1End SubSi quisieramos cambiar el color de fondo (propiedad Backcolor) del TextBox para que sea igual al color de fondo del formulario haramos asi:

Private Sub Command1_Click()'Le asignamos el mismo color al textbox que el que tiene el formulario _utilizando la propiedad BackcolorText1.BackColor = Me.BackColorEnd SubEste simple ejemplo lo que hace es cuando se escribe en el Text1, automticamente se imprime el mismo texto en un Text2. Para esto usamos el evento Change que significa cambio, es decir se ejecutar cada vez que el text1 cambie el contenido. Agregar 2 Text, text1 y Text2, pegar lo siguiente y luego escribir un texto en el Text1.Private Sub Text1_Change()'Le establecemos el contenido de Text1 en el control Text2Text2 = Text1End Sub Este ejemplo lo que hace es cambiarle el color al fondo del control text en negro, el color de la fuente en verde, el tamao de la fuente, establecerla en negrita, y luego le asigna un texto "hola mundo". Colocar un Command1 y un Text1

Private Sub Command1_Click()With Text1

.ForeColor = vbGreen.BackColor = vbBlack.FontSize = 12.FontBold = True.Text = " Hola Mundo"

End WithEnd SubHacer que un textBox admita solo nmeros y algunos otros caracteres indicadosEl siguiente ejemplo muestra como hacer , comprobando en el eventos KeyPress de un textbox, el valor del parmetro Keyascii, para que solo admita nmeros, la coma, el punto y la tecla de retroceso. Cualquier otro valor que no sea estos, el mismo retornar el valor 0.Colocar un Text1 y el siguiente cdigo en el formulario: Option Explicit

Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Verificar_Tecla(KeyAscii)End Sub

Function Verificar_Tecla(Tecla_Presionada) Dim Teclas As String 'Acepta todos los nmeros, la tecla Backspace, _ la tecla Enter, la coma y el punto Teclas = "1234567890.," & Chr(vbKeyBack) If InStr(1, Teclas, Chr(Tecla_Presionada)) Then Verificar_Tecla = Tecla_Presionada Else ' Si no es ninguna de las indicadas retorna 0 Verificar_Tecla = 0 End If

End Function

Esta funcin tambin puede ser utilizada en otros controles de entrada de datos, como por ejemplo los ComboBox, y la ventaja de utilizarlo, es que si tenemos muchos textbox o controles a los cuales deseamos verificar las teclas presionadas, no tenemos que escribir y repetir cdigo en todos ellos, solo asignando al valor KeyAscii el valor retornado por la fuincin, para que el mismo acepte o no dichas teclasNota: tambin hay una funcin de visual basicllamada IsNumeric, para poder determinar si un valor es un nmeroEjemplo para cargar el contenido de un archivo de texto en un TextBox MultilineEste simple ejemplo carga en un control textBox el contenido de un archivo seleccionado de tipo txt. El control tiene la propiedad Multiline en True y la propiedad ScrollBar en Both.Nota: en este enlace hay una descripcin bsica de las funciones de visual basic para el tratamiento de archivos, leer, guardar etc...

Colocar en un formulario un control Commondialog , un control textBox y un control Command1:Nota: al control textBox en la propiedadMultiline colocarle true y tambin establecerle los ScrollBarCdigo fuente en el formulario:Private Sub Command1_Click()With CommonDialog1 .DialogTitle = " Seleccionar archivo" .Filter = "Archivos txt|*.txt" ' abre el cuadro de dilogo para seleccionar el txt .ShowOpen If .FileName = "" Then Exit Sub 'Carga el archivo en el control Cargar_Txt .FileName End WithEnd Sub

Private Sub Form_Load()Command1.Caption = " Abrir archivo txt"End Sub

Sub Cargar_Txt(path As String)Dim linea As StringIf path = vbNullString Then Exit Sub Text1 = "" Open path For Input As #1

While Not EOF(1) 'Lee la linea del archivo Line Input #1, linea 'La carga en el textbox Text1 = Text1 & linea Wend 'Cierra el archivo abierto Close End SubRedimensionar un TextBox al ancho y alto del formularioEste ejemplo simple lo que hace es que al redimensionar el formulario, o maximizarlo, el ancho y alto del control text, se adapte al ancho y alto del la ventana. Para ello el cdigo debe estar ubicado en el evento Resize del formulario, y para redimensionar el textbox ( o cualquier otro control) se utiliza el mtodo MoveEjemplo:Private Sub Form_Resize()

'Primer y segundo parmetro es el valor Left y Top

'Parmetro 3 y 4, el ancho y alto del text _ que en este caso es el ancho y alto del formulario

Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeightEnd Sub

Cambiar color de bordeEl textbox no tiene ninguna propiedad para cambiar el color de borde . El siguiente ejemplo muestra una forma simple de como simular esto utilizando controles Shape, como muestra la siguiente imagen donde los textbox son parecidos a los de estilo de windows xp

En el ejemplo, se recorren todos los controles del formulario mediante un bucle For each. Luego, se van creando los dems controles Shape en tiempo de ejecucin, uno para cada textbox , usando el mtodo Load que permite crear los controles en tiempo de ejecucin a partir de uno que est agregado en el formulario formando un array de controlesControlesColocar en el formulario, un control Shape. Al control Shape especificarle en la propiedad Index el valor 0 pra formar el array de shapeLuego agregar algunos textbox en el formularioCdigo fuente en el formulario' Posiciona el shape junto al textbox para simular el bordeSub Aplicar_Borde(Shape As Object, color_Borde As Long) ' Variable para recorrer todos los controles del formulario Dim el_Control As Object 'Recorre todos los controles For Each el_Control In Me ' .. si el control es un textbox If TypeOf el_Control Is TextBox Then Dim i As Integer 'Si el Textbox est dentro de un contenedor, _ como un frame o picturebox, coloca el Shape _ dentro del mismo contenedor Set Shape(i).Container = el_Control.Container 'Propiedades para el shape Shape(i).BackStyle = 0 ' Fondo transparente Shape(i).BorderStyle = 1 ' Borde slido Shape(i).BorderWidth = 1 ' 0 Grosor del borde ' Ancho, alto, pos x y po y del shape Shape(i).Top = el_Control.Top - 10 Shape(i).Left = el_Control.Left - 10 Shape(i).Width = el_Control.Width + 30 Shape(i).Height = el_Control.Height + 30 ' Estilo flat para el extbox el_Control.Appearance = 0 ' Le quitamos le borde al textbox el_Control.BorderStyle = 0 ' color del borde del shape Shape(i).BorderColor = color_Borde ' Lo hacemos visible Shape(i).Visible = True i = i + 1 ' Crea un shape en forma dinmica Load Shape(i) End If NextEnd Sub

Private Sub Form_Load() Call Aplicar_Borde(Shape1, &H8000000D)End SubNota. en este enlace hay un ejemplo para crear un listbox con borde personalizado tambin usando un control shapePasar el foco entre Textbox al presionar la tecla enter Este ejemplo muestra una forma de poder, al presionar la tecla enter, pasarle el foco al siguiente textbox. Como en el ejemplo se utiliza la funcin SendKeys para enviar la pulsacin de la tecla Tab, el control que reciba el enfoque lo determinar la propiedad TabIndexAgregar un arreglo de controles textbox, por ejemplo Text1(0), Text1(1), Text1(2) etc...

Cdigo fuente en el formularioSub PasarFoco(KeyCode As Integer) ' si es la tecla enter ...

If KeyCode = 13 Then ' enva la pulsacin de tecla Tab y pasa el foco _ a la siguiente caja de texto SendKeys "{TAB}" End IfEnd Sub

Private Sub Form_Load()

Dim i As Integer ' recorre la matriz de textbox For i = 0 To Text1.Count - 1 ' le especifica la propiedad tabIndex Text1(i).TabIndex = i + 1 Next End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) ' anvia como parmetro el valor del cdigo de la tacla Call PasarFoco(KeyAscii)End Sub

Borrar todos los textbox de un formularioSi queremos eliminar el contenido de todas las cajas de texto de un formulario, podemos utilizar un bocle For Each y el operador Type OfEjemplo:La rutina LimpiarTextBox, recibe como parmetro el formulario, por ejemplo para limpiar todo el contenido de todas las cajas de texto que hay en el el formulario actual, se ejecutara la rutina de la siguiente forma:Call LimpiarTextBox(Me)Colocar en el formulario, un CommandButton y varios controles TextBox Cdigo fuente en el Form Option Explicit

' recibe como argumento el formulario''''''''''''''''''''''''''''''''''''''''''''''''''''''Public Sub LimpiarTextBox(frm As Form) ' recorre todos los controles que hay en el formulario For Each Control In frm.Controls ' verifica que el control es de tipo TextBox If TypeOf Control Is TextBox Then '... Si es un Textbox, entonces lo limpia Control.Text = "" End If NextEnd Sub

' botn que limpia todos los textbox'''''''''''''''''''''''''''''''''''''Private Sub Command1_Click() Call LimpiarTextBox(Me)End Sub Enlaces relacionados Control ocx para textbox estilo windows xp Aplicar temas de xp con un archivo manifest Ocx para cambiar de color al perder el foco

1 - Textbox que admite solo letrasCdigo fuente en un form con un textbox1 Texto planoCopiar cdigo fuenteImprimir1. PrivateSubTextBox1_KeyPress(ByValsenderAsObject,_2. ByValeAsSystem.Windows.Forms.KeyPressEventArgs)_3. HandlesTextBox1.KeyPress4. 5. IfChar.IsLetter(e.KeyChar)Then6. e.Handled=False7. ElseIfChar.IsControl(e.KeyChar)Then8. e.Handled=False9. ElseIfChar.IsSeparator(e.KeyChar)Then10. e.Handled=False11. Else12. e.Handled=True13. EndIf14. EndSub

Textbox que admite solo nmeros o caracteres que quiera: (Esta es una forma que descubr guiandome de el cdigo de vb6, y est bien cortito).Cdigo fuente en el formulario con un textbox1Texto planoCopiar cdigo fuenteImprimir1. PrivateSubTextBox1_KeyPress(ByValsenderAsObject,_2. ByValeAsSystem.Windows.Forms.KeyPressEventArgs)_3. HandlesTextBox1.KeyPress4. IfInStr(1,"0123456789,-"&Chr(8),e.KeyChar)=0Then5. e.KeyChar=""6. EndIf7. EndSub

Enlace relacionado : Ingresar solo nmeros en DatagridView

2 - Cambiar el foco al otro textbox al presionar enter Colocar varios varios controles textbox y el siguiente cdigoTexto planoCopiar cdigo fuenteImprimir1. PrivateSubTextBox1_KeyPress(ByValsenderAsObject,_2. ByValeAsSystem.Windows.Forms.KeyPressEventArgs)_3. HandlesTextBox1.KeyPress4. Ife.KeyChar=ChrW(Keys.Enter)Then5. e.Handled=True6. SendKeys.Send("{TAB}")7. EndIf8. EndSub

3 - Seleccionar todo el texto del control al recibir el foco con el mtodo SelectAllTexto planoCopiar cdigo fuenteImprimir1. PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,_2. ByValeAsSystem.EventArgs)_3. HandlesTextBox1.TextChanged4. TextBox1.SelectAll()5. EndSub6. 7. PrivateSubForm1_Load(ByValsenderAsSystem.Object,_8. ByValeAsSystem.EventArgs)_9. HandlesMyBase.Load10. TextBox1.Text="Untexto"11. EndSub

4 - Evitar el BEEP al apretar EnterTexto planoCopiar cdigo fuenteImprimir1. PrivateSubTextBox1_KeyPress(ByValsenderAsObject,_2. ByValeAsSystem.Windows.Forms.KeyPressEventArgs)_3. HandlesTextBox1.KeyPress4. Ife.KeyChar=Convert.ToChar(Keys.Return)Then5. e.Handled=True6. EndIf7. EndSub

5 - Maysculas y minsculas con Upper y LowerTexto planoCopiar cdigo fuenteImprimir1. 'Maysculas2. PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,_3. ByValeAsSystem.EventArgs)_4. HandlesTextBox1.TextChanged5. TextBox1.CharacterCasing=CharacterCasing.Upper6. EndSub7. 8. 'Minusculas:9. 10. PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,_11. ByValeAsSystem.EventArgs)_12. HandlesTextBox1.TextChanged13. TextBox1.CharacterCasing=CharacterCasing.Lower14. EndSub

6 - Guardar el texto de un textbox en un archivo .txtColocar un control ButtonTexto planoCopiar cdigo fuenteImprimir1. PrivateSubButton1_Click(ByValsenderAsSystem.Object,_2. ByValeAsSystem.EventArgs)_3. HandlesButton1.Click4. 'Creaelarchivo5. FileOpen(1,"c:\texto.txt",OpenMode.Output)6. 'escribeelcontenido7. Write(1,TextBox1.Text)8. FileClose(1)'locierra9. EndSub

7 - ReadLine - Leer lineas de un archivo de textoEjemplo enviado por Xkiz que lee desde un fichero .txt (ubicado en la carpeta debug ) todas las lineas y las visualiza en unos controles textboxDescargarFormulario que mediante un botn abre un dilogo para seleccionar un archivo de texto, y leer mediante el mtodo ReadLine del objeto StreamReader, todas las lneas y visualziarlas en un control textBoxColocar un control textbox multilinea, un control button y un control openFileDialogTexto planoCopiar cdigo fuenteImprimir1. OptionStrictOn2. 'espaciodenombreparapoderusarStreamReader3. ImportsSystem.IO4. 5. PublicClassForm16. 7. PrivateSubForm1_Load(ByValsenderAsSystem.Object,_8. ByValeAsSystem.EventArgs)_9. HandlesMyBase.Load10. Button1.Text="Abrirarchivo"11. EndSub12. 13. FunctionLeer(ByValpathAsString)AsString14. Try15. DimoSRAsStreamReader=NewStreamReader(path)16. 17. DimlAsString18. DimtempSTRAsString=""19. 'leelaprimerlnea20. l=oSR.ReadLine()21. WhileNotlIsNothing22. 'variabletemporalquealmacenalaslneas23. tempSTR=tempSTR&l&vbNewLine24. l=oSR.ReadLine()'leelasiguiente25. EndWhile26. 'cierrayliberalosrecursos27. oSR.Close()28. oSR.Dispose()29. 'retornaeltexto30. ReturntempSTR31. 'errores32. CatchoeAsException33. Return""34. MsgBox(oe.Message)35. EndTry36. 37. EndFunction38. 39. PrivateSubButton1_Click(ByValsenderAsSystem.Object,_40. ByValeAsSystem.EventArgs)_41. HandlesButton1.Click42. WithOpenFileDialog143. .FileName=""44. .Filter="Archivosdetexto*.txt|*.txt|Todos*.*|*.*"45. 'abreeldilogoparaseleccionararchivoeldetexto46. .ShowDialog()47. 48. If.FileName""Then49. TextBox1.Text=Leer(.FileName)50. EndIf51. EndWith52. EndSub53. EndClass

8 - Mtodo ReadToEnd - Leer todo el contenido de un archivo de texto y visualizarlo en un texbox( controles : Un control Button , un textBox1 Multiline )Texto planoCopiar cdigo fuenteImprimir1. OptionExplicitOn2. OptionStrictOn3. ImportsSystem.IO4. 5. PublicClassForm16. 7. PrivateSubForm1_Load(_8. ByValsenderAsSystem.Object,_9. ByValeAsSystem.EventArgs)HandlesMyBase.Load10. Me.Text="EjemplodelmtodoReadToEnd"11. Button1.Text="Abrirarchivodetexto"12. EndSub13. 14. PrivateSubButton1_Click(_15. ByValsenderAsSystem.Object,_16. ByValeAsSystem.EventArgs)HandlesButton1.Click17. 18. 'nuevodilogo19. DimOpenFiledlgAsNewOpenFileDialog20. WithOpenFiledlg21. .Title="Seleccionararchivodetexto"22. .Filter="Archivosdetexto*.txt|*.txt"23. Try24. If.ShowDialog=Windows.Forms.DialogResult.OKThen25. DimdatosAsNewStreamReader(.FileName)26. 'leetodoelcontenidoyloasignaaltextbox27. TextBox1.Text=datos.ReadToEnd28. datos.Close()'cierra29. EndIf30. 'error31. CatchoMenAsException32. MsgBox(oMen.Message,MsgBoxStyle.Critical)33. EndTry34. EndWith35. EndSub36. EndClass

9 - Limpiar todo el contenido de los textbox de un formularioEjemplo que recorre mediante un bucle For Each todos los objetos Textbox que se encuentran en el form indicado para eliminar el contenidoAgregar algunos TextBox, un ButtonTexto planoCopiar cdigo fuenteImprimir1. ImportsSystem.Windows.Forms2. 3. PublicClassForm14. 5. PrivateSubLimpiar_Cajas(ByValfAsForm)6. 'recorrertodosloscontrolesdelformularioindicado7. ForEachcAsControlInf.Controls8. IfTypeOfcIsTextBoxThen9. c.Text=""'eliminareltexto10. EndIf11. Next12. EndSub13. 14. PrivateSubButton1_Click(_15. ByValsenderAsSystem.Object,_16. ByValeAsSystem.EventArgs)HandlesButton1.Click17. 'pasarelformulario18. CallLimpiar_Cajas(Me)19. 20. EndSub21. 22. PrivateSubForm1_Load(_23. ByValsenderAsSystem.Object,_24. ByValeAsSystem.EventArgs)HandlesMyBase.Load25. Button1.Text="LimpiartextBox"26. EndSub27. EndClass