深入浅出VB.NET提示对话框[组图]

　　一．输入对话框：

　　制作输入对话框相对信息提示框来相对简单，在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函数制作的提示对话框