📄 form1src.html
字号:
<HTML><TITLE>Source Code</TITLE><BODY><br><br><br><FONT COLOR="#00007F">Private</FONT> <FONT COLOR="#00007F">Sub</FONT> Form_Load()<br>ListView1.ListItems.Clear<br>sLastFile = ""<br>ProjectName = ""<br>ProjectVersion = ""<br>Prodir = ""<br>ProType = ""<br>ProMinVer = ".0"<br><FONT COLOR="#007F00">'RichTextBox1.SelColor = vbBlack</FONT><br><FONT COLOR="#007F00">'RichTextBox1.SelColor = &H800000</FONT><br><FONT COLOR="#007F00">'RichTextBox1.SelColor = &H8000&</FONT><br><br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br><br><FONT COLOR="#00007F">Private</FONT> <FONT COLOR="#00007F">Sub</FONT> Form_Resize()<br><FONT COLOR="#00007F">On</FONT> <FONT COLOR="#00007F">Error</FONT> <FONT COLOR="#00007F">Resume</FONT> <FONT COLOR="#00007F">Next</FONT><br>ListView1.Width = Me.Width - 120<br>ListView1.Height = Me.Height - 1400<br>Picture1.Width = Me.Width - Picture1.Left - 120<br>ProgressBar1.Width = Picture1.Width - 75<br>ListView1.ColumnHeaders(1).Width = ListView1.Width - 350<br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br><br><FONT COLOR="#00007F">Private</FONT> <FONT COLOR="#00007F">Sub</FONT> mnudo_Click()<br><FONT COLOR="#00007F">Dim</FONT> sPath <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">String</FONT><br><FONT COLOR="#00007F">If</FONT> ListView1.ListItems.Count > 0 <FONT COLOR="#00007F">Then</FONT><br> sPath = BrowseForFolder(Me.hWnd, "Select a Folder to Write to", "c:\")<br> <FONT COLOR="#00007F">If</FONT> Len(sPath) > 0 <FONT COLOR="#00007F">Then</FONT><br> <FONT COLOR="#007F00">'do the conversion</FONT><br> DocDir = sPath & "\"<br> <FONT COLOR="#00007F">Select</FONT> <FONT COLOR="#00007F">Case</FONT> ProType<br> <FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = ".vbp" <FONT COLOR="#007F00">'visual basic</FONT><br> <FONT COLOR="#00007F">Call</FONT> InitColorize <FONT COLOR="#007F00">' for the html to rtf coloring</FONT><br> WriteVBHTMLFiles<br> <FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = ".dpr" <FONT COLOR="#007F00">'delphi</FONT><br> <FONT COLOR="#007F00">'comming soon?</FONT><br> <FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = "dsw" <FONT COLOR="#007F00">'visual c++</FONT><br> <FONT COLOR="#007F00">'comming soon?</FONT><br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Select</FONT><br> <FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br><br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br><br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br><br><FONT COLOR="#00007F">Private</FONT> <FONT COLOR="#00007F">Sub</FONT> mnuExit_Click()<br><FONT COLOR="#00007F">End</FONT><br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br><br><FONT COLOR="#00007F">Private</FONT> <FONT COLOR="#00007F">Sub</FONT> mnuNew_Click()<br>ListView1.ListItems.Clear<br>sLastFile = ""<br>ProjectName = ""<br>ProjectVersion = ""<br>Prodir = ""<br>ProType = ""<br>ProMinVer = ".0"<br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br><br><FONT COLOR="#00007F">Private</FONT> <FONT COLOR="#00007F">Sub</FONT> mnuOpen_Click()<br><FONT COLOR="#007F00">'show the comdlg</FONT><br><FONT COLOR="#00007F">On</FONT> <FONT COLOR="#00007F">Error</FONT> <FONT COLOR="#00007F">GoTo</FONT> cCan<br><FONT COLOR="#00007F">Dim</FONT> sEXT <FONT COLOR="#00007F">As</FONT> <FONT COLOR="#00007F">String</FONT><br>commdlg.FileName = ""<br>commdlg.Filter = "Visual Basic Project (*.vbp)|*.vbp|Delphi Project (*.dpr)|*.dpr|Visual C++ Project (*.dsw)|*.dsw"<br>commdlg.FilterIndex = 1<br>commdlg.Flags = cdlOFNFileMustExist + cdlOFNExplorer<br>commdlg.DefaultExt = ".vbp"<br>commdlg.CancelError = <FONT COLOR="#00007F">True</FONT><br><FONT COLOR="#007F00">'commdlg.InitDir = App.Path</FONT><br>commdlg.ShowOpen<br><br><FONT COLOR="#007F00">'select case here</FONT><br>sEXT = ParsePath(commdlg.FileName, 3)<br>MousePointer = 11<br>ProType = LCase(sEXT)<br><FONT COLOR="#00007F">Select</FONT> <FONT COLOR="#00007F">Case</FONT> ProType<br><FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = ".vbp"<br>ParseProjectFileVB commdlg.FileName<br>MousePointer = 0<br><FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = ".dpr"<br><FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = "dsw"<br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Select</FONT><br><FONT COLOR="#007F00">'DocDir = ParsePath(commdlg.FileName, 0) & ParsePath(commdlg.FileName, 1) & "Documentation\"</FONT><br><FONT COLOR="#00007F">Exit</FONT> <FONT COLOR="#00007F">Sub</FONT><br>cCan:<br><FONT COLOR="#00007F">If</FONT> Err <> cdlCancel <FONT COLOR="#00007F">Then</FONT><br>MsgBox Err.Description<br>MousePointer = 0<br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">If</FONT><br><FONT COLOR="#00007F">Exit</FONT> <FONT COLOR="#00007F">Sub</FONT><br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br><br><br><br><FONT COLOR="#00007F">Private</FONT> <FONT COLOR="#00007F">Sub</FONT> Toolbar1_ButtonClick(<FONT COLOR="#00007F">ByVal</FONT> Button <FONT COLOR="#00007F">As</FONT> MSComctlLib.Button)<br><br><FONT COLOR="#00007F">Select</FONT> <FONT COLOR="#00007F">Case</FONT> Button.Index<br><FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = 1 <FONT COLOR="#007F00">'new</FONT><br>mnuNew_Click<br><FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = 2 <FONT COLOR="#007F00">'open</FONT><br>mnuOpen_Click<br><FONT COLOR="#00007F">Case</FONT> <FONT COLOR="#00007F">Is</FONT> = 3 <FONT COLOR="#007F00">'document</FONT><br>mnudo_Click<br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Select</FONT><br><FONT COLOR="#00007F">End</FONT> <FONT COLOR="#00007F">Sub</FONT><br></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -