主题：遍历控件时FileManager 文件管理器的处理

 

 

我用遍历控件的方法 查阅 控件

 

先判断

排除了    .FileManager   这个文件管理器  ，

 

     If  TypeOf c Is WinForm.FileManager   Then

     end if

 

但在遍历控件的过程中，提示找不到

打开，增加 ，删除 等的控件

 

这些  应该是 FileManager 里面的东东，

 

如何排除这些东西呢？？

Dim dr As DataRow

For Each f As WinForm.Form In forms

    If f.Opened = False Then Continue For

   

   

    dr = DataTables("Language").find("[中文] = '" & f.text & "'")

    If dr IsNot Nothing

        f.text = dr(getConfigValue("LangC", "英文"))

    End If

    dr = DataTables("Language").find("[英文] = '" & f.text & "'")

    If dr IsNot Nothing

        f.text = dr(getConfigValue("LangC", "中文"))

    End If

   

    For Each c As Winform.Control In f.Controls

        If TypeOf c Is Winform.NavBar Then

            Dim bar As WinForm.NavBar = f.Controls(c.name)

            For Each nb As WinForm.NavPage In bar.NavPages

                dr = DataTables("Language").find("[英文] = '" & nb.ButtonText & "'")

                If dr IsNot Nothing

                    nb.Buttontext = dr(getConfigValue("LangC", "中文"))

                End If

                dr = DataTables("Language").find("[中文] = '" & nb.ButtonText & "'")

                If dr IsNot Nothing

                    nb.Buttontext = dr(getConfigValue("LangC", "英文"))

                End If

            Next

 

        Else If Typeof c Is WinForm.TopicBar Then

            Dim trv As WinForm.TopicBar  = f.Controls(c.name)

            For Each page As WinForm.TopicPage In trv.Pages

            For Each nd As WinForm.TopicLink In page.Links

                dr = DataTables("Language").find("[英文] = '" & nd.Text & "'")

                If dr IsNot Nothing

                    nd.text = dr(getConfigValue("LangC", "中文"))

                End If

                dr = DataTables("Language").find("[中文] = '" & nd.Text & "'")

                If dr IsNot Nothing

                    nd.text = dr(getConfigValue("LangC", "英文"))

                End If

            Next

            Next

        Else If Typeof c Is WinForm.TreeView Then

            Dim trv As WinForm.TreeView = f.Controls(c.name)

            For Each nd As WinForm.TreeNode In trv.AllNodes

                dr = DataTables("Language").find("[英文] = '" & nd.text & "'")

                If dr IsNot Nothing

                    nd.text = dr(getConfigValue("LangC", "中文"))

                End If

                dr = DataTables("Language").find("[中文] = '" & nd.text & "'")

                If dr IsNot Nothing

                    nd.text = dr(getConfigValue("LangC", "英文"))

                End If

            Next

        Else If TypeOf c Is WinForm.TabControl Then

            Dim tc As WinForm.TabControl = f.Controls(c.name)

            For Each pg As WinForm.TabPage In tc.TabPages

                dr = DataTables("Language").find("[英文] = '" & pg.Text & "'")

                If dr IsNot Nothing

                    pg.text = dr(getConfigValue("LangC", "中文"))

                End If

                dr = DataTables("Language").find("[中文] = '" & pg.Text & "'")

                If dr IsNot Nothing

                    pg.text = dr(getConfigValue("LangC", "英文"))

                End If

            Next

 

        Else If TypeOf c Is WinForm.Panel OrElse TypeOf c Is WinForm.picturebox  OrElse TypeOf c Is WinForm.Table OrElse TypeOf c Is WinForm.line  _

         OrElse TypeOf c Is WinForm.WebBrowser OrElse TypeOf c Is WinForm.FileManager  OrElse TypeOf c Is WinForm.SplitContainer Then

        Else

            Dim ct As String = f.Controls(c.name).text

            dr = DataTables("Language").find("[英文] = '" & ct & "'")

            If dr IsNot Nothing

                f.Controls(c.name).text = dr(getConfigValue("LangC", "中文"))

            End If

            dr = DataTables("Language").find("[中文] = '" & ct & "'")

            If dr IsNot Nothing

                f.Controls(c.name).text = dr(getConfigValue("LangC", "英文"))

            End If

        End If

    Next

Next

 

 

在窗体 出现 有 FileManager  文件管理器的时候

提示 找不到  add open  等 的控件。

老师请看

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

老师

 

c.text

f.controls(c.name).text

 

应该是一样的吧！

 

没搞懂 这2者的区别在哪里！