
26/12/2007, 09:36
|
| | Fecha de Ingreso: diciembre-2007
Mensajes: 5
Antigüedad: 17 años, 4 meses Puntos: 0 | |
Re: Modo debug y modo compilado VB6 Gracias a los dos por responder,
le especifico mejor el problema
corriendo el programa desde VB dandole play las modificaciones funcionan bien, ahora cuando lo compilo y lo ejecuto desde el ejecutable ocurre lo siguiente: al invocar al formulario "seleccion", y después de realizar las funciones que debe realizar el usuario sobre el mismo, no vuelve y ejecuta la línea de código siguiente a la línea "seleccion.show vbmodal"
que es la que invoco al mismo. No se si se entiende bien lo que digo.
'///////////////////////////////////////////
'formulario frmhusky
Private Function IngresoDisco2() As Integer
Dim C As Integer
Dim a As Integer
'MK-INI
Dim bucle As Integer
'MK-FIN
On Error GoTo errdisco
'MK-INI
carga = True
If frmCargDes.TFB800 Then
bucle = vbCancel
MsgBox "Seleccione la unidad de disco del TPL TFB800"
Do While bucle = vbCancel And salida2 = 0
salida2 = 0
seleccion.Show vbModal 'si lo corro desde la versión compilada, al volver del formulario "seleccion", no ejecuta todo el código que
' esta abajo, si no que vuelve a ejecutar todo desde MSGBOX "seleccione la unidad de disco del TPL
'TFB800"
If salida2 = 0 Then
bucle = MsgBox("Se guardarán los archivos en " & unidad, vbOKCancel)
Else
IngresoDisco2 = 2
GoTo Fin
End If
Loop
Else
'MK-FIN
-
-'resto de la lógica del programa
-
-
-
-
'/////////////////////////////////////////////////////
'Formulario selección
Private Sub Command1_Click()
Frmhusky.unidad = Text1.Text
Unload Me
End Sub
Private Sub Command2_Click()
If Frmhusky.carga = True Then
Frmhusky.salida2 = 1
Else
Frmhusky.salida1 = 1
End If
Unload Me
End Sub
Última edición por martink; 26/12/2007 a las 09:46 |