📄 单元格设置.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmCellFormat
BorderStyle = 3 'Fixed Dialog
Caption = "单元格格式"
ClientHeight = 5040
ClientLeft = 45
ClientTop = 330
ClientWidth = 5805
Icon = "单元格设置.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5040
ScaleWidth = 5805
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame fraCell
Caption = "对齐"
Height = 4095
Index = 0
Left = 195
TabIndex = 4
Top = 360
Width = 5415
Begin VB.ComboBox cboHAlign
Height = 315
ItemData = "单元格设置.frx":000C
Left = 120
List = "单元格设置.frx":0025
Style = 2 'Dropdown List
TabIndex = 8
Top = 600
Width = 1695
End
Begin VB.ComboBox cboVAlign
Height = 315
ItemData = "单元格设置.frx":0063
Left = 120
List = "单元格设置.frx":0070
Style = 2 'Dropdown List
TabIndex = 7
Top = 1320
Width = 1695
End
Begin VB.CheckBox chkWrapText
Caption = "自动换行"
Height = 315
Left = 120
TabIndex = 6
Top = 1800
Width = 1695
End
Begin VB.CheckBox chkMergeCell
Caption = "合并单元格"
Height = 315
Left = 120
TabIndex = 5
Top = 2160
Value = 2 'Grayed
Width = 1695
End
Begin VB.Label lblHAlign
AutoSize = -1 'True
Caption = "水平对齐"
Height = 195
Left = 120
TabIndex = 10
Top = 360
Width = 720
End
Begin VB.Label lblVAlign
AutoSize = -1 'True
Caption = "垂直对齐"
Height = 195
Left = 120
TabIndex = 9
Top = 1080
Width = 720
End
End
Begin VB.Frame fraCell
Caption = "字体"
Height = 4095
Index = 1
Left = 240
TabIndex = 13
Top = 360
Width = 5415
Begin VB.Frame fraEffect
Caption = "特殊效果"
Height = 1815
Left = 120
TabIndex = 22
Top = 2280
Width = 2175
Begin MSComctlLib.ImageCombo imgcboFontColor
Height = 330
Left = 120
TabIndex = 26
Top = 1320
Width = 1095
_ExtentX = 1931
_ExtentY = 582
_Version = 393216
ForeColor = -2147483640
BackColor = -2147483643
Locked = -1 'True
ImageList = "ImgLstFont"
End
Begin VB.CheckBox chkFontUnderline
Caption = "下划线"
Height = 375
Left = 120
TabIndex = 24
Top = 600
Width = 1815
End
Begin VB.CheckBox chkFontStrikethru
Caption = "删除线"
Height = 375
Left = 120
TabIndex = 23
Top = 240
Width = 1935
End
Begin VB.Label lblColor
AutoSize = -1 'True
Caption = "颜色"
Height = 195
Left = 120
TabIndex = 25
Top = 1080
Width = 360
End
End
Begin VB.Frame fraPreview
Caption = "预览"
Height = 1815
Left = 2520
TabIndex = 20
Top = 2280
Width = 2775
Begin VB.Label lblPreview
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "U8资金管理"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1455
Left = 120
TabIndex = 21
Top = 240
Width = 2535
End
End
Begin VB.ComboBox cboFontSize
Height = 1545
ItemData = "单元格设置.frx":0086
Left = 4200
List = "单元格设置.frx":00BA
Style = 1 'Simple Combo
TabIndex = 18
Top = 600
Width = 1095
End
Begin VB.ComboBox cboFontStyle
Height = 1545
ItemData = "单元格设置.frx":00FC
Left = 3000
List = "单元格设置.frx":010C
Style = 1 'Simple Combo
TabIndex = 16
Top = 600
Width = 1095
End
Begin VB.ComboBox cboFontName
Height = 1545
ItemData = "单元格设置.frx":012D
Left = 120
List = "单元格设置.frx":012F
Sorted = -1 'True
Style = 1 'Simple Combo
TabIndex = 15
Top = 600
Width = 2775
End
Begin MSComctlLib.ImageList ImgLstFont
Left = 1200
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 50
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 16
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":0131
Key = "K1"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":03D0
Key = "K2"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":0671
Key = "K3"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":0912
Key = "K4"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":0BB3
Key = "K5"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":0E54
Key = "K6"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":10F5
Key = "K7"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":1396
Key = "K8"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":1635
Key = "K9"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":18D6
Key = "K10"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":1B77
Key = "K11"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":1E18
Key = "K12"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":20B9
Key = "K13"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":235A
Key = "K14"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":25FA
Key = "K15"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "单元格设置.frx":2897
Key = "K16"
EndProperty
EndProperty
End
Begin VB.Label lblFontSize
AutoSize = -1 'True
Caption = "字号"
Height = 195
Left = 4200
TabIndex = 19
Top = 360
Width = 360
End
Begin VB.Label lblFontStyle
AutoSize = -1 'True
Caption = "字形"
Height = 195
Left = 3000
TabIndex = 17
Top = 360
Width = 360
End
Begin VB.Label lblFont
AutoSize = -1 'True
Caption = "字体"
Height = 195
Left = 120
TabIndex = 14
Top = 360
Width = 360
End
End
Begin VB.Frame fraCell
Caption = "图案"
Height = 4095
Index = 3
Left = 195
TabIndex = 12
Top = 360
Width = 5415
Begin VB.PictureBox picPattern
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
ForeColor = &H80000008&
Height = 1300
Left = 3000
ScaleHeight = 1275
ScaleWidth = 1275
TabIndex = 38
Top = 2280
Width = 1300
End
Begin MSComctlLib.Toolbar tlbPattern
Height = 525
Left = 240
TabIndex = 30
Top = 780
Width = 1440
_ExtentX = 2540
_ExtentY = 926
ButtonWidth = 847
ButtonHeight = 820
ImageList = "ilsPattern(0)"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 18
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Pattern01"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Pattern02"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -