change_voice.frm

一个用vb开发的比较好的聊天系统

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