📄 main.frm
字号:
VERSION 5.00
Begin VB.Form Form1
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "声音波形文件生成器"
ClientHeight = 6600
ClientLeft = 150
ClientTop = 150
ClientWidth = 10680
Icon = "Main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 440
ScaleMode = 3 'Pixel
ScaleWidth = 712
StartUpPosition = 2 '屏幕中心
Begin VB.OptionButton optBit
Caption = "16 位"
Height = 255
Index = 1
Left = 3885
TabIndex = 43
Top = 105
Value = -1 'True
Width = 885
End
Begin VB.OptionButton optBit
Caption = "8 位"
Height = 255
Index = 0
Left = 2940
TabIndex = 42
Top = 105
Width = 780
End
Begin Project1.Container fraMisc
Height = 585
Left = 3090
TabIndex = 27
Top = 5715
Width = 3525
_ExtentX = 6218
_ExtentY = 1032
BackColor = -2147483633
BorderColorDark = 4210752
Caption = "类型 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
Picture = "Main.frx":0442
Begin VB.CheckBox chkReverse
Caption = "反相"
Height = 255
Left = 2505
TabIndex = 30
Top = 210
Width = 900
End
Begin VB.CheckBox chkABS
Caption = "绝对值"
Height = 270
Left = 1380
TabIndex = 29
Top = 210
Width = 930
End
Begin VB.CheckBox chkShape
Caption = "基本形状"
Height = 225
Left = 150
TabIndex = 28
Top = 225
Width = 1215
End
End
Begin Project1.Container fraRepeat
Height = 1140
Left = 4320
TabIndex = 23
Top = 4500
Width = 1290
_ExtentX = 2275
_ExtentY = 2011
BackColor = -2147483633
BorderColorDark = 4210752
Caption = "重复 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
Picture = "Main.frx":045E
Begin VB.CheckBox chkRepeat
Caption = "重复"
Height = 210
Left = 150
TabIndex = 26
Top = 825
Width = 945
End
Begin VB.HScrollBar HSRepeat
Height = 210
Left = 105
Max = 32
Min = 2
TabIndex = 24
TabStop = 0 'False
Top = 555
Value = 2
Width = 1065
End
Begin VB.Label LabRepeat
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "LabReat"
Height = 240
Left = 375
TabIndex = 25
Top = 240
Width = 450
End
End
Begin VB.CommandButton cmdAdd2Presets
Caption = "载入预置"
Height = 300
Left = 9315
TabIndex = 21
Top = 105
Width = 1260
End
Begin VB.CommandButton cmdPresets
Caption = "预置"
Height = 285
Left = 8340
TabIndex = 20
Top = 90
Width = 930
End
Begin Project1.Container fraPlay
Height = 2640
Left = 5715
TabIndex = 13
Top = 3000
Width = 1140
_ExtentX = 2011
_ExtentY = 4657
BackColor = -2147483633
BorderColorDark = 4210752
Caption = "播放 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
Picture = "Main.frx":047A
Begin VB.CheckBox chkPlay
BackColor = &H00000000&
Caption = "播放"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFF80&
Height = 615
Left = 195
Style = 1 'Graphical
TabIndex = 16
Top = 330
Width = 720
End
Begin VB.CommandButton cmdRepStop
Caption = "循环"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 0
Left = 210
TabIndex = 15
Top = 1140
Width = 705
End
Begin VB.CommandButton cmdRepStop
Caption = "停止"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Index = 1
Left = 210
TabIndex = 14
Top = 1905
Width = 705
End
Begin VB.Shape ShapeCmdRepStop
BorderColor = &H00404040&
BorderStyle = 0 'Transparent
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 720
Index = 1
Left = 120
Top = 1830
Width = 870
End
Begin VB.Shape ShapeCmdRepStop
BorderColor = &H00404040&
BorderStyle = 0 'Transparent
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 750
Index = 0
Left = 135
Top = 1035
Width = 870
End
Begin VB.Shape ShapeChkPlay
BorderColor = &H00404040&
BorderStyle = 0 'Transparent
FillColor = &H8000000F&
FillStyle = 0 'Solid
Height = 750
Left = 135
Top = 270
Width = 870
End
End
Begin Project1.Container fraFormulae
Height = 3300
Left = 6960
TabIndex = 6
Top = 3000
Width = 3330
_ExtentX = 5874
_ExtentY = 5821
BackColor = -2147483633
BorderColorDark = 4210752
Caption = "数学公式 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
Picture = "Main.frx":0496
Begin VB.ListBox List1
Height = 2760
Left = 150
TabIndex = 7
Top = 300
Width = 2985
End
End
Begin Project1.Container fraRamps
Height = 2640
Left = 2835
TabIndex = 5
Top = 3000
Width = 1380
_ExtentX = 2434
_ExtentY = 4657
BackColor = -2147483633
BorderColorDark = 4210752
Caption = "斜面 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
Picture = "Main.frx":04B2
Begin VB.CommandButton cmdRamp
Caption = "无"
Height = 330
Left = 240
TabIndex = 12
Top = 2100
Width = 870
End
Begin VB.PictureBox picRamp
AutoRedraw = -1 'True
Height = 345
Index = 1
Left = 120
MousePointer = 9 'Size W E
ScaleHeight = 19
ScaleMode = 3 'Pixel
ScaleWidth = 72
TabIndex = 9
Top = 1530
Width = 1140
End
Begin VB.PictureBox picRamp
AutoRedraw = -1 'True
Height = 345
Index = 0
Left = 120
MousePointer = 9 'Size W E
ScaleHeight = 19
ScaleMode = 3 'Pixel
ScaleWidth = 72
TabIndex = 8
Top = 615
Width = 1140
End
Begin VB.Label LabFrac
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 240
Index = 1
Left = 255
TabIndex = 11
Top = 1215
Width = 780
End
Begin VB.Label LabFrac
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Height = 240
Index = 0
Left = 255
TabIndex = 10
Top = 300
Width = 780
End
End
Begin Project1.Container fraEcho
Height = 1470
Left = 4320
TabIndex = 4
Top = 3000
Width = 1290
_ExtentX = 2275
_ExtentY = 2593
BackColor = -2147483633
BorderColorDark = 4210752
Caption = "回波 "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 16711680
Picture = "Main.frx":04CE
Begin VB.CheckBox chkStagger
Caption = "+交错"
Height = 195
Left = 165
TabIndex = 22
Top = 1140
Width = 975
End
Begin VB.CheckBox chkEcho
Caption = "回声"
Height = 270
Left = 165
TabIndex = 19
Top = 810
Width = 855
End
Begin VB.HScrollBar HSEcho
Height = 210
Left = 105
Max = 32
Min = 1
TabIndex = 17
TabStop = 0 'False
Top = 555
Value = 1
Width = 1065
End
Begin VB.Label LabEcho
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "LabEcho"
Height = 225
Left = 390
TabIndex = 18
Top = 240
Width = 450
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -