📄 frmmain.frm
字号:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMain
BorderStyle = 1 'Fixed Single
Caption = "四维电子邮件收发系统"
ClientHeight = 6975
ClientLeft = 45
ClientTop = 615
ClientWidth = 12135
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6975
ScaleWidth = 12135
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.TreeView TV1
Height = 2535
Left = 1680
TabIndex = 12
Top = 240
Width = 1935
_ExtentX = 3413
_ExtentY = 4471
_Version = 393217
Indentation = 441
LabelEdit = 1
LineStyle = 1
Style = 7
Appearance = 1
End
Begin VB.ListBox lstStatus
BackColor = &H8000000F&
Height = 240
Left = 1560
TabIndex = 11
Top = 6720
Width = 10560
End
Begin VB.PictureBox Picture1
Align = 3 'Align Left
BackColor = &H00997367&
Height = 6975
Left = 0
Negotiate = -1 'True
ScaleHeight = 6915
ScaleWidth = 1395
TabIndex = 7
Top = 0
Width = 1455
Begin VB.Image ImgRecuiter
Height = 720
Left = 480
Picture = "frmMain.frx":030A
Stretch = -1 'True
Top = 600
Width = 600
End
Begin VB.Image imgQuery
Height = 345
Left = 480
Picture = "frmMain.frx":0614
Stretch = -1 'True
Top = 2280
Width = 465
End
Begin VB.Label lblRecruiters
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Get E-Mails"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 720
Left = 360
TabIndex = 10
Top = 1200
Width = 1065
WordWrap = -1 'True
End
Begin VB.Label lblQuery
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Create E-Mail"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 765
Left = 120
TabIndex = 9
Top = 2760
Width = 1215
End
Begin VB.Image imgPrevious
Height = 480
Left = 480
Picture = "frmMain.frx":068A
Stretch = -1 'True
Top = 3840
Width = 480
End
Begin VB.Label lblPreviousQuery
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Contacts"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000E&
Height = 765
Left = 0
TabIndex = 8
Top = 4440
Width = 1455
End
End
Begin VB.Frame Frame5
BorderStyle = 0 'None
ClipControls = 0 'False
Height = 2175
Left = 1680
TabIndex = 2
Top = 3360
Width = 9735
Begin VB.CommandButton cmdSave
Caption = "&Save As..."
Height = 375
Left = 8400
TabIndex = 4
Top = 120
Width = 1215
End
Begin ComctlLib.ListView lvAttachments
Height = 2175
Left = 0
TabIndex = 3
Top = 120
Width = 8295
_ExtentX = 14631
_ExtentY = 3836
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 327682
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 2
BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
Key = ""
Object.Tag = ""
Text = "File Name"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7}
SubItemIndex = 1
Key = ""
Object.Tag = ""
Text = "Size"
Object.Width = 2540
EndProperty
End
End
Begin ComctlLib.TabStrip TabStrip1
Height = 3735
Left = 1560
TabIndex = 5
Top = 2880
Width = 10575
_ExtentX = 18653
_ExtentY = 6588
TabWidthStyle = 1
_Version = 327682
BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7}
NumTabs = 2
BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "Message"
Object.Tag = ""
ImageVarType = 2
EndProperty
BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7}
Caption = "Attachments"
Object.Tag = ""
ImageVarType = 2
EndProperty
EndProperty
End
Begin SHDocVwCtl.WebBrowser HtmlMail
Height = 2535
Left = 2280
TabIndex = 6
Top = 3240
Width = 9135
ExtentX = 16113
ExtentY = 4471
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 0
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.Frame Frame4
Caption = "Messages"
Height = 2895
Left = 1560
TabIndex = 0
Top = 0
Width = 10575
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -