Office中国论坛/Access中国论坛

标题: [求助]请教关于打开多个同一窗体 [打印本页]

作者: mrl 时间: 2006-4-6 07:43
标题: [求助]请教关于打开多个同一窗体
窗体上有两可以打开多个同一窗体的按键，应如何判断窗体已经被打开？以下语句应如何加入判断：如果有Child0源对象为FrmCaption的窗体已经被打开时询问是否继续打开，如果按否则将焦点移到已经被打开的窗体上，反之则继续打开同一窗体。

Function OpenAClient(FrmCaption As String)
Dim Frm As Form

Set Frm = New Form_公用窗体                   '打开并显示新实例,
Frm.Caption = FrmCaption                         '设置标题属性
Frm.Child0.SourceObject = FrmCaption
Frm.Visible = True
   clnClient.Add Item:=Frm, Key:=CStr(Frm.Hwnd)    '添加窗口实例集合变量
Set Frm = Nothing

End Function[attach]16912[/attach]

作者: Grant 时间: 2006-4-6 10:43
判断窗体是否打开的方法

Function IsLoaded(strName As String, Optional intObjectType As Integer =

acForm)

IsLoaded = (SysCmd(acSysCmdGetObjectState, intObjectType, strName) <> 0)

End Function

使用 IsLoaded 属性可以确定当前是否加载了 AccessObject。Boolean 型，只读。
以下是一个示例：
If CurrentProject.AllForms("frmMain").IsLoaded = True Then
Forms!frmMain.Form.Visible = False
End If

作者: mrl 时间: 2006-4-6 21:55
以上方法好像是用窗体名来判断，我的例子是打开多个同一窗体，窗体名都是相同的，只是窗体中的子窗体的源对象不同，所以判断的条件就是子窗体的源对象。

我有个思路：能否将 FrmCaption（子窗体的源对象）添加窗口实例集合变量中，然后在打开并显示新实例前检查FrmCaption是否在集合变量中……

可惜我对vba不熟悉不知应怎样写。

作者: fan0217 时间: 2006-4-6 22:54
窗体名都是相同的？？？

窗体的名称不可能相同的啊！

作者: mrl 时间: 2006-4-6 23:11

以下是引用fan0217在2006-4-6 14:54:00的发言：

窗体名都是相同的？？？

窗体的名称不可能相同的啊！

以下窗体标题用 Me.Caption = Me.Name 获得。四个窗体的名字都相同

[attach]16932[/attach]

作者: fan0217 时间: 2006-4-6 23:24
你把窗体的标题和名称混淆了，标题Caption是在窗体的标题栏显示的内容，而Name是在数据库窗口显示的名称是不能同名的。

作者: mrl 时间: 2006-4-7 02:19

以下是引用fan0217在2006-4-6 15:24:00的发言：

你把窗体的标题和名称混淆了，标题Caption是在窗体的标题栏显示的内容，而Name是在数据库窗口显示的名称是不能同名的。

Me.Name 是当前窗体的名称吗？

我以上四个打开的窗体的标题都是显示当前窗体的 Me.Name（在窗体打开事件上写有Me.Caption=Me.Name）

作者: 一点通 时间: 2006-4-7 04:30
传例子上来看下吧

作者: mrl 时间: 2006-4-7 05:36
上面有例子吖

作者: fan0217 时间: 2006-4-7 06:34
你能在数据库窗口,把两个窗体命一样的名字吗?

作者: mrl 时间: 2006-4-7 08:33

以下是引用fan0217在2006-4-6 22:34:00的发言：
你能在数据库窗口,把两个窗体命一样的名字吗?

不能！

多谢各位的回复，我终于粗手粗脚用了一天时间搞好了[attach]16948[/attach]

作者: xjliyuehua 时间: 2006-4-9 00:26
很漂亮

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)