Foro de elhacker.net

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.

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

 ;-)
Me ha servido, ya lo que sigue de ahi lo intentare solo.

Muchas Gracias.