📄 frmmain1.frm
字号:
VERSION 5.00
Object = "{9D098E29-0F65-4849-A463-BDFF2BBB50C5}#1.0#0"; "XpTreeView.ocx"
Object = "{265626D2-2B17-4B03-B026-27D45A3CF74F}#1.0#0"; "StatusBar.ocx"
Object = "{245B09B1-78A4-4015-A1C3-BD3A4F29AB47}#1.0#0"; "ActiveFrame.ocx"
Object = "{96310A71-0785-40FC-BE62-533F97CA3499}#1.0#0"; "ComboListDrawing.ocx"
Object = "{61016470-3C9D-44A9-AC4F-823ABEC39222}#1.0#0"; "MailBody.ocx"
Object = "{03C96EAC-639B-46D8-A42F-88CBB408F2EA}#1.0#0"; "XpToolBars.ocx"
Object = "{68F68D21-7605-41FD-9B98-A961A9D9DB8E}#1.0#0"; "ImageListControl.ocx"
Object = "{226B61C4-47AB-4BB4-AF1F-780AD2EF2A04}#1.0#0"; "ExplorerSearchCtl.ocx"
Object = "{031911DF-D2C1-4E4E-A689-C25C452312C2}#1.0#0"; "DataListGrid.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Begin VB.Form frmMain1
BackColor = &H8000000B&
ClientHeight = 7950
ClientLeft = 2355
ClientTop = 2055
ClientWidth = 8880
Icon = "frmMain.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
ScaleHeight = 7950
ScaleWidth = 8880
WindowState = 2 'Maximized
Begin VB.PictureBox picLeft
Appearance = 0 'Flat
BackColor = &H8000000B&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4875
Left = 1650
ScaleHeight = 4875
ScaleWidth = 2955
TabIndex = 5
Top = 2250
Width = 2955
Begin DataListGrid.OutlookMailGrid ctlLeftList
Height = 975
Left = 450
TabIndex = 8
Top = 2760
Width = 615
_ExtentX = 1085
_ExtentY = 1720
End
Begin VB.PictureBox PictureLeftTop
BorderStyle = 0 'None
Height = 2055
Left = 630
ScaleHeight = 2055
ScaleWidth = 1815
TabIndex = 6
Top = 120
Width = 1815
Begin TreeViewControl.XpTreeView ctlTreeTab
Height = 915
Left = 360
TabIndex = 2
Top = 930
Width = 1005
_ExtentX = 1773
_ExtentY = 1614
Lines = 0 'False
LabelEditing = 0 'False
PlusMinus = 0 'False
RootLines = 0 'False
ToolTips = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MaxScrollTime = 0
End
Begin ComboListDrawing.ComboListDraw ComboListDraw1
Height = 320
Left = 120
TabIndex = 7
Top = 120
Width = 1575
_ExtentX = 2778
_ExtentY = 582
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = -2147483630
MaxLength = 0
End
End
Begin XpActiveFrame.ActiveFrame ActiveFrameCustomer
Height = 2235
Left = 1440
TabIndex = 10
Top = 2430
Width = 1635
_ExtentX = 2884
_ExtentY = 3942
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ExplorerSearchCtl.ExplorerSearch ExplorerSearch1
Height = 1185
Left = 120
TabIndex = 12
Top = 1680
Width = 2895
_ExtentX = 5106
_ExtentY = 2090
End
End
Begin VB.PictureBox TrayIcon
BorderStyle = 0 'None
Height = 555
Left = 7680
Picture = "frmMain.frx":0ECA
ScaleHeight = 555
ScaleWidth = 495
TabIndex = 4
Top = 60
Visible = 0 'False
Width = 495
End
Begin VB.PictureBox picMain
Appearance = 0 'Flat
BackColor = &H80000004&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 255
Left = 720
ScaleHeight = 255
ScaleWidth = 9615
TabIndex = 3
Top = 780
Width = 9615
End
Begin VB.PictureBox picBody
Appearance = 0 'Flat
BackColor = &H80000000&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 6855
Left = 5190
ScaleHeight = 6855
ScaleWidth = 8655
TabIndex = 1
Top = 1200
Width = 8655
Begin MailBody.MailBodylPanle ctlMailBrowser
Height = 1305
Left = 1530
TabIndex = 14
Top = 1800
Width = 1695
_ExtentX = 2990
_ExtentY = 2302
Appearance = 0
End
Begin XpActiveFrame.ActiveFrame ActiveFrameBody
Height = 1185
Left = 1350
TabIndex = 11
Top = 3180
Width = 1575
_ExtentX = 2778
_ExtentY = 2090
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin DataListGrid.OutlookMailGrid ctlMailList
Height = 1455
Left = 1200
TabIndex = 9
Top = 3480
Width = 2535
_ExtentX = 4471
_ExtentY = 2566
End
End
Begin StatusBar.XpStatusBar ctlBottonStatus
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 7680
Width = 8880
_ExtentX = 15663
_ExtentY = 476
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483633
SimpleStyle = 0
End
Begin XpToolbar.Xp_Toolbar tbrMenu
Height = 375
Left = 2700
Top = 210
Width = 1215
_ExtentX = 2143
_ExtentY = 661
End
Begin XpToolbar.XpReBar ctlTopRebar
Left = 4920
Top = 120
_ExtentX = 1773
_ExtentY = 926
End
Begin XpToolbar.Xp_Toolbar ctlTopToolBar
Height = 555
Left = 1050
Top = 0
Width = 915
_ExtentX = 1614
_ExtentY = 979
End
Begin VB.PictureBox imgListMenu
BackColor = &H80000005&
Height = 480
Left = 10680
ScaleHeight = 420
ScaleWidth = 1140
TabIndex = 13
Top = 7860
Width = 1200
End
Begin ImageListCtrl.ImageListControl imgTreeView
Left = 210
Top = 1710
_ExtentX = 953
_ExtentY = 953
ColourDepth = 24
Size = 22960
Images = "frmMain.frx":11D4
Version = 131083
KeyCount = 20
Keys = $"frmMain.frx":6BA4
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 0
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Menu TrayMenu
Caption = "托盘菜单"
Visible = 0 'False
Begin VB.Menu TrayShowMain
Caption = "显示主窗体"
End
Begin VB.Menu TrayNewMail
Caption = "新建邮件"
End
Begin VB.Menu mnuBar2
Caption = "-"
End
Begin VB.Menu TrayOptions
Caption = "选项..."
End
Begin VB.Menu TrayAbout
Caption = "关于"
End
Begin VB.Menu mnuBar
Caption = "-"
End
Begin VB.Menu TrayQuit
Caption = "退出"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Function : 主窗体
'Author : Myganlimei@163.com
'Create : 2004-03-09
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -