frmtest.frm
来自「多种图表的绘制及其运用」· FRM 代码 · 共 744 行 · 第 1/2 页
FRM
744 行
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "*\A..\XQUADR~1\XQuadrant.vbp"
Begin VB.Form frmTest
Caption = "ActiveQuadrant Test"
ClientHeight = 8265
ClientLeft = 165
ClientTop = 465
ClientWidth = 11445
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8265
ScaleWidth = 11445
StartUpPosition = 2 'CenterScreen
Begin VB.ComboBox cboPrtMode
Height = 315
Left = 6750
Style = 2 'Dropdown List
TabIndex = 28
Top = 5640
Width = 915
End
Begin VB.ComboBox cboType
Height = 315
Left = 6750
Style = 2 'Dropdown List
TabIndex = 26
Top = 5280
Width = 915
End
Begin VB.TextBox txtMinX
Height = 285
Left = 3060
TabIndex = 32
Text = "Text1"
Top = 7110
Width = 705
End
Begin VB.TextBox txtMaxX
Height = 285
Left = 3060
TabIndex = 31
Text = "Text1"
Top = 7440
Width = 705
End
Begin ActiveQuadrant.XQuadrant XQuadrant1
Height = 4545
Left = 180
TabIndex = 0
Top = 150
Width = 11145
_ExtentX = 19659
_ExtentY = 8017
InfoItems = "XY values|Description"
SelectedColor = 255
uSelectable = -1 'True
uSelectedColumn = -1
uTopMargin = 750
uBottomMargin = 825
uLeftMargin = 825
uRightMargin = 825
uContentBorder = -1 'True
uChartTitle = "Quadrants"
uChartSubTitle = "(data processed on...)"
uAxisXOn = -1 'True
uAxisYOn = -1 'True
uIntersectMajorY= 1
uIntersectMinorY= 0,5
uIntersectMajorX= 1
uIntersectMinorX= 0,5
uMaxYValue = 5
uMaxXValue = 5
QuadrantY = 3
QuadrantX = 3
uDisplayDescript= 0 'False
uXAxisLabel = "Technical"
uYAxislabel = "Business"
BackColor = 16777152
ForeColor = 4194368
MinY = 0
MinX = 0
MajorGridColor = 4194304
MinorGridColor = 16776960
LegendBackColor = 16777088
LegendForeColor = 16711680
InfoBackColor = -2147483624
InfoForeColor = -2147483625
InfoQuadrantBackColor= 12648447
InfoQuadrantForeColor= 4210688
XAxisLabelColor = 4194368
YAxisLabelColor = 4194368
XAxisItemsColor = 8388608
YAxisItemsColor = 8388608
ChartTitleColor = 8421376
ChartSubTitleColor= 4210688
MenuType = 0
MenuItems = "&Save as...|&Print|&Copy|Selection &information|&Quadrant information|&Legend|&Hide"
CustomMenuItems = ""
InfoItems = "XY values|Description"
SaveAsCaption = ""
AutoRedraw = -1 'True
MarkerSymbol = 0
PictureTile = 0 'False
MinorGridOn = -1 'True
MajorGridOn = -1 'True
MarkerWidth = 1
MarkerColor = 255
DataFormat = ""
PrinterFit = 5
PrinterOrientation= 2
LegendCaption = "Display legend"
MarkerLabelAngle= 45
MarkerLabelDirection= 2
ChartAsQuadrant = -1 'True
QuadrantDividerColor= 16711935
QuadrantColorsOverridePicture= -1 'True
MarkerLabel = 16576
QuadrantColors = "13602382|13678156|12177484|10932300"
HotTracking = 0 'False
LegendPrintMode = 1
InnerColor = 128
End
Begin VB.CheckBox Check1
Caption = "Show back picture"
Height = 195
Index = 2
Left = 3840
TabIndex = 29
Top = 7590
Value = 1 'Checked
Width = 1815
End
Begin VB.TextBox txtMarkerWidth
Height = 285
Left = 6750
TabIndex = 24
Text = "Text1"
Top = 4920
Width = 915
End
Begin VB.CheckBox Check1
Caption = "Tile back picture"
Height = 195
Index = 1
Left = 3840
TabIndex = 22
Top = 7290
Width = 1815
End
Begin VB.TextBox txtMaxY
Height = 285
Left = 1170
TabIndex = 19
Text = "Text1"
Top = 7470
Width = 705
End
Begin VB.TextBox txtMinY
Height = 285
Left = 1170
TabIndex = 18
Text = "Text1"
Top = 7140
Width = 705
End
Begin VB.OptionButton Option1
Caption = "Buttons menu"
Height = 225
Index = 1
Left = 3840
TabIndex = 15
Top = 6990
Width = 1815
End
Begin VB.OptionButton Option1
Caption = "Popup menu"
Height = 225
Index = 0
Left = 3840
TabIndex = 14
Top = 6690
Width = 1815
End
Begin VB.CommandButton Command1
Caption = "&Apply settings"
Height = 345
Left = 120
TabIndex = 3
Top = 7830
Width = 7515
End
Begin MSComDlg.CommonDialog dlgColor
Left = 7200
Top = -60
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DialogTitle = "Choose color"
End
Begin MSFlexGridLib.MSFlexGrid grd
Height = 3270
Left = 7770
TabIndex = 1
Top = 4890
Width = 3645
_ExtentX = 6429
_ExtentY = 5768
_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 Label3
AutoSize = -1 'True
Caption = "Printing mode"
Height = 390
Left = 5790
TabIndex = 27
Top = 5670
Width = 930
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Info quadrant backcolor"
Height = 255
Index = 18
Left = 3870
TabIndex = 39
Top = 6120
Width = 1845
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Info quadrant forecolor"
Height = 255
Index = 17
Left = 3870
TabIndex = 38
Top = 5820
Width = 1845
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Selected color"
Height = 255
Index = 15
Left = 3870
TabIndex = 37
Top = 5520
Width = 1845
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Quad. div. color"
Height = 255
Index = 8
Left = 3870
TabIndex = 36
Top = 5220
Width = 1845
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Marker label color"
Height = 255
Index = 7
Left = 3870
TabIndex = 35
Top = 4920
Width = 1845
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Min. X value"
Height = 195
Index = 3
Left = 2040
TabIndex = 34
Top = 7170
Width = 975
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Max. X value"
Height = 195
Index = 2
Left = 2040
TabIndex = 33
Top = 7500
Width = 975
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "Marker symbol"
Height = 390
Left = 5790
TabIndex = 25
Top = 5250
Width = 930
WordWrap = -1 'True
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Marker color"
Height = 255
Index = 16
Left = 1950
TabIndex = 30
Top = 6720
Width = 1845
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Marker width"
Height = 195
Left = 5790
TabIndex = 23
Top = 4920
Width = 915
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Max. Y value"
Height = 195
Index = 1
Left = 150
TabIndex = 21
Top = 7530
Width = 975
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "Min. Y value"
Height = 195
Index = 0
Left = 150
TabIndex = 20
Top = 7200
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 = 17
Top = 6420
Width = 1845
End
Begin VB.Label Label1
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "Minor grid color"
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?