📄 frmoptions.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{65E121D4-0C60-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCHRT20.OCX"
Begin VB.Form frmOptions
BorderStyle = 3 'Fixed Dialog
Caption = "选项"
ClientHeight = 4860
ClientLeft = 2565
ClientTop = 1500
ClientWidth = 6405
Icon = "frmOptions.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4860
ScaleWidth = 6405
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 4125
Left = 90
TabIndex = 6
Top = 240
Width = 6165
_ExtentX = 10874
_ExtentY = 7276
_Version = 393216
TabHeight = 520
TabCaption(0) = " "
TabPicture(0) = "frmOptions.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Label1(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label1(1)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label1(2)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label8(0)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label8(1)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label8(2)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Image1"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "CodColor(0)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "CheckRoad"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Checkpipe"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "CheckRive"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "CodColor(1)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "CodColor(2)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "CombRoadW"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "CombPipeW"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "CombRiveW"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "CheckFFOShow"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "CheckFlux"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "Frame1"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Frame2"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).ControlCount= 20
TabCaption(1) = " "
TabPicture(1) = "frmOptions.frx":3466
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "MaskEdBox1(0)"
Tab(1).Control(1)= "MaskEdBox2(0)"
Tab(1).Control(2)= "MaskEdBox2(1)"
Tab(1).Control(3)= "MaskEdBox2(2)"
Tab(1).Control(4)= "MaskEdBox2(3)"
Tab(1).Control(5)= "MaskEdBox2(4)"
Tab(1).Control(6)= "MaskEdBox2(5)"
Tab(1).Control(7)= "MaskEdBox2(6)"
Tab(1).Control(8)= "MaskEdBox2(7)"
Tab(1).Control(9)= "MaskEdBox1(1)"
Tab(1).Control(10)= "MaskEdBox2(8)"
Tab(1).Control(11)= "MaskEdBox2(9)"
Tab(1).Control(12)= "Label4(9)"
Tab(1).Control(13)= "Label4(8)"
Tab(1).Control(14)= "Image2"
Tab(1).Control(15)= "Label3(0)"
Tab(1).Control(16)= "Label3(1)"
Tab(1).Control(17)= "Label4(0)"
Tab(1).Control(18)= "Label4(1)"
Tab(1).Control(19)= "Label4(2)"
Tab(1).Control(20)= "Label4(3)"
Tab(1).Control(21)= "Label4(4)"
Tab(1).Control(22)= "Label4(5)"
Tab(1).Control(23)= "Label4(6)"
Tab(1).Control(24)= "Label4(7)"
Tab(1).Control(25)= "Label3(2)"
Tab(1).Control(26)= "Label2(0)"
Tab(1).Control(27)= "Label2(1)"
Tab(1).ControlCount= 28
TabCaption(2) = " "
TabPicture(2) = "frmOptions.frx":6AF8
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label5(0)"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Label6(0)"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Label5(1)"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "Label6(1)"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "MSChart1"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).ControlCount= 5
Begin VB.Frame Frame2
Caption = "动画速度"
Height = 885
Left = 510
TabIndex = 51
Top = 2970
Width = 1425
Begin VB.TextBox Text1
Height = 345
Left = 60
MaxLength = 4
TabIndex = 53
Top = 300
Width = 765
End
Begin MSComCtl2.UpDown UpDown1
Height = 345
Left = 810
TabIndex = 52
Top = 300
Width = 195
_ExtentX = 476
_ExtentY = 609
_Version = 393216
AutoBuddy = -1 'True
BuddyControl = "Text1"
BuddyDispid = 196610
OrigLeft = 810
OrigTop = 420
OrigRight = 1005
OrigBottom = 1065
Increment = 50
Max = 9999
SyncBuddy = -1 'True
BuddyProperty = 65547
Enabled = -1 'True
End
Begin VB.Label Label7
Caption = "ms/f"
Height = 255
Left = 1020
TabIndex = 54
Top = 360
Width = 375
End
End
Begin VB.Timer Timer1
Interval = 500
Left = 4530
Top = -150
End
Begin MSChart20Lib.MSChart MSChart1
Height = 3315
Left = -75240
OleObjectBlob = "frmOptions.frx":A042
TabIndex = 41
Top = 360
Width = 6780
End
Begin VB.Frame Frame1
Caption = "窗体背景"
Height = 1605
Left = 2160
TabIndex = 46
Top = 2280
Width = 3045
Begin MSComDlg.CommonDialog CommonDialog5
Left = 2880
Top = 1350
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DefaultExt = "jpg"
DialogTitle = "选择背景图片"
End
Begin VB.CommandButton MapBlackImage
Caption = "选择背景图片"
Height = 375
Left = 1530
TabIndex = 50
Top = 990
Width = 1305
End
Begin VB.OptionButton Option2
Caption = "背景图片"
Height = 405
Left = 210
TabIndex = 49
Top = 930
Width = 1035
End
Begin VB.OptionButton Option1
Caption = "背景色"
Height = 375
Left = 210
TabIndex = 48
Top = 360
Width = 1005
End
Begin VB.CommandButton MapBlackColor
Caption = "选择背景色"
Height = 375
Left = 1530
TabIndex = 47
Top = 360
Width = 1305
End
Begin MSComDlg.CommonDialog CommonDialog4
Left = 2040
Top = 300
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Color = -2147483638
End
End
Begin VB.CheckBox CheckFlux
Caption = "显示流量"
Height = 345
Left = 510
TabIndex = 3
Top = 2040
Width = 1305
End
Begin VB.CheckBox CheckFFOShow
Caption = "显示操作站"
Height = 285
Left = 510
TabIndex = 19
Top = 2520
Width = 1215
End
Begin VB.ComboBox CombRiveW
Height = 300
Left = 3780
TabIndex = 15
Text = "默认"
Top = 1560
Width = 1215
End
Begin VB.ComboBox CombPipeW
Height = 300
Left = 3750
TabIndex = 14
Text = "默认"
Top = 1050
Width = 1215
End
Begin VB.ComboBox CombRoadW
Height = 300
ItemData = "frmOptions.frx":C3FB
Left = 3750
List = "frmOptions.frx":C3FD
TabIndex = 13
Text = "CombRoadW"
Top = 600
Width = 1215
End
Begin MSComDlg.CommonDialog CommonDialog3
Left = -330
Top = 1590
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSComDlg.CommonDialog CommonDialog2
Left = -330
Top = 960
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton CodColor
BackColor = &H80000005&
Caption = "选择颜色"
Height = 315
Index = 2
Left = 1890
TabIndex = 12
Top = 1560
Width = 945
End
Begin VB.CommandButton CodColor
BackColor = &H80000005&
Caption = "选择颜色"
Height = 315
Index = 1
Left = 1890
TabIndex = 11
Top = 1050
Width = 945
End
Begin VB.CheckBox CheckRive
Caption = "显示河道"
Height = 315
Left = 510
TabIndex = 10
Top = 1560
Width = 1185
End
Begin VB.CheckBox Checkpipe
Caption = "显示管路"
Height = 375
Left = 510
TabIndex = 9
Top = 1050
Width = 1065
End
Begin VB.CheckBox CheckRoad
Caption = "显示道路"
Height = 375
Left = 510
TabIndex = 8
Top = 600
Width = 1155
End
Begin VB.CommandButton CodColor
BackColor = &H80000005&
Caption = "选择颜色"
Height = 315
Index = 0
Left = 1890
TabIndex = 7
Top = 600
Width = 945
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = -330
Top = 300
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Color = 65535
DialogTitle = "选择颜色"
Flags = 1
End
Begin MSMask.MaskEdBox MaskEdBox1
Height = 345
Index = 0
Left = -70620
TabIndex = 20
Top = 960
Width = 855
_ExtentX = 1508
_ExtentY = 609
_Version = 393216
PromptChar = "_"
End
Begin MSMask.MaskEdBox MaskEdBox2
Height = 345
Index = 0
Left = -74130
TabIndex = 21
Top = 960
Width = 855
_ExtentX = 1508
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
PromptChar = "_"
End
Begin MSMask.MaskEdBox MaskEdBox2
Height = 345
Index = 1
Left = -74130
TabIndex = 22
Top = 1395
Width = 855
_ExtentX = 1508
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
PromptChar = "_"
End
Begin MSMask.MaskEdBox MaskEdBox2
Height = 345
Index = 2
Left = -74130
TabIndex = 23
Top = 1815
Width = 855
_ExtentX = 1508
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
PromptChar = "_"
End
Begin MSMask.MaskEdBox MaskEdBox2
Height = 345
Index = 3
Left = -74130
TabIndex = 24
Top = 2250
Width = 855
_ExtentX = 1508
_ExtentY = 609
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -