⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 clsproject.cls

📁 利用Visual Basic6.0制作的字符串搜索处理系统!推荐中
💻 CLS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
Dim i As Integer
Dim cFile As clsFile
Dim cItem As clsItem
Dim strOutput As String

strOutput = ""

If mstrGroupItem <> "" Then
    strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(mstrGroupItem, mstrVBPPath)) & ".html'>主页</a>" & vbCrLf
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumForms > 0 And mblnIncludeForms = True Then
    strOutput = strOutput & "<h3>窗体</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcForms
        strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumModules > 0 And mblnIncludeModules = True Then
    strOutput = strOutput & "<h3>模块</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcModules
        strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumClasses > 0 And mblnIncludeClasses = True Then
    strOutput = strOutput & "<h3>类模块</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcClasses
        strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumUserControls > 0 And mblnIncludeUserControls = True Then
    strOutput = strOutput & "<h3>用户控件</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcUserControls
        strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumPropertyPages > 0 And mblnIncludePropertyPages = True Then
    strOutput = strOutput & "<h3>属性页</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcPropertyPages
        strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumDesigners > 0 And mblnIncludeDesigners = True Then
    strOutput = strOutput & "<h3>报表设计</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcDesigners
        strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumUserDocuments > 0 And mblnIncludeUserDocuments = True Then
    strOutput = strOutput & "<h3>用户文件</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcUserDocuments
        strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumRelatedDocs > 0 And mblnIncludeRelatedDocs = True Then
    strOutput = strOutput & "<h3>有关资源</h3><a href=''></a><p>" & vbCrLf
    For Each cItem In mcRelatedDocs
        strOutput = strOutput & cItem.ItemReference & "<BR>" & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumObjects > 0 And mblnIncludeReferences = True Then
    strOutput = strOutput & "<h3>控件</h3><a href=''></a><p>" & vbCrLf
    For Each cItem In mcObjects
        strOutput = strOutput & cItem.ItemReference & "<BR>" & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumReferences > 0 And mblnIncludeReferences = True Then
    strOutput = strOutput & "<h3>参数</h3><a href=''></a><p>" & vbCrLf
    For Each cItem In mcReferences
        strOutput = strOutput & cItem.ItemReference & "<BR>" & vbCrLf
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

AddHTMLBody = strOutput

End Function

Private Function AddHTMLFooter() As String

AddHTMLFooter = "</body></html>" & vbCrLf

End Function

Private Sub Class_Initialize()

Set mcForms = New Collection
Set mcClasses = New Collection
Set mcModules = New Collection
Set mcUserControls = New Collection
Set mcObjects = New Collection
Set mcReferences = New Collection
Set mcRelatedDocs = New Collection
Set mcDesigners = New Collection
Set mcUserDocuments = New Collection
Set mcPropertyPages = New Collection

mintOutputType = HTML

End Sub

Private Function NAVBarHTML(ByVal pstrSkipFile As String) As String

Dim i As Integer
Dim strOutput As String
Dim cFile As clsFile

strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(mstrVBPName, mstrVBPPath)) & ".html'>主页</a>" & vbCrLf
strOutput = strOutput & "<p>" & vbCrLf

If mintNumForms > 0 And mblnIncludeForms = True Then
    strOutput = strOutput & "<h3>窗体</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcForms
        If cFile.Filename = pstrSkipFile Then
            strOutput = strOutput & ExtractName(cFile.Filename) & " <BR> " & vbCrLf
        Else
            strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
        End If
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumModules > 0 And mblnIncludeModules = True Then
    strOutput = strOutput & "<h3>模块</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcModules
        If cFile.Filename = pstrSkipFile Then
            strOutput = strOutput & ExtractName(cFile.Filename) & " <BR> " & vbCrLf
        Else
            strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
        End If
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumClasses > 0 And mblnIncludeClasses = True Then
    strOutput = strOutput & "<h3>类模块</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcClasses
        If cFile.Filename = pstrSkipFile Then
            strOutput = strOutput & ExtractName(cFile.Filename) & " <BR> " & vbCrLf
        Else
            strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
        End If
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumUserControls > 0 And mblnIncludeUserControls = True Then
    strOutput = strOutput & "<h3>用户控件</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcUserControls
        If cFile.Filename = pstrSkipFile Then
            strOutput = strOutput & ExtractName(cFile.Filename) & " <BR> " & vbCrLf
        Else
            strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
        End If
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumPropertyPages > 0 And mblnIncludePropertyPages = True Then
    strOutput = strOutput & "<h3>属性页</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcPropertyPages
        If cFile.Filename = pstrSkipFile Then
            strOutput = strOutput & ExtractName(cFile.Filename) & " <BR> " & vbCrLf
        Else
            strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
        End If
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumDesigners > 0 And mblnIncludeDesigners = True Then
    strOutput = strOutput & "<h3>报表设计</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcDesigners
        If cFile.Filename = pstrSkipFile Then
            strOutput = strOutput & ExtractName(cFile.Filename) & " <BR> " & vbCrLf
        Else
            strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
        End If
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

If mintNumUserDocuments > 0 And mblnIncludeUserDocuments = True Then
    strOutput = strOutput & "<h3>用户文件</h3><a href=''></a><p>" & vbCrLf
    For Each cFile In mcUserDocuments
        If cFile.Filename = pstrSkipFile Then
            strOutput = strOutput & ExtractName(cFile.Filename) & " <BR> " & vbCrLf
        Else
            strOutput = strOutput & "<a href='" & FileOnly(ExtractFile(cFile.Filename, mstrVBPPath)) & ".html'>" & ExtractName(cFile.Filename) & "</a> <BR> " & vbCrLf
        End If
    Next
    strOutput = strOutput & "<p>" & vbCrLf
End If

NAVBarHTML = strOutput

End Function

Private Sub OutputHTMLHelpHHC()

Dim intFileNum As Integer
Dim strOutput As String
Dim cFile As clsFile

strOutput = strOutput & "<html>" & vbCrLf
strOutput = strOutput & "<!-- Sitemap 1.0 -->" & vbCrLf
strOutput = strOutput & "<object type=""text/site properties"">" & vbCrLf
strOutput = strOutput & "  <param name=""SiteType"" value=""toc"">" & vbCrLf
strOutput = strOutput & "  <param name=""Image Width"" value=""16"">" & vbCrLf
strOutput = strOutput & "  <param name=""Window Styles"" value=""0x800002"">" & vbCrLf
strOutput = strOutput & "  <param name=""ExWindow Styles"" value=""0x100"">" & vbCrLf
strOutput = strOutput & "</object>" & vbCrLf
strOutput = strOutput & "<ul>" & vbCrLf

strOutput = strOutput & "  <li><object type=""text/sitemap"">" & vbCrLf
strOutput = strOutput & "    <param name=""Name"" value=""" & mstrTitle & """>" & vbCrLf
strOutput = strOutput & "    <param name=""Local"" value=""" & FileOnly(ExtractFile(mstrVBPName, "")) & ".html"">" & vbCrLf
strOutput = strOutput & "  </object>" & vbCrLf

If mcForms.Count > 0 And mblnIncludeForms = True Then
    strOutput = strOutput & "    <ul>" & vbCrLf
    strOutput = strOutput & "      <li><object type=""text/sitemap"">" & vbCrLf
    strOutput = strOutput & "        <param name=""Name"" value=""Forms"">" & vbCrLf
    strOutput = strOutput & "      </object>" & vbCrLf
    strOutput = strOutput & "      <ul>" & vbCrLf
    For Each cFile In mcForms
        strOutput = strOutput & "    <li><object type=""text/sitemap"">" & vbCrLf
        strOutput = strOutput & "      <param name=""Name"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & """>" & vbCrLf
        strOutput = strOutput & "      <param name=""Local"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & ".html"">" & vbCrLf
        strOutput = strOutput & "    </object>" & vbCrLf
    Next
    strOutput = strOutput & "      </ul>" & vbCrLf
    strOutput = strOutput & "    </ul>" & vbCrLf
End If

If mcModules.Count > 0 And mblnIncludeModules = True Then
    strOutput = strOutput & "    <ul>" & vbCrLf
    strOutput = strOutput & "      <li><object type=""text/sitemap"">" & vbCrLf
    strOutput = strOutput & "        <param name=""Name"" value=""Modules"">" & vbCrLf
    strOutput = strOutput & "      </object>" & vbCrLf
    strOutput = strOutput & "      <ul>" & vbCrLf
    For Each cFile In mcModules
        strOutput = strOutput & "    <li><object type=""text/sitemap"">" & vbCrLf
        strOutput = strOutput & "      <param name=""Name"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & """>" & vbCrLf
        strOutput = strOutput & "      <param name=""Local"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & ".html"">" & vbCrLf
        strOutput = strOutput & "    </object>" & vbCrLf
    Next
    strOutput = strOutput & "      </ul>" & vbCrLf
    strOutput = strOutput & "    </ul>" & vbCrLf
End If
    
If mcClasses.Count > 0 And mblnIncludeClasses = True Then
    strOutput = strOutput & "    <ul>" & vbCrLf
    strOutput = strOutput & "      <li><object type=""text/sitemap"">" & vbCrLf
    strOutput = strOutput & "        <param name=""Name"" value=""Classes"">" & vbCrLf
    strOutput = strOutput & "      </object>" & vbCrLf
    strOutput = strOutput & "      <ul>" & vbCrLf
    For Each cFile In mcClasses
        strOutput = strOutput & "    <li><object type=""text/sitemap"">" & vbCrLf
        strOutput = strOutput & "      <param name=""Name"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & """>" & vbCrLf
        strOutput = strOutput & "      <param name=""Local"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & ".html"">" & vbCrLf
        strOutput = strOutput & "    </object>" & vbCrLf
    Next
    strOutput = strOutput & "      </ul>" & vbCrLf
    strOutput = strOutput & "    </ul>" & vbCrLf
End If

If mcUserControls.Count > 0 And mblnIncludeUserControls = True Then
    strOutput = strOutput & "    <ul>" & vbCrLf
    strOutput = strOutput & "      <li><object type=""text/sitemap"">" & vbCrLf
    strOutput = strOutput & "        <param name=""Name"" value=""User Controls"">" & vbCrLf
    strOutput = strOutput & "      </object>" & vbCrLf
    strOutput = strOutput & "      <ul>" & vbCrLf
    For Each cFile In mcUserControls
        strOutput = strOutput & "    <li><object type=""text/sitemap"">" & vbCrLf
        strOutput = strOutput & "      <param name=""Name"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & """>" & vbCrLf
        strOutput = strOutput & "      <param name=""Local"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & ".html"">" & vbCrLf
        strOutput = strOutput & "    </object>" & vbCrLf
    Next
    strOutput = strOutput & "      </ul>" & vbCrLf
    strOutput = strOutput & "    </ul>" & vbCrLf
End If
    
If mcPropertyPages.Count > 0 And mblnIncludePropertyPages = True Then
    strOutput = strOutput & "    <ul>" & vbCrLf
    strOutput = strOutput & "      <li><object type=""text/sitemap"">" & vbCrLf
    strOutput = strOutput & "        <param name=""Name"" value=""Property Pages"">" & vbCrLf
    strOutput = strOutput & "      </object>" & vbCrLf
    strOutput = strOutput & "      <ul>" & vbCrLf
    For Each cFile In mcPropertyPages
        strOutput = strOutput & "    <li><object type=""text/sitemap"">" & vbCrLf
        strOutput = strOutput & "      <param name=""Name"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & """>" & vbCrLf
        strOutput = strOutput & "      <param name=""Local"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & ".html"">" & vbCrLf
        strOutput = strOutput & "    </object>" & vbCrLf
    Next
    strOutput = strOutput & "      </ul>" & vbCrLf
    strOutput = strOutput & "    </ul>" & vbCrLf
End If
    
If mcDesigners.Count > 0 And mblnIncludeDesigners = True Then
    strOutput = strOutput & "    <ul>" & vbCrLf
    strOutput = strOutput & "      <li><object type=""text/sitemap"">" & vbCrLf
    strOutput = strOutput & "        <param name=""Name"" value=""Designers"">" & vbCrLf
    strOutput = strOutput & "      </object>" & vbCrLf
    strOutput = strOutput & "      <ul>" & vbCrLf
    For Each cFile In mcDesigners
        strOutput = strOutput & "    <li><object type=""text/sitemap"">" & vbCrLf
        strOutput = strOutput & "      <param name=""Name"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & """>" & vbCrLf
        strOutput = strOutput & "      <param name=""Local"" value=""" & FileOnly(ExtractFile(cFile.Filename, "")) & ".html"">" & vbCrLf
        strOutput = strOutput & "    </object>" & vbCrLf
    Next
    strOutput = strOutput & "      </ul>" & vbCrLf
    strOutput = strOutput & "    </ul>" & vbCrLf
End If
    
If mcUserDocuments.Count > 0 And mblnIncludeUserDocuments = True Then
    strOutput = strOutput & "    <ul>" & vbCrLf
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -