Necesito ayuda con la implementación de programa en visual basic y el uso de textbox
Hola nuevamente es que necesito hacer un programa el que tiene 3 textbox y 2 de ellos son para que yo coloque como un rango de donde a donde quiero que me aparezca la lista de números por decir:
En el text1 yo colo el numero 5 y en el text2 el numero 20 entonces el programa me hace aparece en el text3 los números del 5 al 20 automáticamente, ¿cómo podría hacerlo?
Muchas gracias y espero sus respuestas
En el text1 yo colo el numero 5 y en el text2 el numero 20 entonces el programa me hace aparece en el text3 los números del 5 al 20 automáticamente, ¿cómo podría hacerlo?
Muchas gracias y espero sus respuestas
1 respuesta
Respuesta de ifrancoz
1
Puedes hacer algo como esto :
Dim Numini As Integer
Dim Numfin As Integer
Dim I As Integer
Private Sub Command1_Click()
Numini = Val(Text1)
Numfin = Val(Text2)
' Validar que numfin sea mayor que inicial
For I = Numini To Numfin
Text3 = Text3 & Format(I, "###,##0") & " "
Next I
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Private Sub Text2_Change()
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
Suerte !
Dim Numini As Integer
Dim Numfin As Integer
Dim I As Integer
Private Sub Command1_Click()
Numini = Val(Text1)
Numfin = Val(Text2)
' Validar que numfin sea mayor que inicial
For I = Numini To Numfin
Text3 = Text3 & Format(I, "###,##0") & " "
Next I
End Sub
Private Sub Form_Load()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
End Sub
Private Sub Text2_Change()
Select Case KeyAscii
Case 48 To 57 ' Permite los dígitos
Case 8 ' Permite el carácter de retroceso
Case Else
KeyAscii = 0
Beep
End Select
Suerte !
