Mensaje emergente de VB
msgbox "hello!'
end sub
Función para ventanas emergentes en VB.
Función: Muestra un mensaje en un cuadro de diálogo, espera a que el usuario haga clic en un botón y devuelve un número entero que le indica en qué botón hacer clic
Sintaxis:
MsgBox(prompt[, botones). ] [, título] [, archivo de ayuda, contexto])
Descripción del parámetro:
La sintaxis de la función MsgBox contiene los siguientes parámetros con nombre:
Mensaje---- --- Obligatorio. Una expresión de cadena utilizada para mostrar un mensaje en un cuadro de diálogo. La longitud máxima del mensaje es de aproximadamente 1024 caracteres, determinada por el ancho de los caracteres utilizados. se puede utilizar un retorno de carro (Chr(13). )), un avance de línea (Chr(10)) o una combinación de retorno de carro y avance de línea (Chr(13) y Chr(10)
Botones------Expresión numérica opcional. La fórmula es una suma numérica que especifica el número y la forma de los botones que se mostrarán, el estilo de icono utilizado, el botón predeterminado y la respuesta obligatoria del cuadro de mensaje si se omite. , el valor predeterminado del botón es 0. ------Opcional. Expresión de cadena que se mostrará en la barra de título del cuadro de diálogo. Si se omite el título, el nombre de la aplicación se muestra en la barra de título. p>Helpfile------ -- Opcional. Expresión de cadena que identifica el archivo de ayuda que proporciona ayuda sensible al contexto para el cuadro de diálogo. Si se proporciona el archivo de ayuda, también se debe proporcionar el contexto. ------- Opcional Una expresión numérica que representa el número de contexto de ayuda asignado al tema de ayuda correspondiente por el autor del archivo de ayuda. Si se proporciona un contexto, también se debe proporcionar el archivo de ayuda.
3 Mostrar botones Sí, No y Cancelar
VbYesNo 4 Mostrar botones Sí y No
VbRetryCancel 4 Mostrar botones Sí y No
VbRetryCancel 4 Mostrar botones Sí y No
VbRetryCancel 5 muestra los botones de reintentar y cancelar
VbCritical16 muestra el ícono de información clave
VbQuery 16 muestra el ícono de información clave
VbQuestion 32 pantallas Icono de consulta de advertencia
VbExclamation 48 Mostrar icono de mensaje de advertencia
VbInformation 64 Mostrar notificación El primer botón es el valor predeterminado (configuración predeterminada)
vbDefaultButton2 256 El segundo El botón es el valor predeterminado
vbDefaultButton2 256 El segundo botón es el valor predeterminado
vbDefaultButton2 256 vbDefaultButton3 512 El tercer botón es el valor predeterminado
vbDefaultButton4 768 El cuarto El botón es el valor predeterminado
vbApplicationModal 0 La aplicación se verá obligada a regresar y la aplicación permanecerá suspendida hasta que el usuario responda al cuadro de mensaje
para continuar trabajando
vbSystemModal 4096 Retorno forzado del sistema; alineación
vbMsgBoxRtlReading 1048576 especifica que el texto debe organizarse de derecha a izquierda en los sistemas hebreo y árabe
Descripción:
(1) El primer conjunto de valores (0-5) describe el tipo y la cantidad de botones que se muestran en el cuadro de mensaje; el segundo conjunto de valores (16,32,48,64) describe el estilo del; icono; el tercer conjunto de valores (0,256,512,768) representa qué botón es el botón predeterminado; el cuarto conjunto de valores (0,4096) determina el retorno forzado del cuadro de mensaje. Al agregar estos números para crear el valor del parámetro del botón, solo se puede tomar un número de cada conjunto de valores.
(2) Estas constantes están especificadas por Visual Basic para Aplicaciones (VBA). Por lo tanto, puede utilizar los nombres de estas constantes en cualquier parte del código de su programa sin utilizar los valores reales. El valor real es equivalente al nombre de la constante.
Valor de retorno
Valor de retorno de función MsgBox constante
Descripción del valor constante
vbOK 1 OK
vbCancel 2 Cancelar
vbAbort3 Abortar
vbRetry 4 Reintentar
vbIgnore 5 Ignorar
vbYes 6 Sí
vbNo 7 No
(1) Si proporciona un archivo de ayuda y un parámetro de contexto, puede presionar la tecla F1 para ver el tema de ayuda correspondiente al contexto, y Excel generalmente agrega automáticamente un botón de ayuda al cuadro de entrada. .
(2) Si el cuadro de mensaje muestra el botón "Cancelar", presionar la tecla ESC y hacer clic en el botón "Cancelar" tienen el mismo efecto. Si hay un botón "Ayuda" en el cuadro de información, se proporcionará información de ayuda relevante.
(3) Si desea ingresar varios parámetros y omitir algunos parámetros intermedios, debe agregar un separador de coma en la posición adecuada.
Ejemplo
(1)(1) Utilice la función MsgBox para mostrar un mensaje de error grave en un cuadro de diálogo con los botones "Sí" y "No". El botón predeterminado en el ejemplo es "No" y el valor de retorno de la función MsgBox depende del botón que presionó el usuario.
Supongamos que DEMO.HLP es un archivo de ayuda y que el código del tema de ayuda que contiene es 1000.
Dim Msg,Style,Title,Help,Ctxt,Response,MyString
Msg= "¿Quieres continuar?" Definir texto del mensaje
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Definir botón
Título = "Demostración de MsgBox" ' Definir texto del título
Ayuda = "DEMO .HLP" 'Definir archivo de ayuda
Ctxt = 1000 'Definir tema de ayuda
Respuesta = MsgBox(Msg, Style, Title, Help, Ctxt)
Si Respuesta = vbSí Entonces '¡El usuario presiona "Sí"! "
MyString = "Sí" ' Completa la operación
Else ' El usuario presionó "No"
MyString = "No" ' Completa la operación
End If
(2) Solo muestra información específica
MsgBox "¡Hola! "
(3) Asigne el resultado devuelto por el cuadro de mensaje a una variable
Ans=MsgBox("¿Continuar?",vbYesNo)
If MsgBox( "¿Continuar?",vbSíNo)<> vbSí y luego salir de Sub
(4) Utilice una combinación constante para asignar un valor a la variable de configuración del grupo y establezca el segundo botón como botón predeterminado
Config=vbYesNo+vbQuestion+vbDefaultButton2
(5) Para forzar un salto de línea en el mensaje, utilice la constante vbCrLf (o vbNewLine) en el texto, separada por & seguida de un carácter de espacio, por ejemplo
.MsgBox "Esta es la primera línea." & vbNewLine & "Segunda línea".
(6) Puede usar la constante vbTab para insertar un carácter de tabulación en un cuadro de mensaje utilizando el siguiente procedimiento almacenado. El cuadro muestra todos los valores en un rango de celdas de 5 x 5, usa la constante vbTab para separar columnas y usa la constante vbCrLf para insertar nuevas filas. Tenga en cuenta que la función MsgBox solo puede mostrarse. a 1024 caracteres, lo que limita el número de celdas que se pueden mostrar
Option Explicit
Sub ShowRangeValue()
Dim Msg As String
.Atenuar r como entero, c como entero
Msg = ""
Para r = 1 a 5
Para c = 1 a 5
Mensaje = Mensaje y celdas (r, c) y vbTab
Siguiente c
Mensaje = Mensaje y vbCrLf
Siguiente r
MsgBox Msg
End Sub
(7) Utilice la función de hoja de cálculo en la instrucción del cuadro de mensaje y establezca el recuento de visualización para establecer el formato, como se muestra en la siguiente declaración:
MsgBox "Hay "&" en la celda de selección m & ".
" & Chr(13) & " La suma es: " & Application.WorksheetFunction.Application.WorksheetFunction.Average(Selection), "#,##0.00"), vbInformation, "recuento de selecciones, suma y promedio" & Chr(13 )
Ejemplo
private sub form_load() 'Evento de carga del formulario
msgbox("ventana emergente") 'Establecer ventana emergente
fin del sub'