While m > 1
                    txtwriter.WriteLine("</treenode>")
                    m = m - 1
                End While
            Case Is <= 0
                txtwriter.WriteLine("<treenode text=''''" & strname & "'''' NavigateUrl=''''xxcb_add.aspx?classname=" & strname & "" & strand & "classid=" & strid & "''''   Target=''''main1''''/>")
                ''''txtwriter.WriteLine("</treenode>")

                m = Len(strid) / 2

                While m > 1
                    txtwriter.WriteLine("</treenode>")
                    m = m - 1
                End While

        End Select
        txtwriter.WriteLine("</TREENODES>")
        txtwriter.Close()

     这样menuone.txt就按要求生成了菜单源文件。
    如有更好的办法，请与我联系谢谢。QQ：149592886

上一页  [1] [2] [3]