VB6.0 中的关闭按钮"X"的问题

来源：百度知道 编辑：UC知道 时间：2024/06/28 14:37:04
各位仁兄：
我现在用VB6.0开发设计一个系统软件，其中有一些窗体，我想让它实现以下功能，但不知道应该怎么做！还望哪位仁兄能够给小弟解决为谢！
我想实现的功能是：当你要运行VB程序的时候，其中的一些VB子窗体的标题栏上的那个“X”关闭按钮能够照常显示，但是单击它不能关闭当前窗体，只弹出一条信息！然后就反回了。不能让它把窗体给关闭了。
请问各位仁兄怎么实现啊！简单吗？？帮帮忙啊！！！急！

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1
End Sub
这是最简单也最实用的

这很容易，把标题栏去了，然后画几个按钮，包括关闭按钮，最大化等等，自己写就可以了
用msgbox
i=1的时候就是他点yes的时候或者vbyesno换成vbyes,只有确定
dim i as integer

i=msgbox(\"是否关闭\",\"vbyesno\")

if i=1 then
\'没有反应就可以了
else
end sub
end if