skwenl 发表于 2007-11-14 08:52
[求助]在vb2005中怎么实现下面图中的"退出"对话框
<P>请问各位大虾,在vb2005中怎么实现下面图的功能(例如程序主窗体上有一"退出"按钮,单击后就弹出此对话框,当用户单击"确定"就退出整个系统,单击"取消"就不退出)???谢谢了<BR></P><IMG>
skwenl 发表于 2007-11-14 08:53
[IMG]C:\Documents and Settings\sq.A6598B4F9A26477\桌面\1.jpg[/IMG]
hezhifang 发表于 2007-11-14 09:38
Dim x As Integer<BR> x = MsgBox("你确认要退出吗?", MsgBoxStyle.OkCancel Or MsgBoxStyle.Critical, "确认退出?")<BR> If x = 1 Then<BR> Me.Close()<BR> End If<BR> End Sub<BR><BR><BR>是要实现这个功能吗?<BR><BR> ' 根据msgbox的返回值，来做条件判断 如果按"确定"，x=1 按“取消” x=2
bygg 发表于 2007-11-14 09:38
图片看不到，是窗体还是网页？
fairy4 发表于 2007-11-14 09:39
看不到圖片！<BR>你可以判斷以下啊 ！<BR> If MsgBox("是否退出？", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "System Message") = MsgBoxResult.No Then<BR> Exit Sub<BR>else<BR>end '或者 application.exit()<BR>end if
skwenl 发表于 2007-11-14 10:06
<P>呵呵,不好意思,是窗体.....</P>
bygg 发表于 2007-11-14 10:10
5楼的方法<BR>用application.exit()比较好<BR>
simpson 发表于 2007-11-14 10:37
Querry_Unload<BR><BR><STRONG>里加上判断</STRONG>
skwenl 发表于 2007-11-14 10:49
<DIV class=quote><B>以下是引用<U>bygg</U>在2007-11-14 10:10:48的发言：</B><BR>5楼的方法<BR>用application.exit()比较好<BR><BR></DIV>
<P>ok,就用5楼的试试先,谢谢各位的回复了.谢谢..-</P>
skwenl 发表于 2007-11-14 15:02
各位,不好意思,再继续问一下,vb 2005中主窗体退出过程应该是form1_fromclose吧? 如果是的话,我把5楼的代码放进这个过程中,点"否"时,还是会退出系统,请问是什么原因呢?这个与vb 6.0不知同不同?
fairy4 发表于 2007-11-14 15:28
<P>單個窗體退出是me.close()<BR>程序退出（多窗體）是end 或者appliaction.exit()</P>
skwenl 发表于 2007-11-14 15:42
呵呵,我是这个意思--------软件一般都有个主窗体,我的想法: 用户单击主窗体上"X"与单击主窗体上的"退出"控件按钮(人为加上去的)的功能要一样,都会弹出上面我说的那个对话框,且单击"是"时会退出主窗体,单击"否"时就不会退出主窗体.<BR><BR><BR>还有当我把5楼的代码放在主窗体的 form1_formclose过程中时,单击"否"也退出主窗体
fairy4 发表于 2007-11-14 16:06
<P>昏死，你說清楚啊 ！<BR> If MsgBox("是否退出？", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2, "System Message") = MsgBoxResult.No Then<BR> e.Cancel = True<BR> Else<BR> e.Cancel = False</P>
<P> End If<BR>放在closing事件里面 <BR></P>
skwenl 发表于 2007-11-14 16:13
sorry,sorry,谢谢fairy4的回复...呵呵,我再试试
fairy4 发表于 2007-11-14 16:17
我那代碼是放在button按鈕里面的，系統按鈕必須要獲取消息！。。。。
skwenl 发表于 2007-11-14 16:48
呵呵,先试试哦,谢谢了
页:
[1]
