【求助】在VB中创建一个类，其属性中 不能使用MessageBox？？？

chenyq

你不妨设一个变量AAA,则可以AAA=MESSAGABOX.SHOW()。这样应该可以解决。我曾经试过！

BB

您好
我想您應該是使用msgbox吧
  
用法：
傳回值 = MsgBox ("敘述文字","標題文字",MsgBox種類)
MsgBox種類有
                     '按鈕類型
vbAbortRetryIgnore    '異常終止、重試、略過
vbMsgBoxHelpButton  '確定、說明
vbOKCance               '確定、取消
vbOKOnly                 '只有確定(預設)
vbRetryCancel           '重試、取消   
vbYesNo                   '是、否  
vbYesNoCancel           '是、否、 取消
  
                    '圖示類型
vbCritical                  '打叉叉  
vbExclamation           '驚嘆號  
vbInformation           '資訊  
vbQuestion               '問號  
  
運用範例：  
  
Private Sub Command1_Click()  
'MsgBox種類等於 表單類型 OR 圖示類型 OR 按鈕類型  
MsgBox "Hello!! 你好嗎？", vbInformation OR vbYesNo, "打個招呼"  
End Sub
  
Private Sub Command1_Click()  
Rtvl = MsgBox ("Hello!! 你好嗎？", vbInformation OR vbYesNo, "打個招呼")  
Select Case Rtvl  
Case vbYes  
MsgBox "那真是太好了！"
Case vbNo  
MsgBox "那請快樂一點！"
End Select  
End Sub