Como realizar una Ventana de Mensaje (MsgBox) en Visual Basic

Función MsgBox

El “MsgBox” es una función incorporada en el VB que tiene muchas posibilidades, veámoslo:

- Recupera la base de datos PROGRAMAS.mdb

- Selecciona el Objeto: Módulos y click en [Nuevo]

- Escribe el siguiente procedimiento:

Sub Programa28()
Dim nom As String
Dim Respuesta As Integer
nom = "Pepito"
MsgBox ("Hola " & nom)
MsgBox "Hola " & nom
MsgBox "Mira el título", , "Pongo el título que quiero"
MsgBox "Observa este" & vbCrLf & "texto que ocupa " & _
vbCrLf & "tres líneas", , "Título"
MsgBox "Mira el icono de " & vbCrLf & "pregunta", _
vbQuestion, "Icono Interrogación"
MsgBox "Otro icono", vbCritical, "Icono Crítico"
MsgBox "otro", vbExclamation, "Icono Exclamación"
MsgBox "otro más", vbInformation, "Icono Información"
Respuesta = MsgBox("Observa que al incluir más" & _
vbCrLf & "de un botón, en el MsgBox" & _
vbCrLf & "pongo paréntesis y utilizo" & vbCrLf _
& "una variable, que recogerá" & _
vbCrLf & "el botón que hemos pulsado", vbYesNo + _
vbQuestion, "Dos botones")
Debug.Print Respuesta
Respuesta = MsgBox("tres botones", vbYesNoCancel + _
vbInformation, "Con icono Información")
Debug.Print Respuesta
Respuesta = MsgBox("tres botones pero" & vbCrLf & _
"el activo es el segundo", vbAbortRetryIgnore _
+ vbCritical + vbDefaultButton2, "Icono Critico")
Debug.Print Respuesta
End Sub

- Click en el icono “Guardar”
Graba el nuevo módulo con el nombre Módulo2

- Pulsa las teclas [CTRL][G] para abrir la ventana “Inmediato”

- Escribe Programa28 y pulsa [Return]

Observa detenidamente lo que sucede y ejecútalo varias veces para verlo mejor.

Explicación del Programa28:

• El primer “MsgBox”:
MsgBox(“Hola” & nom)
es el tipo de cuadro que ya habíamos utilizado

• Si observamos el segundo:
MsgBox “Hola” & nom
llegamos a la conclusión que tanto da poner o no poner paréntesis.


• Recuerda que en Visual Basic podemos escribir líneas de programa distribuyéndolas en varias líneas, sin más que escribir el símbolo de subrayado (tecla del “menos”) precedido de un espacio en blanco.

• vbCrLf es una constante simbólica de VB que “obliga a un retorno de carro o nueva línea”, con su uso conseguimos distribuir el texto en varias líneas.

• El primer argumento del MsgBox es el texto que aparece en el cuadro. El tercer argumento es el texto que aparece como título del cuadro (igual que sucedía con el InputBox)

• En el segundo argumento del “msgbox” podemos incluir un icono determinado y/o varios botones y/o activar por defecto un botón determinado. Todo esto se consigue utilizando constantes simbólicas de VB o su valor numérico equivalente como aparece en las siguientes tablas:

Constantes para los iconos Valor Numérico Significado
vbCritical 16 Icono crítico
vbQuestion 32 Icono pregunta
vbExclamation 48 Icono exclamación
vbInformation 64 Icono información

Constantes para los botones Valor Numérico Significado
vbOKOnly (defecto) 0 [Aceptar]
vbOKCancel 1 [Aceptar][Cancelar]
vbAbortRetryIgnore 2 [Anular][Reintentar][Ignorar]
vbYesNoCancel 3 [Sí][No][Cancelar]
vbYesNo 4 [Sí][No]

Constantes para activar botón Valor Numérico Significado
vbDefaultButton1 (defecto) 0 Activa el primer botón
vbDefaultButton2 256 Activa el segundo botón
vbDefaultButton3 512 Activa el tercer botón


• El hecho de incluir botones no tiene sentido si no recogemos el botón pulsado en una variable (de aquí el uso de la variable respuesta en nuestro procedimiento). En este caso hemos de escribir el MsgBox con paréntesis necesariamente.
Los números o constante simbólica que devuelven los diferentes botones son los siguientes:

Botón Devuelve el número Constante
Aceptar 1 vbOK
Cancelar 2 vbCancel
Anular 3 vbAbort
Reintentar 4 vbRetry
Ignorar 5 vbIgnore
Sí 6 vbYes
No 7 vbNo

Ayuda con Prodigy Infinitum 2Wire

Ok, ok, estoy de acuerdo, todos nosotros odiamos a Telmex. Pero desgraciadamente lo tenemos k usar, y al usarlo siempre hay problemas (me podrían ayudar?) :-P
Tengo conectado mi desktop al 2Wire muy bien, y he estado usando la inalámbrica muy bien también, pero el problema surgió después de k instalé el Kaspersky en mi lap, realicé un scaneo del sistema y me kitó un chingo de malware, spyware, etc, etc, el pedo es k ahora mi lap no se conecta ni por inalámbrico ni por el pinche cablecito amarillo tampoco, no se conecta a ninguna red, ni la mía, ni la de mis papás, ni la de mis vecinos, ni el hotspot chafón k tiene soriana, me dice k si está conectado pero k la conección está limitada pk el 2wire no me dá una IP, ya le rebusk en la lap pero no hay ningun problema con los drivers ni con el hardware, me dice k contacte a mi administrador de redes. Bueno ya me contacté a mi mismo y me di permiso de usar la red pero igual y le vale madre lo que yo le digo. No kiero hablar a la asistencia técnia de prodigy pk tengo un par de meses con el teléfono cortado y todavía puedo usar el infinitum (muajajaja). Alguien me puede ayudar con esto porfavor?

Desconfiguración de Outlook y recomendación de Antivirus

Pregunta: Hola abid como estás, quiciera preguntarte si en alguno de los ultimos mails te ha llegado algún virus, que yo sepa mi pc esta acualizada con el mcafee securty center, hoy en la mañana que se actualizó automaticamente y se alanizó no encontro nada, pero voy a verificar. De los de los mails que te llegaron muchos del mismo con asunto video ya supe cual fue el problema, lo que pasa que yo reviso mi mail de hotmail sincornizado a outlook express, ese día se desconfiguró no se podían sincronizar las carpetas, no sé por qué, y marcaba en la bandeja de salida como pendiente de enviar ese mail, lo que yo no sabía era que lo estaba enviando cada vez que intentava sincronizar las carpetas, me di cuenta por que tu papá me lo dijo y también aunque le envie el mail, el sistema me lo regreso como 6 veces, saludos, comentame, gracias.


Respuesta: A ok, no, en realidad no me llegó ningun virus, pensé que todavía no había empezado a propagarse y que por lo pronto sólo se había infectado tu computadora, pero esa desconfiguración de outlook simplemente es eso, por lo regular la desconfiguración de este es por parte de un usuario (alguien que no supo a que moverle), si ya está funcionando bien nuevamente no hay nada más de que alarmarse. Con respecto al antivirus que tienes: es un antivirus muy bueno, así que mientras que lo tengas programado para que se actualice automáticamente por lo menos una vez por semana todo va a estar bien, sólo revisar la computadora con el antivirus al momento que se actualice. Yo tengo el Norton Empresarial y también es muy bueno ya que no deja que se habran las páginas que contienen virus, el único inconveniente es que lo tienes que actualizar manualmente, así que si no tienes la costumbre de actualizarlo por tu cuenta no te recomiendo que lo instales (a mi me salen de perdido 3 virus por semana en la compu (jajaja)). También el Avast Antivirus es muy bueno y tampoco deja que las páginas con virus o scripts dudosos se abran, ese lo puedes bajar desde mi página: http://www.abidcastaneda.tz4.com/ en la sección de "Descargas" (en el menú de arriba), si quieres puedes intentar usar ese, pero si lo pones tienes que desinstalar primero el McAfee, así que te recomiendo que tengas el disco de instalación de éste a la mano por si no te gusta el Avast. También deja que habilite el servidor en mi computadora y subo el Norton Empresarial para que lo bajes, el Norton Empresarial no tiene fecha de caducidad, por lo que no tienes que comprar las actualizaciones anuales como con el Norton normal, con el McAfee o con el Avast (aunque el Avast que bajas desde mi página viene con 5 años validos de activación). Avísame si tienes alguna duda, para eso estamos.

Jajaja, Gracias...

Gracias por sus comentarios, los espero con más.....

Hola y bienvenidos, este es el inicio del blog, por favor siéntanse libres de subir sus comentarios y armar sus foros de discusión. Todos son bienvenidos!!