关于vb中msgbox函数中的参数请教

我定义了一个函数，部分代码如下，主要是参数声明的问题：
Public Function 更新提示(ByVal 提示信息 As String, ByVal 提示按钮 As msgbox的按钮常数) As Boolean
MsgBox 提示信息, vbInformation + vbYesNo, "入库信息"
End Function

其中的‘ 提示按钮’我想定义成 msgbox函数中的按钮参数 类型，这样我在调用这个函数的时候就会有提示信息提示我选择msgbox的显示类型。可是我不知道这个参数类型的具体名称，有哪位高手知道请指点我一下啊，谢谢！

你问的这个类型名为：vbmsgboxstyle，你要是觉得不好，你还可以自定义一个枚举类（用PUBLIC ENUM XXXX
A=VBMSGBOXSTYLE.XXX
......
END ENUM

Public Function 更新提示(ByVal 提示信息 As String, ByVal 提示按钮 As VbMsgBoxStyle) As Boolean MsgBox 提示信息, 提示按钮, "入库信息" End Function Private Sub Command1_Click() 更新提示 "123", vbOKOnly End Sub

应该这样用： private sub command1_click() if msgbox("确定要删除用户帐号吗？", vbyesno + 32 + vbdefaultbutton2) = vbyes then '在这里写点击“是”按钮之后的响应代码 '其中vbyesno 相当于要求提示框出现“是”和“否”的按钮 '32代表着那个代表信息的i图标 可以用 vbinformation 代替 'vbdefaultbutton2 的意义就是默认焦点在第二个按钮上 msgbox "你点击了是" end if end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息