深入浅出VB.NET提示对话框

提示对话框是一种对用户在程序使用过程起信息提示和等待使用者输入数据的对话框总称。在Visual Basic .Net中提示对话框一般是指这两种，一种是等待并提示用户为程序运行输入指定的数据，称为"输入信息对话框"，简称"输入对话框"，另外一种就是起到提示作用，用以确认某种程序的操作，称为"信息提示对话框"，简称"信息提示框"。本文就来探讨一下在Visual Basic .Net中制作这两种信息对话框的方法。



　　内容导读
　　

一．输入对话框	二.信息对话框简介
三．MsgBox函数的参数结构和调用	四．获取MsgBox函数制作的信息对话框的返回值
五．一个利用MsgBox函数来定制信息对话框的示例	六．利用MessageBox类来制作信息对话框
七．获取MessageBox类制作的信息对话框的返回值	八．总结

　　一．输入对话框：

　　制作输入对话框相对信息提示框来相对简单，在Visual Basic .Net，输入对话框是通过InputBox函数来完成的。以下是InputBox函数在Visual Basic .Net中的语法：

Public Function InputBox (ByVal Prompt As String ,Optional ByVal Title As String = "" , _ Optional ByVal DefaultResponse As String = "" ,Optional ByVal XPos As Integer = -1 , _ Optional ByVal YPos As Integer = -1) As String

　　参数说明：

　　Prompt：

　　必选项。以消息形式显示在对话框中的String表达式。Prompt的最大长度大约为1024个字符，具体取决于所用字符的宽度。如果 Prompt 中包含多个行，则可在各行之间用回车符(Chr(13))、换行符(Chr(10))或回车换行符的组合(Chr(13)&Chr(10))分隔各行。

　　Title：

　　可选项。显示在对话框标题栏中的String表达式。如果省略Title则将应用程序名放在标题栏中。

　　DefaultResponse：

　　可选项。显示在文本框中的String表达式，在没有提供其他输入时作为默认响应。如果省略DefaultResponse，则显示的文本框为空。

　　XPos：

　　可选项。数值表达式，以缇为单位指定对话框的左边与屏幕左边的距离。如省略XPos，对话框将水平居中。

　　YPos：

　　可选项。数值表达式，以缇为单位指定对话框的上边与屏幕上边的距离。如果省略ypos，则对话框位于在屏幕垂直方向距下边缘大约三分之一处。

　　以下就是在Visual Basic .Net中使用InputBox函数制作如图01所示对话框的具体代码：

Dim message , title , defaultValue As String Dim myValue As Object message = "请输入数值，数值在1-3之间！" '设定对话框提示信息 title = "输入提示框！" '设置对话框标题 defaultValue = "1" '设定对话框中缺省的数值 myValue = InputBox ( message , title , defaultValue , 100 , 100 ) '设定对话框在左上角坐标位于桌面（100，100）区域显示

图01：通过InputBox函数制作的提示对话框