La gran investigacion de la sintaxis del MessageBox

1-.Investiga la sintaxis del MessageBox.

La sintaxis completa de la función MessageBox es:

MsgBox(mensaje [,botones][,título][,ArchivoAyuda,Contexto])

2.-Menciona las diferentes opciones que se pueden manejar en MessageBox.

Text: texto que se mostrara en el cuadro de mensaje.

Caption: Texto que se mostrara en la barra de titulo del cuadro de mensaje.

Icon: Especifica que icono va a mostrar en el cuadro de mensaje. (OK, OKCANCEL, ABORT, RETRY, IGNORE, YESNO, RETRYCANCEL, CRITICAL, QUESTION, SYSTEM MODAL, APLICATION MODAL, EXCLAMATION, INFORMATION).

Buttons: Uno de los valores de MessageBoxButtons que especifica que los botones que se muestran en el cuadro de mensaje.

DefaultButton: Especifica el botón predeterminado para el cuadro de dialogo.

Options: Especifica las opciones de presentación y asociación que se usaran en el dialogo.

HelpFilepath: La ruta de acceso y el nombre de archivo de Ayuda a mostrar

Cuando el usuario hace clic en el botón ayuda.

Navigator: Unos de los navegadores de HelpNavigator.

Param: El identificador numérico del tema de ayuda.

        OptionButtons: Es permitir al usuario elegir entre diferentes opciones, dentro de un grupo de opciones. Este no se utiliza de a uno solo, sino que se debe tener por lo menos 2 de ellos, ya que sería ilógico utilizar solo uno.

Owner: Una implementación de IWin32Window que poseerá el cuadro de dialogo modal.

3.-Menciona un Ejemplo de MsgBox:

[pic 1]

[pic 2]

[pic 3]

Public Class Form1

    Private Sub btn_Sumar_Click(sender As Object, e As EventArgs) Handles btn_Sumar.Click

        Dim C1, C2, C3, R As Integer

        C1 = Val(txtCalificacion1.Text)

        C2 = Val(txtCalificacion2.Text)

        C3 = Val(txtCalificacion3.Text)

        R = C1 + C2 + C3

        txtResultado.Text = R

   End Sub

    Private Sub btn_Promedio_Click(sender As Object, e As EventArgs) Handles btn_Promedio.Click

        Dim C1, C2, C3, R As Integer

        C1 = Val(txtCalificacion1.Text)

        C2 = Val(txtCalificacion2.Text)

        C3 = Val(txtCalificacion3.Text)

        R = txtResultado.Text / 3

        txtResultado.Text = R

 End Sub

    Private Sub btnLimpiar_Click(sender As Object, e As EventArgs) Handles btnLimpiar.Click

        txtCalificacion1.Text = ""

        txtCalificacion2.Text = ""

        txtCalificacion3.Text = ""

        txtResultado.Text = ""

    End Sub

    Private Sub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click

        End

    End Sub

    Private Sub btn_SiAprobo_Click(sender As Object, e As EventArgs) Handles btn_SiAprobo.Click

        Dim sNombre As String = "Si Aprobo la materia, arrebaso la calificacion minima de la materia"

        MsgBox(sNombre)

    End Sub

    Private Sub btn_NoAprobo_Click(sender As Object, e As EventArgs) Handles btn_NoAprobo.Click

...