• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Play 1 file WAV bằng code

Các thủ thuật về âm thanh, đồ họa, truyền thông đa phương tiện...
vinhphuoc91
Thành viên tích cực
Thành viên tích cực
Bài viết: 146
Ngày tham gia: T.Tư 26/03/2008 5:52 pm
Đến từ: Phú Yên
Been thanked: 15 time
Liên hệ:

Play 1 file WAV bằng code

Gửi bàigửi bởi vinhphuoc91 » T.Bảy 29/03/2008 6:28 pm

Thủ thuật: Play 1 file WAV bằng code
Tác giả: Sưu tầm
Mô tả: Play 1 file WAV bằng code


Mã: Chọn hết

  1. Option Explicit
  2.  
  3. Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  4. Private Const SND_SYNC = &H0
  5. Private Const SND_ASYNC = &H1
  6. Private Const SND_NODEFAULT = &H2
  7. Private Const SND_LOOP = &H8
  8. Private Const SND_NOSTOP = &H10
  9.  
  10. Private Sub Command1_Click()
  11.     Dim sFlags As Long
  12.     sFlags = SND_ASYNC Or SND_NODEFAULT
  13.     sndPlaySound "SystemStart", sFlags
  14. End Sub
Tập tin đính kèm
Play Wav.rar
(1.52 KiB) Đã tải 1143 lần


My website : http://tinthoitrang.net

Quay về “[VB] Âm thanh và Đồ họa”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách