1
Haga clic en " Inicio", " Todos los programas " y seleccione el Microsoft Visual Studio o la aplicación de Visual Basic Express, dependiendo de la que se ha instalado .
2
Haga clic en el enlace " Nuevo proyecto " en la página Visual Studio Inicio, seleccione " Aplicación de Windows Forms " y haga clic en " Aceptar". Esto abre un nuevo formulario en blanco en la ventana de diseño .
3
clic en la pestaña " Herramientas " a la izquierda de la pantalla para expandirla. Haga doble clic en el control " ListBox " . Haga doble clic en el control " Button " y haga doble clic en el control " TextBox " . Esto se suma a uno de cada uno para el formulario. Haga clic en la ventana de diseño para contraer la caja de herramientas.
4 Haga clic en el control ListBox en el formulario. Desplácese hacia abajo a la propiedad " Items " en las propiedades de las ventanas de la parte inferior izquierda de la pantalla. Haga clic en el cuadro de puntos suspensivos para abrir una ventana para introducir elementos. Entre varios elementos de la lista , al pulsar " Enter" después de cada elemento para colocarlos en líneas separadas.
5
Haga doble clic en el botón para abrir la ventana de código VB . El cursor aparece entre las líneas que se ven así :
Private Sub Button1_Click ( remitente de ByVal como System.Object , ByVal e como System.EventArgs ) Handles
Button1.Click
cursor> aparecerá here>
End Sub
Coloque el siguiente código entre las líneas de arriba para buscar en la lista por un duplicado de lo que el usuario entra en el campo de texto:
< p> '
el comentario - Este código busca en el cuadro de lista de un duplicado de lo que el usuario teclea
' en el cuadro de texto
'
ListItemCounter Dim As Integer
Si TextBox1.Text > Nada
hacer hasta ListItemCounter = ListBox1.Items.Count ()
Si TextBox1.Text.ToUpper = ( ListBox1.Items Entonces ( ListItemCounter ) ) . ToUpper () Luego
MessageBox.Show ("elemento duplicado encontrado " )
Volver
demás
ListItemCounter + = 1
End If
Loop
MessageBox.Show ( " el elemento que ha introducido no está en la lista " )
End If
Este código busca a través de los elementos del control ListBox para el elemento que se ha introducido en el cuadro de texto. Tenga en cuenta el método de " ToUpper " añadido por lo que la comparación elimina caso como un problema potencial. Si se encuentra el artículo, se publica el mensaje correspondiente , si el artículo no se encuentra, un " no encontrado" se emite mensaje
6
Haga clic en el elemento de menú "Debug " en la parte superior del archivo. pantalla y haga clic en el enlace " depuración Inicio". Así se abre la aplicación en modo de prueba. Introduce un elemento que se encuentra en la lista en el cuadro de texto y haga clic en el botón. Debería ver el mensaje " elemento duplicado " . Introduce un elemento en el cuadro de texto que no está en la lista y haga clic en el botón. Ahora debería ver el " Elemento no encontrado " mensaje.