基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 1 元　

支付宝支付

微信支付

   源码介绍

---

各类弹窗提醒，格式形式和样式

Option Explicit

Private Sub Command1_Click()
    MsgBox "姓名：张三" & vbNewLine & "性别：男" & vbCrLf & "年龄：15" & Chr(13) & "职业：学生"
End Sub

Private Sub Command10_Click()
    MsgBox "←注意看左边的图标,询问信息vbQuestion", vbQuestion
End Sub

Private Sub Command11_Click()
    MsgBox "←注意看左边的图标,vbExclamation警告信息", vbExclamation
End Sub

Private Sub Command12_Click()
    MsgBox "←注意看左边的图标,一般来提示通知信息", vbInformation
End Sub

Private Sub Command13_Click()
    MsgBox "这行文字右对齐，一般用不到", vbMsgBoxRight
End Sub

Private Sub Command14_Click()
    MsgBox "这个对话框在系统最上层，即使你打开别的程序，它也在最上面。", vbSystemModal vbExclamation
End Sub

Private Sub Command15_Click()
    Select Case MsgBox("你点一个按钮试试", vbAbortRetryIgnore)
    Case Is = vbAbort
        MsgBox "你刚才点的是  终止"
    Case Is = vbIgnore
        MsgBox "你点的是  忽略"
    Case Is = vbRetry
        MsgBox "你点的是  重试"
    End Select
    
End Sub

Private Sub Command16_Click()
    MsgBox "这是一个对话框!vbInformation", vbInformation, "这不废话吗？"
End Sub

Private Sub Command2_Click()
    Dim a As String
    a = Text1.Text
    MsgBox "距离高考还有" & a & "天"
End Sub

Private Sub Command3_Click()
    MsgBox "这个对话框只有一个按钮！"
End Sub

Private Sub Command4_Click()
    MsgBox "这个对话框有两个按钮，分别是确定和取消，并且我让第二个按钮是默认按钮", vbOKCancel vbDefaultButton1
End Sub

Private Sub Command5_Click()
    MsgBox "这是终止，重试和忽略，并且我让重试是默认按钮", vbAbortRetryIgnore vbDefaultButton2
End Sub

Private Sub Command6_Click()
    MsgBox "  是，否和取消 组合，并且我让取消是默认按钮", vbYesNoCancel vbDefaultButton3
End Sub

Private Sub Command7_Click()
    MsgBox "是，否  组合对话框", vbYesNo
End Sub

Private Sub Command8_Click()
    MsgBox "重试，取消  组合对话框", vbRetryCancel
End Sub

Private Sub Command9_Click()
    MsgBox "←注意看左边的图标,错误信息vbCritical", vbCritical
End Sub