Tecnología

Inicio

Cómo acceder a Cuadro de texto truncar los datos de

Cómo acceder a Cuadro de texto truncar los datos de


Tener el conocimiento para manipular los datos introducidos por los usuarios en los controles de cuadro de texto puede hacer su aplicación más dinámica. Un lenguaje de programación utilizado para desarrollar aplicaciones de Windows es Microsoft Visual Basic.NET (VB.NET). En VB.NET, puede crear un proyecto que utiliza un control de cuadro de texto y truncar los datos introducidos por el usuario utilizando el código VB.NET. Un control de cuadro de texto se utiliza comúnmente en una interfaz gráfica de usuario (GUI) para obtener los datos introducidos por el usuario.

Instrucciones

1 Iniciar Microsoft Visual Basic Express y haga clic en "Nuevo proyecto ..." en el panel izquierdo de la pantalla.

2 Seleccione "Aplicación de Windows Forms", y haga clic en "Aceptar".

3 Haga doble clic en "botón" en el panel de "caja de herramientas" para añadir un nuevo botón de control.

4 Haga doble clic en "Cuadro de texto" para añadir un nuevo control de cuadro de texto.

5 Haga doble clic en "ListBox" para agregar un control de cuadro de lista.

6 Haga doble clic en "Button1" para abrir el módulo "Form1.vb".

7 Pulse la tecla "Ctrl" y "A", y pulse "Borrar" para eliminar todo el código existente.

8 Copia y pega el código de abajo para truncar la cadena introducida en el cuadro de texto con comas. La cadena se agrega al control de cuadro de lista:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim como secuencia dataEnterd

commaPos As Integer Dim

Dim xCnt como número entero

dataEnterd = Me.TextBox1.Text.ToString.Trim

Si dataEnterd.Contains ( ",") A continuación,

Hacer mientras que dataEnterd & lt;> ""

commaPos = InStr (dataEnterd, ",", CompareMethod.Text)

Si commaPos & lt;> 0 Then

ListBox1.Items.Add (dataEnterd.Substring (0, commaPos))

dataEnterd = dataEnterd.Substring (commaPos)

Más

ListBox1.Items.Add (dataEnterd)

dataEnterd = ""

Terminara si

xCnt + = 1

Lazo

Más

MsgBox ( "Escriba una cadena con comas.")

Terminara si

End Sub

End Class

9 Pulse la tecla "F5" para ejecutar el programa, a continuación, escriba "Esto, es, una, cadena" en el cuadro de texto. Haga clic en "Button1".