第十��:VB的内建函��

VB 函数��一般程��非常相似，不过它主要的功能是接受某些数值然后把它交于主程序去完成执��. 函数可分为两种，一种是内建函数，另一种是外部函数。内建函数是VB系统定义的函数，外部函数则是程序师自己设计出来的函数��

在这一课中，我们要学习两个很基本的，但却是很有用的内建函数, 那就�� MsgBox( ) �� InputBox ( )` 函数

10.1 MsgBox ( ) 函数

Msgbox的作用是显示一个弹出式消息框，并提示用户点击一个命令按钮以继续进行下一个任务��Msgbox的结��如下��

yourMsg=MsgBox(Prompt, Style Value, Title)

Msgbox 中的第一个参�� Prompt 是用来显示在消息框中的信讯息�� 参数 Style Value 是确定什么类型的命令按钮出现在消息框中（请参阅表10.1��. 参数Title 显示留言板上的标��

��10.1: Style Value

Style Value	命名常数	显示的按��
0	vbOkOnly	Ok button
1	vbOkCancel	Ok and Cancel buttons
2	vbAbortRetryIgnore	Abort, Retry and Ignore buttons.
3	vbYesNoCancel	Yes, No and Cancel buttons
4	vbYesNo	Yes and No buttons
5	vbRetryCancel	Retry and Cancel buttons

我们也可用命名常数来取代Style value 参数. 其实, VB6 会自动显示所有的命名常数，您只需要选择其中之一��

例子:

yourMsg=MsgBox( "Click OK to Proceed", 1, "Startup Menu")

�� yourMsg=Msg("Click OK to Proceed". vbOkCancel,"Startup Menu")

是一样的��

yourMsg 是个可持有由MsgBox ( ) 函数接受的价值的变数 . 这些价值是由各类型的按钮被点击而决定的��

��10.2显示值，相应的命名常数和按钮��

�� 10.2 : 返回值和命令按钮

��	常数	被点击的按钮
1	vbOk	Ok button
2	vbCancel	Cancel button
3	vbAbort	Abort button
4	vbRetry	Retry button
5	vbIgnore	Ignore button
6	vbYes	Yes button
7	vbNo	No button

范例10.1

在图10.1中，你制定三个命令按钮和一个标签显��

�� 10.1

test button的程��:

Private Sub Test_Click()
Dim testmsg As Integer
testmsg = MsgBox("Click to test", 1, "Test message")
If testmsg = 1 Then
Display.Caption = "测试成功"
Else
Display.Caption = "测试失败"
End If

End Sub
　

当用户按一下测试按钮，图像10.2将会出现。当用户按一下确定按钮，该邮件“测试成功”会被显示出来，当他点击取消按钮，该邮件“测试失败”会被显示��

�� 10.2

为了使消息框看起来更精密的，您可以添加一个图�� VB中有四种类型的图标，如表10.3所显示

�� 10.3

��	常数	图标
16	vbCritical
32	vbQuestion
48	vbExclamation
64	vbInformation

范例 10.2

�� 10.3

Private Sub test2_Click()
Dim testMsg2 As Integer
testMsg2 = MsgBox("Click to Test", vbYesNoCancel + vbExclamation, "Test Message")
If testMsg2 = 6 Then
display2.Caption = "测试成功"
ElseIf testMsg2 = 7 Then
display2.Caption = "您肯定吗?"
Else
display2.Caption = "测试失败"
End If

End Sub
　

10.2 InputBox( ) 函数

InputBox �� 函数将显示一个消息框以便用户可以输入一个值或一个信息。它的形式如下；

myMessage=InputBox(Prompt, Title, default_text, x-position, y-position)

myMessage 是一��Variant 数据类型，但通常这是宣布为字符串，它接受由用户输入的信息

Prompt	通常显示为一个质诀��
Title	输入框的标题��
default-text	在输入栏位显示的文字，，用户可以使用它来作为他的输入或他可能会改变的讯息��
x-position and y-position	输入框的位置或坐��

范例10.3

��10.4

ii. OK 按钮的程��

Private Sub OK_Click()
Dim userMsg As String
userMsg = InputBox("What is your message?", "Message Entry Form", "Enter your messge here", 500, 700)
If userMsg <> "" Then
message.Caption = userMsg
Else
message.Caption = "没有消息"
End If

End Sub

当用户在输入框点击OK按钮时，��10.5 将会出现。当用户键入一个信息，然后点击OK按钮，这信息将显示在标题，如果他点击Cancel按钮�� “没有消息”会被显示��

��10.5

❮ 上一�� 下一�� ❯

[Privacy Policy]