messageboxbuttons

發(fā)布時(shí)間：2025-08-18 | 來(lái)源：互聯(lián)網(wǎng)轉(zhuǎn)載和整理

1、PrivateSubForm_Load()

2、DimMsge

3、Msge=MsgBox('是否確定退出？'，vbOKCancel，'提示框)

4、IfMsge=vbOKThen

5、卸載我

6、結(jié)束條件

7、EndSub'【(vb6)】

8、` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` ` `……Dim messg As dialog result messg=Forms .MessageBox。顯示('不是MessageBoxButtons '，'的成員消息窗，表格MessageBoxButtons。OKCancel)如果messg=表單.MessageBoxButtons好然后MsgBox('System .窗戶。表格。messagebox按鈕“)”-Dim messg As messagebox result messg=System .窗戶。MessageBox.Show('不是MessageBoxButtons '，'的成員消息窗消息框按鈕.OKCancel) If messg=Forms .MessageBoxButtons好然后MsgBox('System .Windows，MessageBoxButton[S]')