以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打开新的窗口，执行新的窗口菜单时，必须点二下，才执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136596)
--  作者：xxfoxtable
--  发布时间：2019/6/17 8:52:00
--  打开新的窗口，执行新的窗口菜单时，必须点二下，才执行

打开新的窗口，执行新的窗口菜单时，必须点二下，才执行

请老师看一下有什么解决办法

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目11.rar
--  作者：有点甜
--  发布时间：2019/6/17 8:55:00
--  
Dim MaxVal As String = Args(0)
Dim tabc As WinForm.TabControl
tabc= Forms("菜单").Controls("TabControl1")
For a As Integer=0 To tabc.TabPages.Count-1
    If tabc.TabPages(a).Text=MaxVal Then
        tabc.SelectedIndex=a
        Exit For
    End If
Next
\'Dim  MaxVal As String ="搜索匹配"
If tabc.TabPages(tabc.SelectedIndex).Text <> MaxVal
    tabc.tabpages.add(MaxVal,MaxVal)
    Dim pb=tabc.basecontrol
    Forms(MaxVal).open(-1000,-1500)
    Forms(MaxVal).BaseForm.TopLevel=False
    Forms(MaxVal).BaseForm.FormBorderStyle=System.Windows.Forms.FormBorderStyle.None
    Forms(MaxVal).BaseForm.Dock=System.Windows.Forms.DockStyle.Fill
    pb.TabPages(MaxVal).Controls.Clear
    pb.TabPages(MaxVal).Controls.add(Forms(MaxVal).BaseForm)
    tabc.SelectedPage=tabc.TabPages(MaxVal)
tabc.Select
End If
Return Nothing