首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > VB Dotnet >

打开子窗体有关问题

2012-03-22 
打开子窗体问题ou108兄弟:前几天在您的帮助下解决了用字符串打开子窗体问题,今天出现了新问题:打开一个子

打开子窗体问题
ou108兄弟:
前几天在您的帮助下解决了用字符串打开子窗体问题,今天出现了新问题:
打开一个子窗体再单击同一个节点,如果这个窗体已最小化那么将这个子窗体还原,这样没问题,但如果已打开一个子窗体,再单击其他节点就无法打开其他子窗体?

Private   Sub   TreeView1_NodeMouseClick1(ByVal   sender   As   Object,   ByVal   e   As   System.Windows.Forms.TreeNodeMouseClickEventArgs)   Handles   TreeView1.NodeMouseClick
                Dim   frm   As   Object   =   " "
                Dim   ftype   As   Type
                Try
                        If   e.Node.IsExpanded   Then
                                e.Node.Collapse()
                        Else
                                e.Node.Expand()
                        End   If
                        If   e.Node.Tag   =   " "   Then   Exit   Sub
                        ftype   =   Type.GetType( "KCKDBMS. "   &   e.Node.Tag)
                        Dim   fassembly   As   System.Reflection.Assembly
                        fassembly   =   System.Reflection.Assembly.GetAssembly(ftype)
                        frm   =   fassembly.CreateInstance(ftype.ToString)
                        For   Each   frm   In   Me.MdiChildren
                                If   frm.Name   =   e.Node.Tag   Then
                                        frm.MdiParent   =   Me
                                        frm.Focus()
                                        frm.Show()
                                        frm.WindowState   =   FormWindowState.Normal                            
                                        frm.StartPosition   =   FormStartPosition.CenterScreen        
                                        Me.ToolStripStatusLabel2.Text   =   e.Node.Text                      


                                        Exit   Sub
                                End   If
                        Next
                        frm.MdiParent   =   Me
                        'frm.Focus()
                        frm.Show()
                        frm.WindowState   =   FormWindowState.Normal
                        frm.StartPosition   =   FormStartPosition.CenterScreen
                        Me.ToolStripStatusLabel2.Text   =   e.Node.Text
                Catch   ex   As   Exception
                        MessageBox.Show(ex.Message.ToString,   "错误 ",   MessageBoxButtons.OK,   MessageBoxIcon.Error)
                End   Try
        End   Sub

[解决办法]
呵呵,lz把分散了吧.
[解决办法]
顶,散分吧。。。呵呵

热点排行