Autor
|
Tema: [?] Selstart en las etiquetas (Leído 2,734 veces)
|
.:BlackCoder:.
Desconectado
Mensajes: 388
Cada dia C++!!
|
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...
|
|
|
En línea
|
"No te esfuerzes por saber mas, esfuerzate por ser el mejor en lo que sabes... Y asi sabras mas" .:BlackCoder:. jajaja
|
|
|
Shell Root
|
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
|
|
« Última modificación: 13 Mayo 2010, 05:29 am por Alex@ShellRoot »
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
.:BlackCoder:.
Desconectado
Mensajes: 388
Cada dia C++!!
|
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?...
|
|
|
En línea
|
"No te esfuerzes por saber mas, esfuerzate por ser el mejor en lo que sabes... Y asi sabras mas" .:BlackCoder:. jajaja
|
|
|
Shell Root
|
y de cuanto es el bucle?
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
.:BlackCoder:.
Desconectado
Mensajes: 388
Cada dia C++!!
|
1 en text1 y 5 en text2...
|
|
|
En línea
|
"No te esfuerzes por saber mas, esfuerzate por ser el mejor en lo que sabes... Y asi sabras mas" .:BlackCoder:. jajaja
|
|
|
Shell Root
|
OMG! 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
|
|
|
En línea
|
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
|
|
|
.:BlackCoder:.
Desconectado
Mensajes: 388
Cada dia C++!!
|
se me olvido el option explicit... Thanks
|
|
|
En línea
|
"No te esfuerzes por saber mas, esfuerzate por ser el mejor en lo que sabes... Y asi sabras mas" .:BlackCoder:. jajaja
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
etiquetas de youtube en smf
Desarrollo Web
|
Stoya
|
4
|
4,795
|
23 Abril 2011, 20:17 pm
por Dreamaker
|
|
|
etiquetas de colores
Windows
|
javierdeejay
|
1
|
1,764
|
11 Julio 2012, 22:14 pm
por javierdeejay
|
|
|
Leer etiquetas ID3
Java
|
painkillerpucela
|
0
|
1,920
|
5 Octubre 2012, 21:42 pm
por painkillerpucela
|
|
|
Etiquetas RTF
Java
|
CharGut
|
0
|
2,089
|
19 Mayo 2013, 12:18 pm
por CharGut
|
|
|
asignar valore a etiquetas
Desarrollo Web
|
Ethgar
|
1
|
1,673
|
17 Mayo 2014, 17:33 pm
por DanB
|
|