Foro de elhacker.net

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)

 :laugh: se me olvido el option explicit... Thanks