MsgBox
Muestra un mensaje en un cuadro de
diálogo, espera a que el usuario haga clic en un botón y devuelve un tipo
Integer correspondiente al botón elegido por el usuario.
Sintaxis
MsgBox(prompt[,
buttons][, title][, helpfile,
context])
La sintaxis de la función MsgBox consta
de estos argumentos con nombre:
- prompt: Requerido. Expresión
de cadena que representa el prompt en el cuadro de
diálogo. La longitud máxima de prompt es de
aproximadamente 1024 caracteres, según el ancho de los caracteres
utilizados. Si prompt consta de más de una línea, puede
separarlos utilizando un carácter de retorno de carro
(Chr(13)) o un carácter de avance de línea
(Chr(10)), o una combinación de caracteres de retorno de
carro-avance de línea (Chr(13) y Chr(10))
entre cada línea y la siguiente.
- buttons: Opcional. Expresión
numérica que corresponde a la suma de los valores que especifican el
número y el tipo de los botones que se pretenden mostrar, el estilo de
icono que se va a utilizar, la identidad del botón predeterminado y la
modalidad del cuadro de mensajes. Si se omite este argumento, el valor
predeterminado para buttons es 0.
- title: Opcional. Expresión de
cadena que se muestra en la barra de título del cuadro de diálogo. Si se
omite title, en la barra de título se coloca el nombre de
la aplicación.
- helpfile: Opcional. Expresión
de cadena que identifica el archivo de Ayuda que se utiliza para
proporcionar ayuda interactiva en el cuadro de diálogo. Si se especifica
helpfile, también se debe especificar
context.
- context: Opcional. Expresión
numérica que es igual al número de contexto de Ayuda asignado por el
autor al tema de Ayuda correspondiente. Si se especifica
context, también se debe especificar
helpfile.
Valores
El argumento buttons tiene estos
valores:
| Constante |
Valor |
Descripción |
| vbOKOnly |
0 |
Muestra solamente el botón
Aceptar. |
| VbOKCancel |
1 |
Muestra los botones
Aceptar y Cancelar. |
| VbAbortRetryIgnore |
2 |
Muestra los botones
Anular, Reintentar e Ignorar. |
| VbYesNoCancel |
3 |
Muestra los botones
Sí, No y Cancelar. |
| VbYesNo |
4 |
Muestra los botones Sí y
No. |
| VbRetryCancel |
5 |
Muestra los botones
Reintentar y Cancelar |
| VbCritical |
16 |
Muestra el icono de
mensaje crítico. |
| VbQuestion |
32 |
Muestra el icono de
pregunta de advertencia |
| VbExclamation |
48 |
Muestra el icono de
mensaje de advertencia. |
| VbInformation |
64 |
Muestra el icono de
mensaje de información. |
| VbDefaultButton1 |
0 |
El primer botón es el
predeterminado. |
| VbDefaultButton2 |
256 |
El segundo botón es el
predeterminado. |
| VbDefaultButton3 |
512 |
El tercer botón es el
predeterminado. |
| VbDefaultButton4 |
768 |
El cuarto botón es el
predeterminado. |
| VbApplicationModal |
0 |
Aplicación modal; el usuario
debe responder al cuadro de mensajes antes de poder seguir
trabajando en la aplicación actual. |
| VbSystemModal |
4096 |
Sistema modal; se suspenden
todas las aplicaciones hasta que el usuario responda al cuadro de
mensajes. |
El primer grupo de valores (0 a 5) describe el
número y el tipo de los botones mostrados en el cuadro de diálogo; el
segundo grupo (16, 32, 48, 64) describe el estilo del icono, el tercer
grupo (0, 256, 512) determina el botón predeterminado y el cuarto grupo
(0, 4096) determina la modalidad del cuadro de mensajes. Cuando se suman
números para obtener el valor final del argumento buttons,
se utiliza solamente un número de cada grupo.
Nota Estas constantes las especifica Visual
Basic for Applications. Por tanto, el nombre de las mismas puede
utilizarse en cualquier lugar del código en vez de sus valores
reales.
Valores devueltos
| Constante |
Valor |
Descripción |
| vbOK |
1 |
Aceptar |
| vbCancel |
2 |
Cancelar |
| vbAbort |
3 |
Anular |
| vbRetry |
4 |
Reintentar |
| vbIgnore |
5 |
Ignorar |
| vbYes |
6 |
Si |
| vbNo |
7 |
No |
Comentarios
Cuando se proporcionan tanto
helpfile como context, el usuario puede
presionar F1 para ver el tema de Ayuda correspondiente al
context.
Si el cuadro de diálogo cuenta con un botón
Cancelar, presionar la tecla ESC tendrá el mismo efecto que hacer
clic en este botón. Si el cuadro de diálogo contiene un botón
Ayuda, se suministra ayuda interactiva para ese cuadro de diálogo.
Sin embargo, no se devuelve valor alguno hasta que se hace clic en uno de
estos botones.
Nota Si desea especificar más que el primer
argumento con nombre, debe utilizar MsgBox en una expresión. Si
desea omitir algún argumento de posición, debe incluir el delimitador de
coma correspondiente.
Ejemplo de la función MsgBox
En este
ejemplo se utiliza la función MsgBox para mostrar un mensaje de
error crítico en un cuadro de diálogo con botones Sí y No. El botón No se
considera la respuesta predeterminada. El valor devuelto por la función
MsgBox depende del botón elegido por el usuario. En este ejemplo,
se supone que DEMO.HLP es un archivo de Ayuda que contiene un tema con un
número de contexto igual a 1000.
Dim Mensaje, Estilo, Título, Ayuda, Ctxt,
Respuesta, MiCadena
Mensaje = "¿Desea continuar?" ' Define el
mensaje.
Estilo = vbYesNo + vbCritical + vbDefaultButton2 ' Define los
botones.
Título = "Demostración de MsgBox" ' Define el título.
Ayuda
= "DEMO.HLP" ' Define el archivo de ayuda.
Ctxt = 1000 ' Define el
tema
Respuesta = MsgBox(Mensaje, Estilo, Título, Ayuda, Ctxt)
If
Respuesta = vbYes Then ' El usuario eligió el botón Sí.
MiCadena = "Sí"
' Ejecuta una acción.
Else ' El usuario eligió el botón No.
MiCadena
= "No" ' Ejecuta una acción.
End If
Arriba
Right
Devuelve un tipo Variant
(String) que contiene un número especificado de caracteres del lado
derecho de una cadena.
Sintaxis
Right(string, lenght)
La sintaxis de la función Right tiene
estos argumentos con nombre:
| Parte |
Descripción |
| String |
Obligatorio. Expresión
de cadena desde la cual se devuelven los caracteres que están más a
la derecha. Si string contiene Null, se devuelve
Null. |
| lenght |
Se requiere, un tipo Variant
(Long). Expresión numérica que indica cuántos caracteres se
van a devolver. Si es 0, se devuelve una cadena de longitud cero
(""). Si es mayor o igual al número de caracteres en string,
se devuelve la cadena completa. |
Comentarios
Para determinar el número de
caracteres en string, utilice la función Len.
Ejemplo de la función Right
En este
ejemplo se utiliza la función Right para devolver un número
especificado de caracteres de la parte derecha de la cadena.
Dim UnaCadena, MiCadena
UnaCadena = "Hola
Mundo" ' Define una cadena.
MiCadena = Right(UnaCadena, 1) ' Devuelve
"o".
MiCadena = Right(UnaCadena, 6) ' Devuelve "Mundo".
MiCadena =
Right(UnaCadena, 20) ' ' Devuelve "Hola Mundo".
Arriba
Str
Devuelve en un tipo Variant
(String) la representación de cadena de un número.
Sintaxis
Str(número)
El argumento número necesario es un tipo
Long que contiene una expresión numérica válida.
Comentarios
Cuando los
números se convierten a cadenas, siempre se reserva un espacio a la
izquierda para el signo del número. Si número es positivo,
la cadena devuelta contiene un espacio a la izquierda y el signo más se da
por supuesto.
Utilice la función Format
para convertir valores numéricos en valores con formato de fecha, hora,
moneda o en otros formatos definidos por el usuario. A diferencia de
Str, la función Format no incluye un espacio a la izquierda
para el signo del número.
Nota La función Str sólo reconoce el
punto (.) como separador decimal válido.
Ejemplo de la función Str
En este
ejemplo se utiliza Str para devolver una representación de cadena
de un número. Cuando un número se convierte en una cadena siempre se
reserva un espacio a la izquierda para el signo.
Dim MiCadena
MiCadena = Str(459) ' Devuelve
" 459".
MiCadena = Str(-459.65) ' Devuelve "-459,65".
MiCadena =
Str(459.001) ' Devuelve " 459,001".
Arriba
Ucase
Devuelve un tipo Variant
(String) que contiene una cadena especificada que se ha convertido
a mayúsculas.
Sintaxis
UCase(cadena)
El argumento cadena necesario es
cualquier expresión de cadena válida. Si string contiene
Null, se devuelve Null.
Comentarios
Sólo se convierten a
mayúsculas las letras minúsculas. Las letras mayúsculas o los caracteres
que no son letras no sufren cambios.
Ejemplo de la función UCase
En este
ejemplo se utiliza la función UCase para devolver la versión en
mayúsculas de una cadena.
Dim LowerCase, UpperCase
LowerCase = "Hola
Mundo 1234" ' Cadena a convertir.
UpperCase = UCase(LowerCase) '
Devuelve "HOLA MUNDO 1234".
Arriba
Val
Devuelve los números contenidos en
una cadena como un valor numérico del tipo adecuado.
Sintaxis
Val(cadena)
El argumento obligatorio cadena es
cualquier expresión de cadena válida.
Comentarios
La función
Val deja de leer la cadena en el primer carácter que no puede
reconocer como parte de un número. Los símbolos y caracteres que se
consideran a menudo parte de valores numéricos, como signos de moneda y
comas, no se reconocen. Sin embargo, la función reconoce los prefijos de
base &O (para octal) y &H (para hexadecimal). Los espacios en
blanco, los tabuladores y los avances de línea se eliminan del
argumento.
Lo siguiente devuelve el valor
1615198:
Val(" 1615 198 Calle N.E.")
En el código que se muestra a continuación,
Val devuelve el valor decimal -1 correspondiente al valor
hexadecimal entre paréntesis:
Val("&HFFFF")
Nota La función Val sólo reconoce el
punto (.) como separador decimal válido.
Ejemplo de la función Val
En este
ejemplo se utiliza la función Val para devolver los números
contenidos en una cadena.
Dim MiValor
MiValor = Val("2457")
' Devuelve 2457.
MiValor = Val(" 2 45 7") ' Devuelve 2457.
MiValor =
Val("24 y 57") ' Devuelve 24.
Arriba | 
