如何自自定义MessageBox的界面

Question

我想自定义MessageBox的界面,不知道该如何做呢?

Answer 1

自定系统的,具体不清楚...不过自己写一个貌似也不是很难....看看这个,参考一下它的关于对话框吧:http://www.m5home.com/bbs/dispbbs.asp?boardID=2&ID=20&page=1

Answer 2

MessageBox 其实就是一个窗体，你自己设计好你喜欢的窗体模样，用它做MessageBox 。Public Sub MsgBoxOfMine(strTmp As String)
    With MyMsgBox
        Beep
        .labWarn.Caption = strTmp ‘要显示的信息。labWarn：窗体的lable控件
        .Caption = "信息窗的名称"
        .Show 0
        .cmdNo.Visible = False   ’以下是常用的按钮
        .cmdYes.Visible = False
        .cmdClose.Visible = True
    End With
End Sub调用事例：
sub command1_clock()
  MsgBoxM "我的MsgBox,请选择yes or no, 或直接 close"
end sub

Answer 3

代码再整理一下.MessageBox 其实就是一个窗体，你自己设计好你喜欢的窗体模样，用它做MessageBox 。Public Sub MsgBoxOfMine(strTmp As String) 'strTmp 是你要弹出的信息
    With MyMsgBox
        Beep
        .labWarn.Caption = strTmp ‘要显示的信息。labWarn：窗体的lable控件
        .Caption = "信息窗的名称"
        .Show 0
        .cmdNo.Visible = False   ’以下是常用的按钮
        .cmdYes.Visible = False
        .cmdClose.Visible = True
    End With
End Sub调用事例：
sub command1_clock()
  MsgBoxOfMine "我的MsgBox,请选择yes or no, 或直接 close"
end sub

Answer 4

代码再再整理一下.真麻烦,没有编辑功能,写错了还得重发.MessageBox 其实就是一个窗体，你自己设计好你喜欢的窗体模样，用它做MessageBox 。Public Sub MsgBoxOfMine(strTmp As String) 'strTmp 是你要弹出的信息
    With MyMsgBox  'MyMsgBox 是信息窗名
        Beep
        .labWarn.Caption = strTmp ‘要显示的信息。labWarn：窗体的lable控件
        .Caption = "信息窗的名称"
        .Show 0
        .cmdNo.Visible = False   ’以下是常用的按钮,当然在MyMsgBox中得加相应处理代码
        .cmdYes.Visible = False
        .cmdClose.Visible = True
    End With
End Sub调用事例：
sub command1_click()
  MsgBoxOfMine "我的MsgBox,请选择yes or no, 或直接 close"
end sub