form1.frm

vb电子书籍

   VERSION 5.00
   Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
   Begin VB.Form Form1
      BackColor       =   &H80000000&
      Caption         =   "后台音乐"
      ClientHeight    =   3330
      ClientLeft      =   60
      ClientTop       =   345
      ClientWidth     =   4860
      FillColor       =   &H00FF0000&
      BeginProperty Font
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Icon            =   "Form1.frx":0000
      LinkTopic       =   "Form1"
      ScaleHeight     =   3330
      ScaleWidth      =   4860
      StartUpPosition =   2  '屏幕中心
      Begin VB.CommandButton Command2
         Caption         =   "停止"
         Height          =   495
         Left            =   2400
         TabIndex        =   1
         Top             =   1800
         Width           =   1695
      End
      Begin MSComDlg.CommonDialog CommonDialog1
         Left            =   600
         Top             =   2760
         _ExtentX        =   847
         _ExtentY        =   847
         _Version        =   393216
      End
      Begin VB.CommandButton Command1
         Caption         =   "打开音乐文件"
         Height          =   615
         Left            =   2400
         TabIndex        =   0
         Top             =   840
         Width           =   1695
      End
   End
   Attribute VB_Name = "Form1"
   Attribute VB_GlobalNameSpace = False
   Attribute VB_Creatable = False
   Attribute VB_PredeclaredId = True
   Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：Command1_Click
'## 参数： 无
'##################################################################
Private Sub Command1_Click()
    Dim k As Integer
    CommonDialog1.DialogTitle = "选择要装入的声音文件"
    CommonDialog1.Filter = "wave file(*.wav)|*.wav|all files(*.*)|*.*"
    CommonDialog1.Action = 1
    k = sndplaysound(CommonDialog1.FileName, &H9)
End Sub
    
'##################################################################
'## 过程名称：Command2_Click
'## 参数： 无
'##################################################################
Private Sub Command2_Click()
    Dim k As Integer
    k = sndplaysound("", 1)
    
End Sub
    
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
    
End Sub