Hola, tengo una duda quisiera saber si puedo pasar el texto de un textbox a una variable, pero con un contador, tal vez se pueda con un While, pero no se como pasar el texto a la variable.
ejemplo:
Dim Variable , Contador as String
Dim Cont2 as String
Text1.text= "Hola"
Cont2 = Len(Text1.Text)
Contador = 0
While Contador <= Cont2
no se como programar el codigo de aqui...
contador=contador+1
Loop
Resultado
1 Variable="H"
2 Variable="Ho"
3 Variable="Hol"
4 Variable="Hola"
Nota no es para saber cuantos Digitos tiene el textBox, lo necesito para que al momento de imprimir con el objet Print, imprima ciertos caracteres por linea, esto ya que no pude Ajustar los margenes.
De antemano Gracias. :)
Creo que tendras un problema...imagino que quieres imprimir cada X palabras para formar una línea..pero esque cada palabra tiene una longitud diferente y no te quedará justificado...
Bueno lo que quieres hacer no es dificil, mira la funcion (split) es para trabajar con cadenas y puedes guardar en variables un cierto número de letras de una palabra o frase fácilmente.
Saludos.
Cita de: skapunky en 25 Septiembre 2009, 01:06 AM
Creo que tendras un problema...imagino que quieres imprimir cada X palabras para formar una línea..pero esque cada palabra tiene una longitud diferente y no te quedará justificado...
Bueno lo que quieres hacer no es dificil, mira la funcion (split) es para trabajar con cadenas y puedes guardar en variables un cierto número de letras de una palabra o frase fácilmente.
Saludos.
Pues, intentare con esa funcion Gracias.
como algo asi, coloca un Text1, List1, y dos Botones en el formulario
Option Explicit
Dim a, longitud, n, x
Private Sub Command1_Click()
a = Text1
longitud = Len(a) 'Para saber la cantidad de caracteres
For n = 1 To longitud
x = Left(a, n)
List1.AddItem UCase(x)
Next n
End Sub
Private Sub Command2_Click())
Text1 = ""
List1.Clear
Text1.SetFocus
End Sub
Espero que te sirva de algo Salu2
Cita de: jack06 en 25 Septiembre 2009, 08:17 AM
como algo asi, coloca un Text1, List1, y dos Botones en el formulario
Option Explicit
Dim a, longitud, n, x
Private Sub Command1_Click()
a = Text1
longitud = Len(a) 'Para saber la cantidad de caracteres
For n = 1 To longitud
x = Left(a, n)
List1.AddItem UCase(x)
Next n
End Sub
Private Sub Command2_Click())
Text1 = ""
List1.Clear
Text1.SetFocus
End Sub
Espero que te sirva de algo Salu2
;-)
Me ha servido, ya lo que sigue de ahi lo intentare solo.
Muchas Gracias.