高考问答消防绘画图片二等奖:VB6.0 MsgBox中怎么使“×”不可用？
来源：百度文库 编辑：高考问答 时间：2024/05/03 19:16:16
实验一个小程序，用到VB6.0，问大家：
我想用MsgBox函数出一个消息，但是我很想让这个消息窗口上的那个“×”不可用，就是能看见，但是点击时消息窗口不关闭！怎么实现呢？
怎样调用"X"的过程？来进行改变？？
我想用MsgBox函数出一个消息，但是我很想让这个消息窗口上的那个“×”不可用，就是能看见，但是点击时消息窗口不关闭！怎么实现呢？
怎样调用"X"的过程？来进行改变？？
Private Sub cmdOk_Click()
'让消息框的关闭按钮失效
If MsgBox("这样就可以让关闭按钮变为无效！", vbYesNo + vbQuestion) = vbYes Then
End
End If
End Sub
这样就可以很方便地让消息框的"×"失效!
调用×的过程，改变过程。
自己做一个MSG函数, 具有MsgBox一样的参数, 然后在MSG函数里实现自己的模式窗口, 替代系统MsgBox窗口,
这样在所有调用MsgBox的地方改为调用你的函数就可以了.
自已的容窗口很容易实现无系统菜单功能(即没有"X")
创建一个按钮，取名Command1
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "请点击Command1按钮来结束程序", vbOKOnly, "提示"
Cancel = 1
End Sub
拦截Form_Unload事件就可以了。