Cerrar MsgBox Automaticamente

[The_Pretorian]

Buenas Tardes amigos del foro:

Como puedo hacer para q el MsgBox se cierre automaticamente a los 30 segunos de mostrado.

Atte
Jorge Diaz

[GeoAvila]

yo haría un msgbox con un form.. y listo le colocaría un timer.. para pase lo que deseas sin complicartela tanto..

nos vemos..

[aldo1982]

bue como dice aca el amigo, te explico mas o menos como seria.

1ro creas un formulario (el ke usarias como el msbox)
2do pones un timer
3ro ponjes un label
4to dentro de un timer pones este codio:
label1.caption = format(timer,"short time")
asi era??? bue no me acuerdo, recien llego del boliche y mis conocimientos ta con muchio alchool jejeejejej perdonpor el pedo ke tengo...depsues te paso el codigo..salu2


PD: hay ke juntarse a tomar algo con la gente del for :P

[johnnybelo]

Yo uso esto man

CreateObject("WScript.Shell").popup("La cuenta " & tblVencidas.Rows(c).Item(0).ToString & " de este cliente presenta recargo...", 1)

visual basic 2005

el unico pex es el titulo del mensaje no he buscado como personalizarlo

saludos

[David]

Aunque el hilo es viejo. Dejo una solución que puede servir a alguien:

Código vb:

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_COMMAND = &H111
Private msgTitle As String
Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
KillTimer hwnd, idEvent
Dim hMessageBox As Long
hMessageBox = FindWindow("#32770", msgTitle)
If hMessageBox Then
    SendMessage hMessageBox, WM_COMMAND, 6&, 0&
End If
End Sub
Public Function MsgBoxEx(hwnd As Long, Prompt, Optional cSeconds As Long = 1, Optional Buttons As VbMsgBoxStyle = vbOKOnly, Optional Title, Optional HelpFile, Optional Context) As VbMsgBoxResult
Dim cMSeconds As Long
cMSeconds = cSeconds * 1000
Title = IIf(Title = "", App.Title, Title)
msgTitle = Title
SetTimer hwnd, 0&, cMSeconds&, AddressOf TimerProc
MsgBoxEx = MsgBox(Prompt, Buttons, Title, HelpFile, Context)
End Function
 

Para llamarlo:

Código vb:

MsgBoxEx Me.hwnd, "Se cierra en 5 segundos", 5, vbOKOnly + vbInformation, "Título"