📄 frmmain.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "VB 工程文档自动产生器"
ClientHeight = 6015
ClientLeft = 45
ClientTop = 330
ClientWidth = 7020
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6015
ScaleWidth = 7020
StartUpPosition = 2 '屏幕中心
Begin VB.ListBox lstInclude
Height = 1110
Left = 1290
Style = 1 'Checkbox
TabIndex = 4
Top = 840
Width = 5625
End
Begin VB.ListBox lstOptions
Height = 1110
Left = 1290
Style = 1 'Checkbox
TabIndex = 5
Top = 2070
Width = 5625
End
Begin VB.CommandButton cmdSS
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6540
TabIndex = 7
TabStop = 0 'False
Top = 3330
Width = 345
End
Begin VB.CommandButton cmdExit
Cancel = -1 'True
Caption = "退出(&E)"
Height = 885
Left = 5670
Picture = "frmMain.frx":030A
Style = 1 'Graphical
TabIndex = 12
Top = 5070
Width = 1275
End
Begin VB.CommandButton cmdRun
Caption = "开始(&S)"
Default = -1 'True
Height = 885
Left = 4290
Picture = "frmMain.frx":0614
Style = 1 'Graphical
TabIndex = 11
Top = 5070
Width = 1275
End
Begin VB.CommandButton cmdGetFolder
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6540
TabIndex = 3
TabStop = 0 'False
Top = 510
Width = 345
End
Begin VB.TextBox txtOutput
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1290
TabIndex = 2
Top = 480
Width = 5625
End
Begin VB.CommandButton cmdFile
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6540
TabIndex = 1
TabStop = 0 'False
Top = 180
Width = 345
End
Begin VB.TextBox txtFile
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1290
TabIndex = 0
Top = 150
Width = 5625
End
Begin MSComDlg.CommonDialog dlgOpen
Left = 360
Top = 4470
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox txtSS
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1290
TabIndex = 6
Text = "[默认样式]"
Top = 3300
Width = 5625
End
Begin VB.Frame fraHelp
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1335
Left = 1290
TabIndex = 15
Top = 3660
Width = 5625
Begin VB.TextBox txtHelpTitle
Enabled = 0 'False
Height = 315
Left = 960
TabIndex = 8
Top = 270
Width = 4515
End
Begin VB.CommandButton cmdHelpCompiler
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 5100
TabIndex = 10
TabStop = 0 'False
Top = 930
Width = 345
End
Begin VB.TextBox txtHelpCompiler
Enabled = 0 'False
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 960
TabIndex = 9
Top = 900
Width = 4515
End
Begin VB.Label lblInfo
Caption = "帮助标题:"
Enabled = 0 'False
Height = 255
Index = 1
Left = 150
TabIndex = 17
Top = 300
Width = 885
End
Begin VB.Label Label1
Caption = "本地帮助编译器:"
Enabled = 0 'False
Height = 285
Left = 150
TabIndex = 16
Top = 660
Width = 1935
End
End
Begin VB.Label lblInfo
Caption = "包含组件信息"
Height = 465
Index = 5
Left = 120
TabIndex = 21
Top = 870
Width = 1155
End
Begin VB.Label lblInfo
Caption = "HTML格式帮助:"
Height = 255
Index = 4
Left = 120
TabIndex = 20
Top = 3750
Width = 2295
End
Begin VB.Label lblInfo
Caption = "样式:"
Height = 255
Index = 3
Left = 120
TabIndex = 19
Top = 3330
Width = 2295
End
Begin VB.Label lblInfo
Caption = "输出选项:"
Height = 585
Index = 2
Left = 120
TabIndex = 18
Top = 2100
Width = 1155
End
Begin VB.Label lblInfo
Caption = "输出路径:"
Height = 255
Index = 0
Left = 105
TabIndex = 14
Top = 510
Width = 2295
End
Begin VB.Label lblInfo
Caption = "工程:"
Height = 255
Index = 7
Left = 105
TabIndex = 13
Top = 165
Width = 2295
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
' ：） 人人为我，我为人人 ：）
'枕善居汉化收藏整理
'发布日期：05/11/15
'描 述：VB工程文档自动产生器
'网 站：http://www.mndsoft.com/
'e-mail ：mnd@mndsoft.com
'OICQ ：88382850
'****************************************************************************
' -------------------------------------------------------------------------------------------------
' VB Project Reporter (Originally VBPScan)
' Documents VB Projects and creates HTML output
' Original program by kerlin (www.kerlinsoftworks.com)
' Enhanced and expanded by Nick Rogers (rogersn@ozemail.com.au)
' Registry class from Steve McMahon (www.vbaccelerator.com)
' -------------------------------------------------------------------------------------------------
' Problem Fix:
' Corrected error reported by alberto, where files not stored in the project folder will create problems
' Fixed by doing a full path search, and resolving the ".." entries that might appear
' Corrected error output created by having an array return parameter
' Corrected error output created by having character variable declarations (eg MyVar!)
' Corrected misreporting of functions/subs/properties where text is included in string information
' Corrected some out of bounds and type mismatch errors (5/4/04)
' New Features:
' Added "head" tag to HTML files
' Added support for .VBG (Project group) files
' Added support for .DSR (Designers) files
' Added support for .DOB (User Document) files
' Added support for .PAG (Property page) files
' Added support for related documents
' Added support for customised style sheet files
' Disabled link to current page in navigation bar
' Added ability to create HTML Help files (if HTML Help Workshop is installed)
' Re-wrote program to use classes
' Added code/comment line counts
' Added declarations section (for module/form level variable declarations)
' Added processing for API declares
' Added header comments to HTML
' Added processing for Types, Enums, Events
' Added ability to turn off various bits of the output
' Added processing for procedure attributes
'
' The HTML Help Workshop can be found at this URL:
' http://msdn.microsoft.com/library/default.asp?url=/library/en-us/htmlhelp/html/hwMicrosoftHTMLHelpDownloads.asp
Option Explicit
Option Compare Text
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdFile_Click()
On Error Resume Next
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -