Programación General > Visual Basic 6.0 e inferiores
Descarga De Formularios!!!
vbmc_2004:
Hola amigos!!!
Hola tengo una inquietud yo comunmente descargo los formularios con el
"unload me" pero resulta que el unload me no me resulta dentro de un IF y despues de un MSGBOX osea hace tal cosa de lo contrario msgbox y descargue el formulario pero no lo puedo hacer con el UNLOAD ME solo me permite ocultarlo con FORMx.HIDE y yo necesito descargarlo existe algunh otro metodo????
muchas gracias y que esten muy bien
Salu2 :hola:
RadicalEd:
--- Código: Text --- Sub Descargar()On Error Resume NextIf x = 1 Then MsgBox "x es igual a 1"Else MsgBox "x no es igual para nadita a 1" Unload MeEnd IfEnd Sub SI LO TIENES ASI TE DEBE FUNCIONAR
vbmc_2004:
no sabes no lo tengo asi
lo tengo de esta manera..
--- Código: Text --- Private Sub Combo4_Click()Combo2.Enabled = TrueIf Text14.Text = "<ACTUALIZAR>" Then Form3.Hide Form1.Show MsgBox ("mensage"), vbExclamation CALL DESCARGAR Form1.Text1.SetFocusEnd IfEnd Sub
lo que trate de hacer fue...
copie el codigo que me diste y luego lo llame de esta forma...
--- Código: Text --- CALL Descargar Para llamar el procedimiento pero quedo igual cuando lo volvi a llamar del MDIform no estaba actualizado el combobox con la informacion del otro formularios que llame posteriormente
RadicalEd:
--- Código: Text --- Private Sub Combo4_Click()Combo2.Enabled = TrueIf Text14.Text = "<ACTUALIZAR>" Then Form3.Hide 'Unload Me Form1.Show MsgBox ("mensage", vbExclamation ) ' DESPUES DE CERRAR EL Form3 QUE CREO ES EL CUAL DEBES CERRAR NO TE SALE ESTO CALL DESCARGAR '¿CUAL ES EL CODIGO DE ESTO? Form1.Text1.SetFocus 'ESTO COLOCALO EN EL LOAD DEL Form1End IfEnd Sub OJALA TE SIRVA.
CHAO
Cyclop:
No se cierra la ventana por que despues de ejecutar la rutina descargarque supuestament hace un unload.me, haces un setfocus activandose nuevamente la ventana.
--- Código: Text ---Private Sub Combo4_Click()Combo2.Enabled = TrueIf Text14.Text = "<ACTUALIZAR>" Then MsgBox ("mensage"), vbExclamation Form1.Show Form1.Text1.SetFocus Unload MeEnd IfEnd Sub
Suerte
Cyclop
Navegación
[#] Página Siguiente
Ir a la versión completa