VBA之消息框
时 间:2008-01-03 08:35:16
作 者:UMVSOFT整理 ID:16 城市:江阴
摘 要:VBA消息框
正 文:
我们在运行很多(几乎是所有)Windows程序时,会发现这些程序的界面非常友好。友好的人机界面会大大提高用户对程序的好感,使程序变得易用、更容易被接受。一个程序如果有一个好的界面,那么它就成功了一半。同样的,我们用VBA也可以实现良好的人机界面。其中很重要的就是消息框。消息框可以在程序运行中告诉用户下一步该做什么、不该做什么,以及那里除了错误,该如何处理等。消息框就是程序员同用户的对话。那么,下面我们来学习如何利用消息同用户对话。
首先,我们新建一个窗体,上面放上三个控件:文本框“txt姓名”、文本框“txt性别”和命令按钮“com加入”。在窗体模块中写入以下代码:
Option Compare Database
Private Sub com加入_Click()
'声明Name、Sex变量,分别表示姓名,性别
Dim Name As Variant, Sex As Variant
'声明消息框函数将要用到的3个变量,分别代表消息内容、消息框标题和消息常数
Dim Msg, Title, Response
Name = Me.txt姓名 '将“txt姓名”文本框的值赋给变量
Sex = Me.txt性别 '将“txt性别”文本框的值赋给变量
'如果“txt姓名”没有键入值,则弹出错误消息框
If IsNull(Name) = True Then
Beep '发出“嘟”的警告声
Msg = "“姓名”不能为空!" ' 定义信息。
Style = vbOKOnly ' 定义按钮。
Title = "输入错误" ' 定义标题。
Response = MsgBox(Msg, , Title)
End If
'如果“txt性别”没有键入值,则弹出错误消息框
If IsNull(Sex) = True Then
Beep '发出“嘟”的警告声
Msg = "“性别”不能为空!" ' 定义信息。
Style = vbOKOnly ' 定义按钮。
Title = "输入错误" ' 定义标题。
Response = MsgBox(Msg, , Title)
'如果“txt性别”键入值不是&
Access软件网QQ交流群 (群号:483923997)
Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- access软件网站长张志简介 (05.05)
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)