📄 change_voice.frm
字号:
VERSION 5.00
Object = "{21D4D402-6A96-11D2-A0F9-444553540000}#1.0#0"; "EQPro.ocx"
Begin VB.Form change_voice
BorderStyle = 3 'Fixed Dialog
Caption = "声音调节"
ClientHeight = 2610
ClientLeft = 45
ClientTop = 330
ClientWidth = 3915
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2610
ScaleWidth = 3915
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command1
Caption = "关 闭"
Height = 375
Left = 2640
TabIndex = 7
Top = 2040
Width = 855
End
Begin EQPro.ucEQPro mic
Height = 450
Left = 720
TabIndex = 3
Top = 1200
Width = 2775
_ExtentX = 794
_ExtentY = 794
LineControl = 5
LayoutAlign = 0
End
Begin EQPro.ucEQPro master
Height = 450
Left = 720
TabIndex = 0
Top = 360
Width = 2775
_ExtentX = 794
_ExtentY = 794
LayoutAlign = 0
End
Begin VB.CheckBox Check1
Caption = "Mute"
Height = 375
Left = 2640
TabIndex = 4
Top = 1560
Width = 735
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Http://www.ruixun.net"
Height = 180
Left = 120
TabIndex = 6
Top = 2280
Width = 1890
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "宁波锐迅网络技术有限公司"
Height = 180
Left = 120
TabIndex = 5
Top = 2040
Width = 2160
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "mic调节"
Height = 180
Left = 1680
TabIndex = 2
Top = 960
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "声音调节"
Height = 180
Left = 1680
TabIndex = 1
Top = 120
Width = 720
End
Begin VB.Image Image2
Height = 240
Left = 360
Picture = "change_voice.frx":0000
Top = 1320
Width = 240
End
Begin VB.Image Image1
Height = 240
Left = 360
Picture = "change_voice.frx":014A
Top = 480
Width = 240
End
End
Attribute VB_Name = "change_voice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
If Check1.Value = 0 Then
mic.Mute = False
Else
mic.Mute = True
End If
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -