Ver Mensaje Individual
  #4 (permalink)  
Antiguo 26/12/2007, 09:36
martink
 
Fecha de Ingreso: diciembre-2007
Mensajes: 5
Antigüedad: 16 años, 5 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