Palabras clave: MsgBox, PopUp, WSH
Autor: Juan M. Afán de Ribera (Happy) / Junio 2003
Extraído de: La web del Búho
Objetivo:
Rutina que demuestra el uso del método PopUp del objeto wshShell. Nos da la posibilidad de establecer un tiempo de duración en su segundo argumento. Por lo demás es casi igual que el MsgBox (así como el uso de sus constantes vb)
'*********** Código ***************
'
' msgboxTemporal
'
' Rutina que demuestra el uso del
' método PopUp del objeto wshShell
' Nos da la posibilidad de estable-
' cer un tiempo de duración en su
' segundo argumento. Por lo demás
' es casi igual que el MsgBox (así
' como el uso de sus constantes vb)
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Sub msgboxTemporal()
Dim wShell As Object 'New wshShell
Dim respuesta As Integer
Set wShell = CreateObject("WScript.Shell")
respuesta = wShell.PopUp("Estaré abierto 5 segundos", _
5, "Método wshShell.Popup", vbYesNo + vbInformation)
Select Case respuesta
Case -1: MsgBox "No has apretado ningún botón"
Case vbYes: MsgBox "Has apretado el botón ""Sí"" "
Case vbNo: MsgBox "Has apretado el botón ""No"" "
End Select
Set wShell = Nothing
End Sub
'********* Fin código ********
