Buenas,

Tengo una función en la que necesito que el nuevo Formulario que muestra (dentro de la función) tiene 2 botones. Y quiero hacer que en ese nuevo Formulario abierto, no se pueda continuar haciendo nada (ni el propio proceso de Funcion continue) hasta que se pulse uno u otro boton.

¿Como hacerlo?

He buscado por internet y no he visto mi pregunta. He probado parar proceso, esperar respuesta, etc...

El problema es que quiero devolver con la función si la respuesta a sido click en un boton u otro del formulario mostrado dentro del proceso, pero como en la función solo lo muestra (no se como parar hasta responder en éste) me continua la función y siempre sale como si no he dado ni uno ni otro.


Muchas gracias.


Os pego el codigo por si interesa:

Public Function Dialog(Texto As String, Titulo As String, TextBox As Boolean) As String


Dialog1.Label1 = Texto

Dialog1.Caption = Titulo

If TextBox = True Then
Dialog1.Text1.Enabled = True
Dialog1.Text1.Visible = True

Else
Dialog1.Text1.Enabled = False
Dialog1.Text1.Visible = False
End If

Call DialogProceso

Dialog = Dialog1.Text1


End Function

Public Sub DialogProceso()

Dialog1.Enabled = True
Dialog1.Show

Form1.Enabled = False

'Aquí habría que esperar a que se interaccione con Form1 y luego continuar desde aquí. Es decir, hasta que el Form1 no sea de nuevo oculto no continuar con el proceso.


End Sub

Hola, con una simple variable publica del tipo Boolean podes validar si queres que entre en ese codigo o no...

saludos.

No, pero el problema que tengo, es como hacer para que te salga la nueva ventanita, tu des a Aceptar o Cancelar, y luego prosiga el proceso. Es que como lo tengo ahora, sale la ventanita (voy pulsando F8 para verlo) pero no deja interactuar hasta que acaba todo el procedimiento. Y eso no me sirve, pues en funcion de Aceptar/Cancelar de esa ventana, acabara el procedimiento de una manera u otra.

La cuestión es esa, es que no se como explicarlo mejor o como hacerlo de otra manera:

Con el Call DialogProceso

Se va al Sub DialogProceso, y en ese apartado se abre un form en el que hay que escribir en el cuadro de texto algo. Pero segun lo tengo programado no puedo, porque no me deja interactuar, ya que hace todo seguido, lo abre y luego vuelve a donde se quedó (Call DialogProceso) y claro, la siguiente instrucción toma el resultado de lo que habíamos escrito en el supuesto form abierto con caja de texto. Pero como no deja interactuar , ya que lo hace todo seguido, siempre el valor es "". ya que no puedo escribir en el cuadro de texto por lo explicado..

Como se os ocurre que puedo hacer para que hasta que no cierre ese form (o escriba algo en ese cuadro de texto por ejemplo) que no siga con el proceso donde se quedo (Call DialogProceso) y así tomemos ya lo que haya yo metido en la caja de texto.

haber si entendi, bueno mira me arme el proyecto como vos lo tenes ahi con el codigo que pasaste...supongamos que yo desde el form1 tengo un boton y llamo a la funcion esa Dialog...asi:

Código:

Private Sub Command1_Click()
 Call Dialog("holaaaa", "siiiiii", True)
End Sub

despues en un modulo las funciones quedarian asi:

Código:

Public Texto As String

Public Function Dialog(Texto As String, Titulo As String, TextBox As Boolean) As String
 Dialog1.Label1 = Texto
 Dialog1.Caption = Titulo
 
 If TextBox = False Then
 Dialog1.Text1.Enabled = False
 Dialog1.Text1.Visible = False
 End If
 
 Call DialogProceso
 
 Dialog = Texto
End Function

Public Sub DialogProceso()
 Dialog1.Enabled = True
 Dialog1.Show 1
End Sub

fijate que le saque algo de codigo, cuando preguntabas por si la variable TextBox era True activabas los controles y si era False los desactivabas, solo pregunta cuando la variable es False y desactivalos, porque si es no es False pues siempre van estar activados y no hace falta preguntar...

despues lo que hice fue crear una variable publica donde se va a guardar lo que vos escribas en el textbox del formulario Dialog1...y para que esa variable se llene con el valor debes escribir esto en el formulario Dialog1:

Código:

Private Sub Form_Unload(Cancel As Integer)
 Texto = Text1.Text
End Sub

y la pausa que vos decias para que no siga ejecutando se soluciona mostrando el formulario Dialog1 en forma Modal....la forma modal hace que hasta que no se cierra el formulario no sige ejecutando el codigo...y ahi cuando cerras se llena la variable Texto y se lo pasa a la funcion Dialog...

saludos.

abre tu nuevo formulario como modal
formulario.show vbmodal
pruebalo y me dices como te fue