VB教案消息框(MsgBox)输入框(InputBox)
第三章 输入框与窗体
第三章
输入框与窗体
第四节 窗体的常用事件
1）Click 事件（单击事件） 当用户在窗体上按一下鼠标左键时，就触发了单击事 件。 2）Dbclick事件（双击事件） 当用户在窗体上快速按两下鼠标左键时，会触发双击 事件。 3）Load事件（装载事件） 把窗体装入内存工作区时发生的事件。 4）Unload事件（卸载事件） 当窗体从内存中卸载是发生
Private Sub Form_Click() Form1.Caption = “单击鼠标”：Form1.Print "欢迎使用VB！" End Sub Private Sub Form_DblClick() Form1.Caption = “双击鼠标” ：Form1.Picture = LoadPicture("") Form1.Print "结束使用VB！" End Sub Private Sub Form_Load() Form1.Picture = LoadPicture("g:\picture\tsg1.jpg") Form1.FontSize = 48 ：Form1.FontName = "隶书" End Sub
12
第三章
输入框与窗体
第三节 窗体的属性
4）controlbox属性 该属性指定是否在窗体的标题栏中显示控制按钮，包 括放大、缩小、关闭按钮。 5）autoRedraw属性 该属性控制窗体上由绘图方法构成的图形在窗体被遮 挡、然后重新显示时系统是否自动重绘这些图形。 6）BackColor(背景颜色) 和 ForeColor（前景颜色）属性 这两个属性分别用于确定窗体的背景颜色和前景颜色 其中RGB()语法格式为： RGB(red,green,blue) , 数值范围0—255 指定颜色除上述方法还有三种方法 QBColor(颜色码) 颜色码取值范围0—15；直接输入值(数值格式是十六 进制)；使用颜色常数如：vbBlack vbRed vbGreen 等。
vb中msgbox用法
VB中的函数，可实现弹出窗口.作用：在对话框中显示消息，等待用户单击按钮，并返回一个Integer 告诉用户单击哪一个按钮。
语法：MsgBox(prompt[, buttons] [, title] [, helpfile, context])参数说明：MsgBox 函数的语法具有以下几个命名参数：Prompt-------必需的。
字符串表达式，作为显示在对话框中的消息。
prompt 的最大长度大约为1024 个字符，由所用字符的宽度决定。
如果prompt 的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10)) 或是回车与换行符的组合(Chr(13) & Chr(10))将各行分隔开来。
Buttons-------可选的。
数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。
如果省略，则buttons 的缺省值为0。
Title-------可选的。
在对话框标题栏中显示的字符串表达式。
如果省略 title，则将应用程序名放在标题栏中。
Help可选的。
字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。
如果提供了helpfile，则也必须提供context。
Context-------可选的。
数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。
如果提供了context，则也必须提供helpfile。
用于MsgBox函数中Button参数的常量常量值说明vbOKOnly 0 只显示“确定”按钮VbOKCancel 1 显示“确定”和“取消”按钮VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮VbYesNoCancel 3 显示“是”、“否”和“取消”按钮VbYesNo 4 显示“是”和“否”按钮VbRetryCancel 5 显示“重试”和“取消”按钮VbCritical 16 显示“关键信息”图标VbQuestion 32 显示“警告询问”图标VbExclamation 48 显示“警告消息”图标VbInformation 64 显示“通知消息”图标vbDefaultButton1 0 第一个按钮是缺省值(缺省设置)vbDefaultButton2 256第二个按钮是缺省值vbDefaultButton3 512第三个按钮是缺省值vbDefaultButton4 768第四个按钮是缺省值vbApplicationModal 0应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作vbSystemModal 4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作vbMsgBoxHelpButton 16384将Help按钮添加到消息框VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口vbMsgBoxRight 524288文本为右对齐vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示说明：(1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目；第二组值(16,32,48,64)描述了图标的样式；第三组值(0,256,512,768)说明哪一个按钮是缺省值；而第四组值(0,4096)则决定消息框的强制返回性。
VB 提示框MsgBox用法
VB 提示框MsgBox用法MsgBox是VB中的函数，可实现弹出窗口.作用：在对话框中显示消息，等待用户单击按钮，并返回一个Integer 告诉用户单击哪一个按钮。
语法：MsgBox(prompt[, buttons] [, title] [, helpfile, context])参数说明：MsgBox 函数的语法具有以下几个命名参数：Prompt-------必需的。
字符串表达式，作为显示在对话框中的消息。
prompt 的最大长度大约为1024 个字符，由所用字符的宽度决定。
如果prompt 的内容超过一行，则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10)) 或是回车与换行符的组合(Chr(13) & Chr(10)) 将各行分隔开来。
Buttons-------可选的。
数值表达式是值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。
如果省略，则buttons 的缺省值为0。
Title-------可选的。
在对话框标题栏中显示的字符串表达式。
如果省略title，则将应用程序名放在标题栏中。
Helpfile--------可选的。
字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。
如果提供了helpfile，则也必须提供context。
Context-------可选的。
数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。
如果提供了context，则也必须提供helpfile。
用于MsgBox函数中Button参数的常量常量值说明vbOKOnly 0 只显示“确定”按钮VbOKCancel 1 显示“确定”和“取消”按钮VbAbortRetryIgnore 2 显示“终止”、“重试”和“忽略” 按钮VbYesNoCancel 3 显示“是”、“否”和“取消”按钮VbYesNo 4 显示“是”和“否”按钮VbRetryCancel 5 显示“重试”和“取消”按钮VbCritical 16 显示“关键信息”图标VbQuestion 32 显示“警告询问”图标VbExclamation 48 显示“警告消息”图标VbInformation 64 显示“通知消息”图标vbDefaultButton1 0 第一个按钮是缺省值(缺省设置)vbDefaultButton2 256第二个按钮是缺省值vbDefaultButton3 512第三个按钮是缺省值vbDefaultButton4 768第四个按钮是缺省值vbApplicationModal 0应用程序强制返回；应用程序一直被挂起，直到用户对消息框作出响应才继续工作vbSystemModal 4096系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作vbMsgBoxHelpButton 16384将Help按钮添加到消息框VbMsgBoxSetForeground 65536指定消息框窗口作为前景窗口vbMsgBoxRight 524288文本为右对齐vbMsgBoxRtlReading 1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示说明：(1)第一组值(0–5)描述了消息框中显示的按钮的类型与数目；第二组值(16,32,48,64)描述了图标的样式；第三组值(0,256,512,768)说明哪一个按钮是缺省值；而第四组值(0,4096)则决定消息框的强制返回性。
excel vba使用InputBox方法详解
excel vba 使用InputBox 方法详解在Excel 中输入简单的数据可以使用InputBox 函数显示的对话框，但是如果输入的数据类型不匹配时，过程运行时会产生意外错误。
为了避免此类情况发生，可以使用另一种获得用户输入的方式——InputBox 方法。
输入指定类型的数据使用InputBox 方法输入数据时可以指定数据的类型，如下面的代码所示。
复制内容到剪贴板代码:#001 Sub dInput()#002 Dim dInput As Double#003 Dim r As Integer#004 r = Sheet1.Range("A65536").End(xlUp).Row#005 dInput = Application.InputBox(Prompt:="请输入数字：", Type:=1) #006 If dInput <> False Then#007 Sheet1.Cells(r + 1, 1).Value = dInput#008 Else#009 MsgBox "你已取消了输入!"#010 End If#011 End Sub代码解析：dInput 过程使用InputBox 方法显示一个提示用户输入数字的对话框。
InputBox 方法显示一个接收用户输入的对话框，返回此对话框中输入的信息，语法如下：expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)参数expression 是必需的，返回一个Application 对象。
参数Prompt 是必需的，作为对话框消息显示的字符串表达式。
参数Title 是可选的，作为显示在对话框标题栏中的字符串表达式。
如果省略Title 参数，将使用默认的标题。
VB4
4.2.4 其他常用的方法
1．Cls方法 【功能】 Cls方法用于清除Print方法在窗体或图片框中显示的 文本或图像。 【格式】 [<对象.>] Cls 2．Move方法 【功能】 Move方法用于改变对象的位置以及大小。 【格式】 [<对象.>] Move <左边距>[,<上边距>[,<宽度>[,<高度>]]]
“确定”按钮 “取消”按钮 “终止”按钮 “重试”按钮 “忽略”按钮 “是” 按钮 “否” 按钮
4.2.3 标签
标签控件用于显示文本，常常用于显示文字信息。标签和文本框 最大的区别就在于，文本框控件不仅可以显示文本，而且还能够在程序 运行中输入文本信息。 标签控件常用的属性如下。 （1）Name属性。是惟一标识标签的名称，缺省值是LabelN（N＝1， 1 Name LabelN N 1 2…）。如果要修改标签的名称，建议以Label的缩写lbl作为前缀，再加 2 Label lbl 上一个有意义的名称来命名程序中的标签。 （2）Caption属性。是标签中最常用、最重要的属性，用于显示标签的 文本内容，缺省值是LabelN（N＝1，2…）。可以在程序设计时通过属 性窗口设置，也可以在程序编写中进行设置。
默认按钮为第1个按钮
256
vbDefaultButton2
默认按钮为第2个按钮
512
vbDefaultButton3
默认按钮为第3个按钮
MsgBox函数的返回值
返回值 1 2 3 4 5 6 7 符号常量 vbOk vbCancel vbAbort vbRetry vbIgnore vbYes vbNo 意 义
4.1.1 InputBox函数
2 2012 VB实验二 数据的输入输出
VB实验二数据的输入输出
一、实验目的
练习数据的输入输出方法，例如inputbox函数的使用方法以及print方法。
二、实验内容
1、通过Inputbox函数生成输入框并输入本人信息，然后将本人信息在窗体上显示出来。
如下图所示：
2、设计并制作一个小程序，该程序通过Inputbox函数先后输入3个学生的考试成绩，然后通过msgbox输出显示这三个学生的平均成绩和总成绩。
（注意在最后的msgbox界面上还应显示本人的班级学号和姓名以便老师评阅。
）
三、实验要求
1、按要求完成实验题目，并使用Word写出实验报告，文件名的命名规则为“学号姓名实验 1.doc”，例如：若张三同学的学号为“20100826”，则其文件命名为“20100826张三实验1.doc”，
2、实验报告应包括窗口运行时的截图，以及相应的实现代码。
抓图操作提示：
第一步：复制窗口（PrtSc或者Alt+PrtSc）；其中“PrtSc”操
作复制整个屏幕图像；“Alt+PrtSc”操作复制当前窗口；
第二步：在Word文档中需插入图像处进行“粘贴”操作。
3、实验结束后将实验报告上传到下面的FTP，因学校内网、外网有别，上传至其中之一即可：
ftp://192.168.1.251 (适用于在六层中心机房上课的同学) ftp://124.128.217.135(备用，适用于在六层中心机房上课的同学) ftp://210.44.172.251 (适用于五层机房、图书馆电子阅览室、学生宿舍)
用户名：请询问任课教师
密码：请询问任课教师
实验报告内容、文件命名不规范者，实验成绩按0分处理。
因每人完成的截图都不一样，请独立完成作业。
VB教程窗体和简单的输入输出
常数
值 描述
vbFormControlMenu 0 用户从窗体上的“控件”菜单中选择“关闭”指令。
vbFormCode
1 Unload 语句被代码调用。
vbAppWindows
2 当前 Microsoft Windows 操作环境会话结束。
vbAppTaskManager 3 Microsoft Windows 任务管理器正在关闭应用程序。
Visual Basic程序设计
卸载窗体: ①Unload 窗体名 或 Unload me ②关闭按钮 ③End （End 语句，立即结束程序。不触 发Unload和QueryUnload事件。）
Visual Basic程序设计
三、鼠标事件
6.鼠标事件
最常用的鼠标事件为Click和DbClick事件。 绘图中还常用：MouseMove、 MouseDown、MouseUp
【例】编写程序在窗口标题栏中显示鼠标当前的坐标位置。
– Button 按钮常数。左按钮（1）、右按钮（2） Shift 换档常数。 Shift键(1)、 Ctrl键(2) 、Alt键(4) X 鼠标的水平坐标 Y 鼠标的垂直坐标 & 字符串连接操作符
Visual Basic程序设计
鼠标事件示例
键盘事件
MsgBox("直接显示提示信息，用户只能选择[确定]按钮！",0,"信息提示")
MsgBox("显示三个按钮，让用户进行选择！",2,"信息提示")
MsgBox("显示两个按钮，让用户进行选择，并出现问号！", 4 + 32, "信息提示")
MsgBox示例程序 Visual Basic程序设计
河北版信息技术七年级下册《走近VB》教学设计
走近VB本课是本单元的第一课，主要引导学生初步认识程序编写工具——VB，并通过制作简单的VB程序，熟悉VB中各种控件的使用方法，了解可执行文件的设计过程。
本课课时建议2课时。
1．关于软件学习通过Flash、Dreamweaver的学习，学生对应用软件有了很深的认识。
我们在使用工具过程中，只要掌握了这个工具的使用方法，就能很快运用这个工具，学习软件的道理是一样的，只要掌握了该软件的功能和作用，就可以熟练使用该软件。
VB和Flash、Dreamweaver在软件设计上有很多共同的地方，比如菜单、工具箱、属性面板等，不同的是功能上的区别，VB主要是用来设计程序的软件，VB本身就是一个程序。
学习VB，主要是掌握程序设计的基本要素和程序设计思想。
程序设计思想是在具体的VB活动中，由学生输入代码、计算机输出结果的过程中慢慢体会。
2．认识VBVB6.0安装完成后，“Microsoft Visual Basic 6.0中文版”菜单选项即加入到“开始”菜单的“程序”组中。
单击其中的“Microsoft Visual Basic 6.0中文版”即可启动VB 6.0（如图一）。
VB启动后，首先显示“新建工程”对话框，如果单击对话框下面的“不再显示这个按钮”，在下次启动VB后将不再出现该对话框。
缺省状态下“新建工程”对话框的选项为“标准EXE”，标准EXE程序是典型的应用程序。
VB的操作界面：标题栏：用来显示窗口的标题。
工具栏：它以图标按钮的形式提供了常用的菜单命令。
单击工具栏上的按钮，则执行该按钮所代表的操作。
按照缺省规定，启动VB之后显示“标准”工具栏。
工具箱：工具箱提供了一组在设计时可以使用的常用工具，这些工具以图标的形式排列在工具箱中。
这些工具就像制作机械零件的模具一样。
利用模具可以做出零件，利用工具箱中工具可以做出控件。
双击工具箱中的某个工具图标，或单击工具图标后按住鼠标左键在窗体上拖动，即可在窗体上做出一个这种控件。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
（十一）消息对话框和输入对话框
消息对话框一般用MsgBox函数生成。
（比自行设计窗体来得方便）。
用于在程序运行过程中，对用户提示一些简短的信息，并根据用户的选择回答进行相应的处理。
一．消息对话框（MsgBox）
1．格式：
MsgBox（<提示字符串> [，<图标按钮类型值>] [，<标题字符串>]）
2．功能：
按指定格式，输出一个含<提示字符串>的对话框，供用户进行选择处理。
3．说明：
（1）<提示字符串>：
为C型表达式，其值显示在消息对话框中。
字符串长度≤1KB。
若要分行显示，应在分行处用“+”或“&”连接Chr（13）（回车符）或Chr（10）（换行符）或二者组合。
（2）[<图标，按钮类型值>]：
缺省值为0，是各种类型值的总和。
各种类型的值表示内容为：
0：只显示“确定”按钮（OK）
1：显示“确定”和“取消”按钮（OK，Cancel）
2：显示“终止（Abort）”、“重试（Retry）”、“忽略（Ignore）”按钮
3：显示“是（Yes）”、“否（No）”、“取消（Cancel）”按钮。
4：显示“是（Yes）”、“否（No）”按钮。
5：显示“重试（）”和“取消（Cancel）”按钮。
16：显示图标表示错误批评
32：显示图标表示疑问
48：显示图标表示警告
64：显示图标i 表示信息资料
0：表示第一个按钮为缺省活动按钮。
256：表示第二个按钮为缺省活动按钮。
512：表示第三个按钮为缺省活动按钮。
768：表示第四个按钮为缺省活动按钮。
注：每组最多只能取一个数值，相加产生类型值总和。
（3）单击不同按钮后，MsgBox的返回值：
1：单击“确定(Ok)”
2：单击“取消(Cancel)”
3：单击“终止(Abort)”
4：单击“重试(Retry)”
5：单击“忽略(Ignore)”
6：单击“是(Yes)”
7：单击“否(No)”
（4）［＜标题字符串＞］：
决定消息对话框标题栏中显示的内容。
可以是Ｃ型表达式。
缺省时，标题栏显示应用程序名。
（５）MsgBox函数可以写成语句格式：
MsgBox <提示字符串>［，<图标、按钮类型值>］［，<标题字符串>］
二．输入对话框：
输入对话框一般用InputBox函数来生成。
用于在程序运行中，让用户输入一些文本信息。
1．格式：
InputBox（<提示字符串>［，<标题字符串>］［，<文本框显示的缺省值>］［，x］［，y］）
2．功能：
显示一个含<提示字符串>的对话框，让用户在文本框中输入文本信息，单击“确定”
或按回车键，则返回文本框内容，单击“取消”则返回一个空串。
3．说明：
（1）<提示字符串>：
为C型表达式，其值出现在输入对话框中。
最大长度为1KB。
若要分行显示，不能直接按回车键应用“+”或“&”连接Chr（13）或Chr（10）或Chr（13）&Chr（10）插入在分行处。
（2）［<标题字符串>］：
决定对话框标题栏显示的内容。
缺省时，标题栏显示应用程序名。
可以是Ｃ型表达式。
（3）［，<文本框显示的缺省值>］：
决定了文本框初始显示并被选中的文本内容。
作为无输入时的返回默认值。
缺省时文本框为空。
可以是C型表达式。
（4）［，x］：
决定对话框左边与屏幕左边的距离。
缺省时对话框呈水平居中状态。
可以是N型表达式。
（5）［，y］：
决定对话框上边与屏幕上边的距离。
缺省时对话框显示在垂直下1/3的位置。
三．通用对话框
1．通用对话框控件不在默认的工具箱中，可通过下列方式调用：
●执行菜单：“工程”＼“部件”＼“控件”选项卡＼复选“Microsoft Common Dialog Control
6.0”
●右单击工具箱，在快捷菜单中选“部件”，打开“部件”对话框
●按^T，用快捷键打开“部件”对话框
2．通用对话框可通过下列六种方法打开六种标准对话框：
（1）ShowOpen方法显示“打开”对话框
（2）ShowSave方法显示“另存为”对话框
（3）ShowColor方法显示“颜色”对话框
（4）ShowFont方法显示“字体”对话框
（5）ShowPrinter方法显示“打印”对话框
（6）ShowHelp方法显示“帮助”对话框
四．自定义对话框：
如果VB提供的标准对话框不能满足要求，则可通过编程方式自定义对话框，其操作要点为：
1．先创建一个窗体，并设定以下常用属性：
Name：窗体名称，程序中调用对话框用。
Caption：标题栏显示与对话框有关的字符串。
BorderStyle：边框类型，可根据需要选6种之一。
ControlBox：设为True时“最大化”、“最小化”、“关闭”三个按钮有效。
MaxButton：当BorderStyle设为可改变边框大小，且ControlBox为True时，MinButton：此两个属性才能设置。
是否出现最大（小）化按钮。
2．向窗体中添加控件，并设置各控件属性。
3．编写程序代码。