我的主窗口有一个控件显示的是一张数据库中的表。
我有一个按扭,弹出修改数据库的操作。
我想实现,如果对话框是点确定关闭的。就是修改了数据库,需要刷新控件中的数据,以便和数据库同步。
如果是点取消,或是直接关闭的。就说明没有改到数据库,就不用刷新。但我是不知道窗口是怎么关闭的,是确认之后关闭的,还是取消了关闭的。
from1.show
能不能让窗口关闭时,有一个返回值。
就像
If MsgBox("确认删除", vbYesNo, "标题") = vbYes Then
我可以根据返回值判断窗口是怎么关闭的。
我有一个按扭,弹出修改数据库的操作。
我想实现,如果对话框是点确定关闭的。就是修改了数据库,需要刷新控件中的数据,以便和数据库同步。
如果是点取消,或是直接关闭的。就说明没有改到数据库,就不用刷新。但我是不知道窗口是怎么关闭的,是确认之后关闭的,还是取消了关闭的。
from1.show
能不能让窗口关闭时,有一个返回值。
就像
If MsgBox("确认删除", vbYesNo, "标题") = vbYes Then
我可以根据返回值判断窗口是怎么关闭的。
解决方案 »
- 高手,版主,我想做一个可供输入参数查找按钮.
- 我想将string变量 a的值传递给水晶报表,在报表中显示a的值,应该怎么做呢? 在线等. (环境:vb6 + 水晶报表9.2)
- 关于在打印机上打印!
- 写了个程序,在自己机器上可以运行,为什么到了别的机器就出现这种错误了?
- 亲们,帮我看一下vb代码吧,谢谢
- 各位大哥:怎么用vb关闭所有打开的IE浏览器,在线等!
- 怎么取得Recordset中是数据呢?
- com接口
- 怎样生成动态控件数组??急急!!!
- select field1,field2 from table1??怎么执行不了?
- 创建可输出的Dll文件出错
- vb60调试插件时怎样设置成360的浏缆器为容器
Msg = "Do you want to continue ?" ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "MsgBox Demonstration" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
End If返回值常数 值 描述
vbOK 1 OK
vbCancel 2 Cancel
vbAbort 3 Abort
vbRetry 4 Retry
vbIgnore 5 Ignore
vbYes 6 Yes
vbNo 7 No
把子窗口的确定按钮的DialogResult属性设为Yes,这样就可以。
模块内设置全局变量,在关闭form1时,给它不同的赋值,然后判断这个全局变量的值就知道窗体是怎么关闭的了。
Public bFlag As Boolean
如果是确认关闭窗口的话,bFlag = True在弹出窗体之后,判断这个变量的值
If frmEditPart.bFlag = True Then
'刷新控件里的数据
End If
Private Sub Command1_Click()
Form2.Show 1 '''Form2是主窗口
MsgBox Form2.a
Unload Form2
End Sub
主窗口里
Public a As VbMsgBoxResult
Private Sub Command1_Click()
a = vbYes
Me.Hide
End Sub
这样就可以了