VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如果自定义 MsgBox 的按钮,标题等
发表评论(0)作者:, 平台:, 阅读:14751, 日期:2000-03-12


如果自定义 MsgBox 的按钮,标题等



Private Sub Form_Load()

Dim Msg, Style, Title, Help, Ctxt, Response, MyString

Dim a As Integer, b As String, c As String

Begin:

b = InputBox("请输入 1,2,3")

a = Val(b)

If a = 1 Then

c = vbInformation

ElseIf a = 2 Then c = vbCritical

ElseIf a = 3 Then c = vbQuestion

Else

GoTo Begin

End If

Msg = "王先生:" + Chr$(13) + Chr$(10) + " 您好吗?我很想您。" ' 定义信息。

Style = vbYesNo + c ' 定义按钮。

Title = "冯德平向您问好!" ' 定义标题。

Ctxt = 1000 ' 定义标题

Response = MsgBox(Msg, Style, Title, Help, Ctxt)

If Response = vbYes Then ' 用户按下“是”。

MyString = "Yes" ' 完成某操作。

Else ' 用户按下“否”。

MyString = "No" ' 完成某操作。

End If

End

End Sub