Anónimo
Como creo un ciclo en visual basic
Hola soy principiante en visual mi inquietud es la sig:
Como le hago si mi interfaz tengo 10 textbox. A los cuales le tengo que asignar números del 1 al 10, pero sin que se repitan los números. En el momento que esto ocurra que me mande un mensaje de que ese numero no puede ser usado otra vez
Como le hago si mi interfaz tengo 10 textbox. A los cuales le tengo que asignar números del 1 al 10, pero sin que se repitan los números. En el momento que esto ocurra que me mande un mensaje de que ese numero no puede ser usado otra vez
Respuesta de santiagomf
1
Crea el primer TextBox y llámale como quieras. Supongamos el nombre 'txtNumero'.
Copia y pega el textBox y, cuando te pregunte si quieres crear una matriz de controles dile que sí. Repítelo hasta tener los 10 textBox que necesites (en los siguientes no te hará la pregunta).
Con esto tendrás una matriz de 10 controles que se llamarán 'txtNumero' y que harás referencia a ellos con un índice (txtNumero(0) hasta txtNumero(9))
Haz doble click sobre uno de los cuadros de texto y te aparecerá el procedimiento siguiente:
Private Sub txtNumero_Change(Index As Integer)
End Sub
Entre el 'Private Sub...' y el 'End Sub' pondrás el siguiente código:
Dim i as integer
Dim j as integer
For i = 0 to 9
if me.txtNumero(i).text<>"" then
For j = 0 to i - 1
if me.txtNumero(i).text<>"" then msgbox "Repetidos el " & i & " y el " & j
next j
end if
next i
Con eso te funcionará (si no me he equivocado al escribir).
Copia y pega el textBox y, cuando te pregunte si quieres crear una matriz de controles dile que sí. Repítelo hasta tener los 10 textBox que necesites (en los siguientes no te hará la pregunta).
Con esto tendrás una matriz de 10 controles que se llamarán 'txtNumero' y que harás referencia a ellos con un índice (txtNumero(0) hasta txtNumero(9))
Haz doble click sobre uno de los cuadros de texto y te aparecerá el procedimiento siguiente:
Private Sub txtNumero_Change(Index As Integer)
End Sub
Entre el 'Private Sub...' y el 'End Sub' pondrás el siguiente código:
Dim i as integer
Dim j as integer
For i = 0 to 9
if me.txtNumero(i).text<>"" then
For j = 0 to i - 1
if me.txtNumero(i).text<>"" then msgbox "Repetidos el " & i & " y el " & j
next j
end if
next i
Con eso te funcionará (si no me he equivocado al escribir).