VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/01/23(Thu) 10:56 |
| 投稿者 | ： A221 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: 音を任意で出したい |
こんな感じでどうでしょうか？
'モジュールの宣言に
’----------------------------
Public Const SND_SYNC = &H0 '同期再生
Public Const SND_ASYNC = &H1 '非同期再生
Public Const SND_LOOP = &H8 'ループ
Public Const SND_NOSTOP = &H10 '他が再生中は再生しない
'sndPlaySound関数の宣言
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
’----------------------------
'モジュールに----------------------------
Public Sub extendBeep(Optional ByVal Fnamestr As String = "C:\WINDOWS\MEDIA\ringin.wav")
'使用法: Call extendBeep(ファイル名)
Dim lngL As Long
lngL = sndPlaySound(Fnamestr, SND_ASYNC Or SND_NOSTOP)
End Sub
’----------------------------
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）