在Msgbox中添加CheckBox

[andyinfrasys]

我想在MsgBox的弹出对话框上面的左下角加一个CheckBox控件，有时候要覆盖的文件太多，不想每次覆盖文件的时候弹出对话框，所以CheckBox的作用类似于选中后就不再询问是否要覆盖文件了，请问怎样在弹出对话框上面加CheckBox？谢谢！在线等!最好写出代码，十分感谢！

[Sandrer]

利用API函数:MessageBoxIndirect来创建一个自己的对话框

该API函数的好处是，可以用自己写的消息处理函数代替默认的消息处理函数

'函数定义:
Private Declare Function MessageBoxIndirect Lib "user32" Alias "MessageBoxIndirectA" (lpMsgBoxParams As MSGBOXPARAMS) As Long
'类型定义:
Private Type MSGBOXPARAMS
    cbSize As Long
    hwndOwner As Long
    hInstance As Long
    lpszText As String
    lpszCaption As String
    dwStyle As Long
    lpszIcon As String
    dwContextHelpId As Long
    lpfnMsgBoxCallback As Long '把自己定义的消息处理函数地址赋值到这里
    dwLanguageId As Long
End Type

[hongsongboy]

还不如自己写一个提示对话框呢，这样的话加什么东西你说了算。


=====================================
红松软件论坛：www.zbhssoft.com
=====================================

[lertulo]

辦法1，請參考windows YES NO YES TO ALL

辦法2，自繪 MSGBOX 窗口

[of123]

自己写一个提示框窗体，同时，需要将 CheckBox 的值保存在文件中。窗体加载时读入该值，窗体卸载时重写文件。

[andyinfrasys]

请问怎么写呢？

[of123]

在工程中添加窗体(例如叫做frmMsgBox)。这个应该会吧？按提示框的样式布置好各种控件。在需要提示的地方：

frmMsgBox.Show

[tianhuo_soft]

自己做一个窗体来代替 messagebox

以后就不用messagebox这个函数了~

直接用自己的窗体 form.show