📄 quote.frm
字号:
VERSION 5.00
Object = "{90F3D7B3-92E7-44BA-B444-6A8E2A3BC375}#1.0#0"; "actskin4.ocx"
Object = "{20C62CAE-15DA-101B-B9A8-444553540000}#1.1#0"; "MSMAPI32.OCX"
Begin VB.Form Form1
BackColor = &H80000009&
Caption = "Knowledge Manager"
ClientHeight = 8070
ClientLeft = 60
ClientTop = 345
ClientWidth = 11880
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 8070
ScaleWidth = 11880
StartUpPosition = 2 'CenterScreen
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel8
Height = 270
Left = 5535
OleObjectBlob = "quote.frx":0000
TabIndex = 20
Top = 555
Width = 1965
End
Begin VB.TextBox txtmsg
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1260
Left = 5520
MultiLine = -1 'True
TabIndex = 19
Top = 840
Width = 2805
End
Begin VB.TextBox txtauthor
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 2
Top = 1680
Width = 3855
End
Begin VB.CheckBox Check1
Caption = "Select All"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 9075
TabIndex = 17
Top = 1845
Width = 2280
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel6
Height = 255
Left = 9060
OleObjectBlob = "quote.frx":0074
TabIndex = 16
Top = 1155
Width = 1215
End
Begin VB.TextBox txtsubject
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 9060
TabIndex = 15
Top = 1440
Width = 2295
End
Begin MSMAPI.MAPISession MAPISession1
Left = 1470
Top = -315
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DownloadMail = -1 'True
LogonUI = -1 'True
NewSession = 0 'False
End
Begin MSMAPI.MAPIMessages MAPIMessages1
Left = 930
Top = -300
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
AddressEditFieldCount= 1
AddressModifiable= 0 'False
AddressResolveUI= 0 'False
FetchSorted = 0 'False
FetchUnreadOnly = 0 'False
End
Begin VB.CommandButton Command5
Caption = "&Add email"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 10275
TabIndex = 14
Top = 7245
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "&Add New"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4620
TabIndex = 13
Top = 7290
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "Send Mail"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 9045
TabIndex = 12
Top = 7245
Width = 1095
End
Begin VB.ListBox List1
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 5010
Left = 9060
Style = 1 'Checkbox
TabIndex = 10
Top = 2130
Width = 2295
End
Begin VB.CommandButton Command2
Caption = "S&earch"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2805
TabIndex = 9
Top = 7305
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "&Save"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 915
TabIndex = 8
Top = 7320
Width = 1335
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel1
Height = 375
Left = 3090
OleObjectBlob = "quote.frx":00E2
TabIndex = 4
Top = 105
Width = 2535
End
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 435
OleObjectBlob = "quote.frx":0164
Top = -180
End
Begin VB.ComboBox combo1
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1215
Style = 2 'Dropdown List
TabIndex = 0
Top = 855
Width = 3825
End
Begin VB.TextBox txtquote
BeginProperty Font
Name = "Verdana"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4770
Left = 120
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Top = 2415
Width = 8265
End
Begin VB.TextBox txttitle
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1215
TabIndex = 1
Top = 1260
Width = 3840
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel2
Height = 300
Left = 90
OleObjectBlob = "quote.frx":4AF63
TabIndex = 5
Top = 855
Width = 1050
End
Begin ACTIVESKINLibCtl.SkinLabel SkinLabel3
Height = 255
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -