caja de texto

[bleid]

Es para un procesador de texto bien chafa, lo que quiero es que el texbox se ajuste al tamaño de la ventana, si la ventana es de un tamaño cualquiera y lo hago de ese tamaño cuando la aplicacion se ejecute y el usuario maximise o modifique el tamaño de la ventana el cuadro de texto tambien se modifique o si no se puede lo mas parecido y como mandar a imprimir.

[lic_dahool]

pues no se que lenguaje usas, pero esto lo podés hacer controlando que cuando se ajusta el tamaño de la ventana, cambias el tamaño del cuadro de texto en relación a un X% de la ventana.

saludos.

[bleid]

Perdon de me olvido es VB6

[lic_dahool]

ok, en vb6, con este código el cuadro de texto siempre va a tener el tamaño de la ventana:

Private Sub Form_Resize()
Text1.Width = Me.Width
Text1.Height = Me.Height
Text1.Left = 0
Text1.Top = 0
End Sub

aunque tendras que tener en cuenta si hay algun otro control en el form.

tengo un par de clases que se encargan cambiar el tamaño a todos los controles automáticamente, en todo caso mandame tu mail y te envió los archivos.

saludos.

[bleid]

mi correo es [email protected], hacerca de la imprecion como lo hago.
Lo voy a probar gracias.

[lic_dahool]

pues para mandar a imprimir, esto lleva un poco más de trabajo. tenés que usar la propiedad PRINTER.
echale un ojo y fijate, no es dificil de usar, sólo que es algo tedioso.
poder cambiar los tamaños y tipos de letra, efectos, etc.
para imprimir usas PRINTER.PRINT y para finalizar PRINTER.ENDDOC.

saludos.

[bleid]

Con esto funciona
Private Sub Form_Resize()
Text1.Width = Me.Width
Text1.Height = Me.Height
Text1.Left = 0
Text1.Top = 0
End Sub

pero si le pongo barras de desplazamiento se cortan
http://mx.geocities.com/espaciotm/Capture1.gif
http://mx.geocities.com/espaciotm/Capture2.gif

[lic_dahool]

probaste con las class que te envié?

[bleid]

Pues la verdad no las he probado por que no se si al compilar el programa y no los incluyo el programa no jale como debe, ademas como estoy en la escuela no podemos descargar nada todo es para consulta ya le dije al profe pero me dijo que su maquina no serbia, etc. Los descargo y pruebo en mi casa.

Gracias.

[bleid]

Pues no supe como correrlos me marcaba error en el set

Private fz As Form_ControlPos

Private Sub Form_Load()

Set fz = New Form_ControlPos

With fz
Call .Init(Me)
Call .AddProportional(Text1)
Call .AddProportional(Command1)
End With

End Sub