📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
Object = "{28D47522-CF84-11D1-834C-00A0249F0C28}#1.0#0"; "GIF89.DLL"
Begin VB.Form frmMain
BackColor = &H00C0C0C0&
Caption = "Casper Semiramis II - WebSite Producer"
ClientHeight = 7890
ClientLeft = 165
ClientTop = 450
ClientWidth = 10290
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 7890
ScaleWidth = 10290
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
ForeColor = &H80000008&
Height = 375
Left = 0
ScaleHeight = 345
ScaleWidth = 10665
TabIndex = 1
Top = 7560
Width = 10695
Begin MSComctlLib.Toolbar Toolbar
Height = 330
Left = 0
TabIndex = 48
Top = 0
Width = 10695
_ExtentX = 18865
_ExtentY = 582
ButtonWidth = 2884
ButtonHeight = 582
Appearance = 1
Style = 1
TextAlignment = 1
ImageList = "imgButt"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Clear All Fields "
Key = "Clear"
ImageIndex = 32
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Load and Save "
Key = "Load/Save"
ImageIndex = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "Exit Program "
Key = "Exit"
ImageIndex = 33
EndProperty
EndProperty
End
End
Begin TabDlg.SSTab SSTab1
Height = 7575
Left = 0
TabIndex = 0
Top = 0
Width = 10335
_ExtentX = 18230
_ExtentY = 13361
_Version = 393216
Style = 1
Tabs = 4
Tab = 2
TabsPerRow = 4
TabHeight = 520
WordWrap = 0 'False
ShowFocusRect = 0 'False
BackColor = 12632256
ForeColor = 4194304
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "WebSite Data"
TabPicture(0) = "frmMain.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "txtPhone"
Tab(0).Control(1)= "txtPostal"
Tab(0).Control(2)= "txtProvince"
Tab(0).Control(3)= "txtAddress"
Tab(0).Control(4)= "txtMail"
Tab(0).Control(5)= "txtCountry"
Tab(0).Control(6)= "txtCity"
Tab(0).Control(7)= "txtCompany"
Tab(0).Control(8)= "txtName"
Tab(0).Control(9)= "k16"
Tab(0).Control(10)= "k17"
Tab(0).Control(11)= "k18"
Tab(0).Control(12)= "k15"
Tab(0).Control(13)= "k14"
Tab(0).Control(14)= "k13"
Tab(0).Control(15)= "k10"
Tab(0).Control(16)= "k11"
Tab(0).Control(17)= "k12"
Tab(0).Control(18)= "k9"
Tab(0).Control(19)= "k8"
Tab(0).Control(20)= "k7"
Tab(0).Control(21)= "k4"
Tab(0).Control(22)= "k5"
Tab(0).Control(23)= "k6"
Tab(0).Control(24)= "k3"
Tab(0).Control(25)= "k2"
Tab(0).Control(26)= "k1"
Tab(0).Control(27)= "CoCategory"
Tab(0).Control(28)= "txtDes"
Tab(0).Control(29)= "txtTitle"
Tab(0).Control(30)= "txtURL"
Tab(0).Control(31)= "CoUrl"
Tab(0).Control(32)= "imgButt"
Tab(0).Control(33)= "Label1(22)"
Tab(0).Control(34)= "Label1(20)"
Tab(0).Control(35)= "Label1(19)"
Tab(0).Control(36)= "Label1(13)"
Tab(0).Control(37)= "Label1(12)"
Tab(0).Control(38)= "Label1(11)"
Tab(0).Control(39)= "Label1(10)"
Tab(0).Control(40)= "Label1(9)"
Tab(0).Control(41)= "Label1(8)"
Tab(0).Control(42)= "Label1(7)"
Tab(0).Control(43)= "Label1(6)"
Tab(0).Control(44)= "Label1(5)"
Tab(0).Control(45)= "Label1(4)"
Tab(0).Control(46)= "Label1(3)"
Tab(0).Control(47)= "Label1(2)"
Tab(0).Control(48)= "Label1(1)"
Tab(0).Control(49)= "Label1(0)"
Tab(0).ControlCount= 50
TabCaption(1) = "Engines"
TabPicture(1) = "frmMain.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "ToolbarEngines"
Tab(1).Control(1)= "Frame3"
Tab(1).Control(2)= "Frame2"
Tab(1).Control(3)= "Frame1"
Tab(1).ControlCount= 4
TabCaption(2) = "Submit"
TabPicture(2) = "frmMain.frx":0038
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "Label6"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Label5"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Frame4"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Frame5"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Frame6"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Command1"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "cmdCancel"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).Control(7)= "Frame8"
Tab(2).Control(7).Enabled= 0 'False
Tab(2).ControlCount= 8
TabCaption(3) = "Report"
TabPicture(3) = "frmMain.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame7"
Tab(3).ControlCount= 1
Begin VB.Frame Frame8
Height = 1215
Left = 240
TabIndex = 89
Top = 6120
Width = 9615
Begin GIF89LibCtl.Gif89a picBanner
Height = 855
Left = 120
OleObjectBlob = "frmMain.frx":0070
TabIndex = 90
Top = 240
Width = 7095
End
End
Begin VB.Frame Frame7
Height = 6615
Left = -74782
TabIndex = 81
Top = 638
Width = 9855
Begin RichTextLib.RichTextBox Rtf
Height = 6015
Left = 240
TabIndex = 82
Top = 360
Width = 9375
_ExtentX = 16536
_ExtentY = 10610
_Version = 393217
Enabled = -1 'True
ScrollBars = 2
TextRTF = $"frmMain.frx":00B2
End
End
Begin VB.CommandButton cmdCancel
Caption = "Cancel Submition"
Height = 375
Left = 6360
TabIndex = 79
Top = 5640
Width = 1935
End
Begin VB.CommandButton Command1
Caption = "Start Submition"
Height = 375
Left = 4080
TabIndex = 78
Top = 5640
Width = 1935
End
Begin VB.Frame Frame6
Caption = " Simple Statistics "
Height = 2415
Left = 4080
TabIndex = 69
Top = 840
Width = 5775
Begin MSComctlLib.ProgressBar Prg
Height = 255
Left = 240
TabIndex = 73
Top = 2000
Width = 5295
_ExtentX = 9340
_ExtentY = 450
_Version = 393216
Appearance = 1
Scrolling = 1
End
Begin VB.Label Label1
Caption = "Current Engine Progress:"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 21
Left = 240
TabIndex = 94
Top = 1680
Width = 2295
End
Begin VB.Label Label7
Caption = "%"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2280
TabIndex = 93
Top = 840
Width = 255
End
Begin VB.Label E_done
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4920
TabIndex = 86
Top = 825
Width = 495
End
Begin VB.Label E_Left
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4920
TabIndex = 85
Top = 380
Width = 495
End
Begin VB.Label Succes
Caption = "N/A"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1080
TabIndex = 84
Top = 1225
Width = 975
End
Begin VB.Label Procent
Caption = "0"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 1920
TabIndex = 83
Top = 820
Width = 495
End
Begin VB.Label lblEngine
Caption = "None"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -