[求助]请教关于打开多个同一窗体

mrl

窗体上有两可以打开多个同一窗体的按键，应如何判断窗体已经被打开？以下语句应如何加入判断：如果有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

xjliyuehua

很漂亮

mrl

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

不能！

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

fan0217

你能在数据库窗口,把两个窗体命一样的名字吗?

mrl

上面有例子吖

一点通

传例子上来看下吧

mrl

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


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

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

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

fan0217

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

mrl

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


窗体名都是相同的？？？

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

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

fan0217

窗体名都是相同的？？？

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