Estaba haciendo un ejercicio en el que el usuario introduce 2 numeros que seran, el inicio y el final de un bucle... y al hacer click en un boton se realiza el bucle, y se muestra (con print) los numeros en ese intervalo... Pero el print los muestra en la esquina de la ventana y un debajo del otro... Yo quiero mostrarlos en una etiqueta (label) una al lado del otro, y si es posible separados por ', '... Pero no se como hacerlo... tengo mas o menos la idea de como hacerlo pero con un textbox, con la propiedad selstart... Pero no se ocmo hacerlo con una etiqueta... Aca esta el code para que no piensen que miento:
Private Sub Command1_Click()
Dim A As Integer
Dim B As Integer
Dim i As Integer
A = Text1
B = Text2
For i = A To B
Print i
Next
End Sub
De antemano gracias a quien me pueda ayudar...
Saludos...
Algo así...
Dim intContador As Integer
Dim strCadena As String
For intContador = 0 To 10
strCacena = strCadena & 1 & ", "
Next
strCadena = strCadena & "."
strCadena = Replace(strCadena, ", .", "")
MsgBox strCadena
En tu code sería algo así:
Private Sub Command1_Click()
Dim i As Integer
Dim strCadena As String
For i = Text1.Text To Text2.Text
strCacena = strCadena & 1 & ", "
Next
strCadena = Replace(strCadena, ", .", "")
MsgBox strCadena
End Sub
Mmm ya veo que no hay ninguna funcion hay que hacerlo a la vieja escuela... Gracias, pero aunque me sirvio de mucho... no funciona con esta modificacion:
Dim intContador As Integer
Dim strCadena As String
For intContador = Text1 To Text2
strCacena = strCadena & intContador & ", "
Next
strCadena = strCadena & "."
strCadena = Replace(strCadena, ", .", "")
Label1 = strCadena
Nada mas muestra un punto ('.') 0o? Por q sera?...
y de cuanto es el bucle?
1 en text1 y 5 en text2...
OMG!
(http://r.i.elhacker.net/cache?url=http://massivebraindamage.files.wordpress.com/2009/07/owned.jpg)
Cita de: El_nuevo_HH en 13 Mayo 2010, 05:32 AM
Dim intContador As Integer
Dim strCadena As String
For intContador = Text1.Text To Text2.Text
strCacena = strCadena & intContador & ", "
Next
strCadena = strCadena & "."
strCadena = Replace(strCadena, ", .", "")
Label1.Caption = strCadena
:laugh: se me olvido el option explicit... Thanks