深入浅出提示对话框计划

提示对话框是一种对用户在程序使用过程起信息提示和等待使用者输入数据的对话框总称。在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 = \"请输入数值，数值在之间！\" \'设定对话框提示信息

title = \"输入提示框！\" \'设置对话框标题

defaultValue = \"1\" \'设定对话框中缺省的数值

myValue = InputBox ( message , title , defaultValue , 100 , 100 )

\'设定对话框在左上角坐标位于桌面（100，100）区域显示

为创造更为清洁、健康的生存环境和遏制全球变暖不懈努力。NRDC 在中国的工作依托其在美国及世界其他地区长期积累的专业经验 图01：通过InputBox函数制作的提示对话框

北京白癜风医院在哪
孩子不吃饭有什么好方法
江中黄芪生脉饮多少钱一盒