日志

消息框的学习 LJS整理于20121227

已有 935 次阅读2012-12-27 11:20 |系统分类:应用

(1)用vbTab显示单元格的值 vbTab插入制表符号
Private Sub UserForm_Click()

Dim Msg As String

Dim r As Integer, c As Integer

Dim cells(0 To 2, 0 To 2) As Integer

cells(0, 0) = 1: cells(1, 0) = 2: cells(2, 0) = 3

cells(1, 0) = 2: cells(1, 1) = 3: cells(1, 2) = 4

cells(2, 1) = 2: cells(0, 1) = 3: cells(0, 2) = 4

Msg = ""

For r = 0 To 2

   For c = 0 To 2

     Msg = Msg & cells(r, c) & vbTab

   Next c

   Msg = Msg & vbCrLf

Next r

MsgBox Msg

End Sub

(2)定义界面

Private Sub ...()

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

   Msg = "Do you want to continue ?"   '定义消息文本

   Style = vbYesNo + vbCritical + vbDefaultButton2     '定义按钮第二个为缺省按钮

                                                       'VbCritical          16 显示“关键信息”图标
                                                       'VbQuestion          32 显示“警告询问”图标
                                                       'VbExclamation       48 显示“警告消息”图标
                                                       'VbInformation       64 显示“通知消息”图标
                                                       'vbDefaultButton1    0   第一个按钮是缺省值(缺省设置)
                                                       'vbDefaultButton2    256 第二个按钮是缺省值
                                                       'vbDefaultButton3    512 第三个按钮是缺省值
                                                       'vbDefaultButton4    768 第四个按钮是缺省值


   Title = "MsgBox Demonstration"     ' 定义标题文本

   Help = "DEMO.HLP"     ' 定义帮助文件

   Ctxt = 1000     ' 定义帮助主题

                   'Context-------可选的。数值表达式，由作者指定给帮助主题上下文编号。提供 context，也必须提供 helpfile


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

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

    MyString = "Yes"     ' 完成某操作

   Else     ' 用户按下“否”

    MyString = "No"     ' 完成某操作

   End If

End Sub

路过

雷人

握手

鲜花

crazylsp的个人空间 http://www.mjtd.com/?369855 [收藏] [复制] [分享] [RSS]

日志

消息框的学习 LJS整理于20121227

全部作者的其他最新日志

评论 (0 个评论)

crazylsp