Problema con timer y los box's

[rugBy_02]

Hola, tengo un problemilla, cuando ejecuto un msgbox o un inputbox los timer's dejan de funcionar es decir pudes poner 2 seg  que mientras este el msg/inputbox printado en pantalla no va realizar su operación y me preguntaba si tendriais alguna solución.



Sali2! =D

[seba123neo]

Hola, si no me equivoco usando la api de MessageBox no pasa eso...

saludos.

[rugBy_02]

Vale, estuve buscando y tienes razon, estuve mirando y pongo un ejemplo por si alguien le interesa con comentarios intentando explicarlo

Código (vb) [Seleccionar] Expandir



'Declaramos la api messagebox

Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

'Declaramos la constante que desea pal tipo de mensage


Const MB_OK = &H0& 'La tipica de ok


'Para acabar activamos un msg a traves de un boton p.e

Private Sub Command1_Click()
MessageBox Me.hwnd, "Aqui_escribes_el_mensaje", App.Title, MB_OK
End Sub




Otras constantes por si quereis utilizarlas en vez la de "OK"

Código [Seleccionar] Expandir

Const MB_DEFBUTTON1 = &H0&
Const MB_DEFBUTTON2 = &H100&
Const MB_DEFBUTTON3 = &H200&
Const MB_ICONASTERISK = &H40&
Const MB_ICONEXCLAMATION = &H30&
Const MB_ICONHAND = &H10&
Const MB_ICONINFORMATION = MB_ICONASTERISK
Const MB_ICONQUESTION = &H20&
Const MB_ICONSTOP = MB_ICONHAND
Const MB_OKCANCEL = &H1&
Const MB_YESNO = &H4&
Const MB_YESNOCANCEL = &H3&
Const MB_ABORTRETRYIGNORE = &H2&
Const MB_RETRYCANCEL = &H5&



Lo que no encontre fue para inputbox... seguire buscando...

[seba123neo]

proba crearte uno con la api CreateWindowEx...

[rugBy_02]

lo veo rejodido

[rob1104]

En vez de usar el inputbox, porque no creas uno propio y lo mandas llamar en modo modal, luego recoges el contenido del textbox (del inputbox que creaste) y lo guardas en una variable declarada en un modulo.

[rugBy_02]

mmm no es mala idea lo intentare, gracias