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交流群 (群号:54525238) 　　　　　　Access源码网店