frmtest.frm
来自「多种图表的绘制及其运用」· FRM 代码 · 共 769 行 · 第 1/2 页
FRM
769 行
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "*\AXChart.vbp"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form frmTest
Caption = "ActiveChart Test"
ClientHeight = 8595
ClientLeft = 165
ClientTop = 465
ClientWidth = 11445
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8595
ScaleWidth = 11445
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox cboPrtMode
Height = 315
Left = 4530
Style = 2 'Dropdown List
TabIndex = 41
Top = 5250
Width = 1185
End
Begin VB.CheckBox Check1
Caption = "Show mean value"
Height = 195
Index = 6
Left = 1950
TabIndex = 40
Top = 7980
Value = 1 'Checked
Width = 1845
End
Begin VB.CheckBox Check1
Caption = "Tile bar picture"
Height = 195
Index = 5
Left = 3900
TabIndex = 39
Top = 7500
Width = 1845
End
Begin VB.CheckBox Check1
Caption = "Show bar picture"
Height = 195
Index = 4
Left = 3900
TabIndex = 38
Top = 7740
Value = 1 'Checked
Width = 1845
End
Begin VB.CheckBox Check1
Caption = "Bar shadow"
Height = 195
Index = 3
Left = 3900
TabIndex = 36
Top = 7980
Value = 1 'Checked
Width = 1845
End
Begin VB.TextBox txtSymbol
Height = 285
Left = 5010
TabIndex = 34
Text = "Text1"
Top = 6390
Width = 705
End
Begin VB.CheckBox Check1
Caption = "Show back picture"
Height = 195
Index = 2
Left = 3900
TabIndex = 31
Top = 7260
Value = 1 'Checked
Width = 1845
End
Begin VB.TextBox txtLineWidth
Height = 285
Left = 5010
TabIndex = 29
Text = "Text1"
Top = 6060
Width = 705
End
Begin VB.CheckBox Check1
Caption = "Tile back picture"
Height = 195
Index = 1
Left = 3900
TabIndex = 28
Top = 7020
Width = 1845
End
Begin VB.TextBox txtBarPerc
Height = 285
Left = 5010
TabIndex = 27
Text = "Text1"
Top = 5730
Width = 705
End
Begin VB.ComboBox cboType
Height = 315
Left = 3870
Style = 2 'Dropdown List
TabIndex = 25
Top = 4920
Width = 1845
End
Begin VB.TextBox txtMax
Height = 285
Left = 1170
TabIndex = 22
Text = "Text1"
Top = 7950
Width = 705
End
Begin VB.TextBox txtMin
Height = 285
Left = 1170
TabIndex = 21
Text = "Text1"
Top = 7620
Width = 705
End
Begin VB.CheckBox Check1
Caption = "Hot tracking"
Height = 195
Index = 0
Left = 1950
TabIndex = 20
Top = 7740
Width = 1845
End
Begin VB.OptionButton Option1
Caption = "Buttons"
Height = 225
Index = 1
Left = 3900
TabIndex = 17
Top = 6750
Width = 885
End
Begin VB.OptionButton Option1
Caption = "Popup"
Height = 225
Index = 0
Left = 4860
TabIndex = 16
Top = 6750
Width = 885
End
Begin VB.CommandButton Command1
Caption = "&Apply settings"
Height = 345
Left = 120
TabIndex = 3
Top = 8250
Width = 5535
End
Begin MSComDlg.CommonDialog dlgColor
Left = 7200
Top = -60
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DialogTitle = "Choose color"
End
Begin ActiveChart.XChart XChart1
Height = 4755
Left = 60
TabIndex = 1
Top = 90
Width = 11310
_ExtentX = 19950
_ExtentY = 8387
uTopMargin = 600
uBottomMargin = 750
uLeftMargin = 750
uRightMargin = 750
uContentBorder = -1 'True
uSelectable = -1 'True
uHotTracking = -1 'True
uSelectedColumn = -1
uChartTitle = "Gain in 2002"
uChartSubTitle = "Italy"
uAxisXOn = -1 'True
uAxisYOn = -1 'True
uColorBars = 0 'False
uIntersectMajor = 200
uIntersectMinor = 50
uMaxYValue = 1000
uDisplayDescript= -1 'True
uXAxisLabel = "Months of the year"
uYAxislabel = "(in Euro)"
BackColor = 8421376
ForeColor = 16776960
MinY = -1000
BarColor = 49152
SelectedBarColor= 16777088
MajorGridColor = 16777215
MinorGridColor = 0
LegendBackColor = 4210688
LegendForeColor = 16777215
InfoBackColor = 12648447
InfoForeColor = 16711680
XAxisLabelColor = 16776960
YAxisLabelColor = 16776960
XAxisItemsColor = 4210688
YAxisItemsColor = 4210688
ChartTitleColor = 65535
ChartSubTitleColor= 8454143
ChartType = 1
MenuType = 0
MenuItems = "&Save as...|&Print|&Copy|Selection &information|&Legend|&Hide"
CustomMenuItems = ""
InfoItems = ""
SaveAsCaption = "Salva grafico"
AutoRedraw = -1 'True
BarWidthPercentage= 100
BarSymbol = "*"
BarPicture = "frmTest.frx":0000
BarPictureTile = -1 'True
Picture = "frmTest.frx":02A3
PictureTile = 0 'False
MinorGridOn = 0 'False
MajorGridOn = -1 'True
LineWidth = 1
LineColor = 255
BarSymbolColor = 255
BarFillStyle = 0
LineStyle = 0
BarShadow = -1 'True
BarShadowColor = 0
MeanOn = -1 'True
MeanColor = 65535
MeanCaption = ""
DataFormat = "##.00"
PrinterFit = 0
PrinterOrientation= 0
LegendCaption = "Display legend"
LegendPrintMode = 1
End
Begin MSFlexGridLib.MSFlexGrid grd
Height = 3690
Left = 5880
TabIndex = 0
Top = 4890
Width = 5535
_ExtentX = 9763
_ExtentY = 6509
_Version = 393216
Rows = 0
Cols = 3
FixedRows = 0
FixedCols = 0
BackColorBkg = -2147483633
AllowBigSelection= -1 'True
FocusRect = 0
SelectionMode = 1
AllowUserResizing= 1
BorderStyle = 0
Appearance = 0
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "Printing mode"
Height = 390
Left = 3870
TabIndex = 42
Top = 5280
Width = 660
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Bar shadow color"
Height = 255
Index = 17
Left = 1950
TabIndex = 37
Top = 7320
Width = 1845
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Symbol"
Height = 195
Left = 3870
TabIndex = 35
Top = 6420
Width = 510
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Symbol color"
Height = 255
Index = 16
Left = 1950
TabIndex = 33
Top = 7020
Width = 1845
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Line color"
Height = 255
Index = 15
Left = 1950
TabIndex = 32
Top = 6720
Width = 1845
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Line width"
Height = 195
Left = 3870
TabIndex = 30
Top = 6090
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Bar width (%)"
Height = 195
Left = 3870
TabIndex = 26
Top = 5790
Width = 915
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Max. Y value"
Height = 195
Index = 1
Left = 150
TabIndex = 24
Top = 8010
Width = 975
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Min. Y value"
Height = 195
Index = 0
Left = 150
TabIndex = 23
Top = 7680
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Major grid color"
Height = 255
Index = 14
Left = 1950
TabIndex = 19
Top = 6420
Width = 1845
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Minor grid color"
Height = 255
Index = 13
Left = 1950
TabIndex = 18
Top = 6120
Width = 1845
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Info foreground color"
Height = 255
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?