Autor Tema: MsgBox temporal  (Leído 2210 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 213
MsgBox temporal
« en: Octubre 10, 2012, 02:22:41 pm »
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: [Seleccionar]

'*********** 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 ********

« Última modificación: Octubre 10, 2012, 02:29:19 pm por xavi »