Visual Basic - Cambiar los codigos en una opcion

Life is soft - evento anual de software empresarial
 
Vista:

Cambiar los codigos en una opcion

Publicado por novato (43 intervenciones) el 21/08/2000 00:00:00
quisiera saber como puedo cambiar los codigos de un formulario estando en otro y usando un boton de opcion.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cambiar los codigos en una opcion

Publicado por hernux (37 intervenciones) el 21/08/2000 00:00:00
No entiendo mucho lo que queres, pero si simplemente queres cambiar propiedades o cosas por el estilo, tenes que hacer referencia al formulario utilizando su nombre.

por ejemplo, para cambiar el titulo del formulario llamado frm:

frm.caption = "Nuevo titulo"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cambiar los codigos en una opcion

Publicado por novato (43 intervenciones) el 21/08/2000 00:00:00
lo que quiero hacer es, por ejemplo, si quiero cambiar el fondo del formulario principal desde una ventana de opcion. Pero el fondo lo hice asi:

Private Sub Form_Resize()
Dim I
Dim Y
correo.Cls
correo.AutoRedraw = True
correo.DrawStyle = 6
correo.DrawMode = 13
correo.DrawWidth = 2
correo.ScaleMode = 3
For I = 0 To 255
correo.Line (0, Y)-(correo.Width, Y + 2), RGB(0, I, 0), BF
Y = Y + 2
Next I
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cambiar los codigos en una opcion

Publicado por hernux (37 intervenciones) el 22/08/2000 00:00:00
El codigo no lo podes cambiar, pero lo que si podes hacer es:

1- Reescribir el codigo este, pero en lugar de en el evento resize, hacerlo en un sub aparte, y tomando los datos que vas a cambiar constantemente como parametros. Por ej:

Public Sub ResizeForm(iWidth as Single)
Dim I
Dim Y
correo.Cls
correo.AutoRedraw = True
correo.DrawStyle = 6
correo.DrawMode = 13
correo.DrawWidth = 2
correo.ScaleMode = 3
For I = 0 To 255
correo.Line (0, Y)-(iWidth, Y + 2), RGB(0, I, 0), BF
Y = Y + 2
Next I
End Sub

y lo llamarias asi:

Desde el evento form_Resize:

ResizeForm correo.width

Desde otro form:

Form1.ResizeForm iAnchoenOpcion
(Obviamente, suponiendo que la ventana principal se llame Form1)

SUERTE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar