Microsoft Visual Basic Express
Ver Más instrucciones
1
Inicie 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 "OK . "
3
doble clic en " Button" en el panel "Toolbox" para añadir un nuevo control de botón .
4
doble clic en " TextBox " para agregar un nuevo control de cuadro de texto .
5
Haga doble clic en " ListBox " para agregar un control de cuadro de lista.
6
doble clic en " Button1 " para abrir el módulo " Form1.vb " .
7
Presione " Ctrl" y " a ", y pulse "Eliminar " para eliminar todo el código existente.
8
Copia y pega el siguiente código para truncar la cadena introducida en el cuadro de texto con comas. La cadena se añade al control de cuadro de lista:
Public Class Form1
Private Sub Button1_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles Button1.Click
dataEnterd dévil como secuencia
commaPos Dim As Integer
xCnt Dim As Integer
dataEnterd = Me.TextBox1.Text.ToString.Trim
< p > Si dataEnterd.Contains ( ",") Entonces
hacer mientras dataEnterd < > ""
commaPos = InStr ( dataEnterd , "," , CompareMethod.Text )
< p> Si commaPos < > 0 Entonces
ListBox1.Items.Add ( dataEnterd.Substring ( 0 , commaPos ))
dataEnterd = dataEnterd.Substring ( commaPos )
< p > Otras ventas
ListBox1.Items.Add ( dataEnterd )
dataEnterd = "" End If
xCnt + = 1
Loop
demás
MsgBox ( " Escriba una cadena con comas. " )
End If End Sub
End Class
9 Pulse
"F5 " para ejecutar el programa , a continuación, escriba "Esto es, una cadena" en el cuadro de texto. Haga clic en " Button1 ".