sndplaysound.frm

个人VB学习源码精选,自己学习时的一些编程小程序,希望对大家有帮助

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "sndPlaySound范例工程"
   ClientHeight    =   3855
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5910
   LinkTopic       =   "Form1"
   ScaleHeight     =   3855
   ScaleWidth      =   5910
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command3 
      Caption         =   "播放 SystemExit声音"
      Height          =   375
      Left            =   360
      TabIndex        =   13
      Top             =   3120
      Width           =   2295
   End
   Begin VB.CommandButton Command2 
      Caption         =   "停止播放"
      Height          =   495
      Left            =   1560
      TabIndex        =   12
      Top             =   2520
      Width           =   1095
   End
   Begin VB.TextBox txtReturn 
      Height          =   270
      Left            =   3840
      TabIndex        =   10
      Top             =   2640
      Width           =   1455
   End
   Begin VB.DirListBox Dir1 
      Height          =   1140
      Left            =   360
      TabIndex        =   9
      Top             =   960
      Width           =   1815
   End
   Begin VB.CommandButton Command1 
      Caption         =   "播  放"
      Height          =   495
      Left            =   360
      TabIndex        =   8
      Top             =   2520
      Width           =   1095
   End
   Begin VB.OptionButton optASYNC 
      Caption         =   "SND_ASYNC"
      Height          =   255
      Left            =   4320
      TabIndex        =   7
      Top             =   1800
      Value           =   -1  'True
      Width           =   1695
   End
   Begin VB.OptionButton optASYN 
      Caption         =   "SND_SYNC"
      Height          =   255
      Left            =   4320
      TabIndex        =   6
      Top             =   1440
      Width           =   1455
   End
   Begin VB.CheckBox chkNOSTOP 
      Caption         =   "SND_NOSTOP"
      Height          =   255
      Left            =   4320
      TabIndex        =   4
      Top             =   720
      Width           =   1455
   End
   Begin VB.CheckBox chkLOOP 
      Caption         =   "SND_LOOP"
      Height          =   255
      Left            =   4320
      TabIndex        =   3
      Top             =   1080
      Width           =   1215
   End
   Begin VB.FileListBox File1 
      Height          =   1455
      Left            =   2280
      Pattern         =   "*.wav"
      TabIndex        =   2
      Top             =   600
      Width           =   1695
   End
   Begin VB.DriveListBox Drive1 
      Height          =   300
      Left            =   360
      TabIndex        =   0
      Top             =   600
      Width           =   1815
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "传回值:"
      Height          =   180
      Left            =   3120
      TabIndex        =   11
      Top             =   2688
      Width           =   636
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "请设定播放方式"
      Height          =   180
      Left            =   4080
      TabIndex        =   5
      Top             =   240
      Width           =   1260
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请选取.wav文件"
      Height          =   180
      Left            =   120
      TabIndex        =   1
      Top             =   240
      Width           =   1284
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Dim wavFile As String, soundFlag As Long
    
    wavFile = File1.Path
    If Right(File1.Path, 1) <> "\" Then wavFile = wavFile & "\"
    wavFile = File1.FileName
    
    soundFlag = IIf(optASYNC.Value, SND_ASYNC, SND_SYNC)
    If chkLOOP Then soundFlag = soundFlag Or SND_LOOP
    If chkNOSTOP Then soundFlag = soundFlag Or SND_NOSTOP
    
    txtReturn = sndPlaySound(wavFile, soundFlag)
End Sub

Private Sub Command2_Click()
    txtReturn = sndPlaySound(vbNullString, 0)
End Sub

Private Sub Command3_Click()
    txtReturn = sndPlaySound("SystemExit", SND_ASYNC)
End Sub

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub