Tecnologia 3g

Solo disponible en BuenasTareas
  • Páginas : 6 (1273 palabras )
  • Descarga(s) : 0
  • Publicado : 9 de septiembre de 2010
Leer documento completo
Vista previa del texto
El siguiente ejemplo evita que se digite un número:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal _
e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If IsNumeric(e.KeyChar) Then e.Handled = True
End Sub

El siguiente ejemplo válida que la entradaunicamente acepte números (permite borrar la entrada):

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal _
e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
REM If IsNumeric(e.KeyChar) Then e.Handled = True
If (Asc(e.KeyChar)) >= 48 And (Asc(e.KeyChar)) <=57
Or (Asc(e.KeyChar)) = System.Windows.Forms.Keys.Back Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

El siguiente ejemplo válida que la entrada unicamente acepte letras (permite borrar la entrada):Private Sub txtLetras_KeyPress(ByVal sender As Object, ByVal _
e As System.Windows.Forms.KeyPressEventArgs) Handles txtLetras.KeyPress
If (Asc(e.KeyChar)) >= 65 And (Asc(e.KeyChar)) <= 90 Or _
(Asc(e.KeyChar)) >= 97 And (Asc(e.KeyChar)) <= 122 Or _
(Asc(e.KeyChar)) =System.Windows.Forms.Keys.Back Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

Manipulación de Cadenas
* El método Concat hace posible concatenar cadenas de texto.
* Utilice la función UCase o método ToUpper, para convertir una cadena a mayúsculas.* Utilice la función LCase o método ToLower, para convertir una cadena a minúsculas.
* Utilice la función Len o método Length, para determinar el número de caracteres que tiene una cadena.
* Utilice la función Mid o método Substring, obtiene un número fijo de caracteres a partir de una posición dada de una cadena. (El primer elemento de una cadena tiene el índice 0).
* Utilicela función InStr o método IndexOf, si una cadena se encuentra contenida en otra regresa la posición a partir de la cual encontro la cadena.
* Utilice la función Trim o método Trim, elimina los caracteres en blanco iniciales y finales de una cadena.
* Utilice el método Remove, para eliminar caracteres de la parte central de una cadena.
* Utilice el método Insert, para agregarcaracteres a la parte central de una cadena.
* Utilice la función StrCmp, compara cadenas y detecta diferencias en el uso de mayúsculas y minúsculas, regresa los siguientes valores:
* -1, sorts ahead
* 0, las cadenas son iguales
* 1, sorts after
Ejemplo:
Dim s As String
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) _
Handles MyBase.Load
lblTitulo.Text = s.Concat(" ", "www", ".", "informatique", ".", "com", ".", _
"mx", " ", "Tutoriales de Programación ")
End Sub

Private Sub btnLower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles btnLower.Click
txtOut.Text = lblTitulo.Text.ToLower
End Sub

Private Sub btnUpper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnUpper.Click
txtOut.Text = lblTitulo.Text.ToUpper
End Sub...
tracking img