说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
VB如果自定义 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

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘