【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net (435ﾚｽ)
【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1482549747/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
120: デフォルトの名無しさん [] 2017/03/14(火) 22:02:38.43 ID:1/oLMu3p >>118 非同期の起動に成功した。 http://eternalwindows .jp/winmm/mci/mci02.html http://www13.plala .or.jp/kymats/study/MULTIMEDIA/mciCommand_callback.html https://msdn.microsoft.com/ja-jp/library/cc410496.aspx http://mevius.5ch.net/test/read.cgi/tech/1482549747/120
121: デフォルトの名無しさん [] 2017/03/14(火) 22:03:19.95 ID:1/oLMu3p Case MM_MCINOTIFY '「MM_MCINOTIFY」定数を使うには 要 #Include Once "win/mmsystem.bi" Astring = "MM_MCINOTIFY "+ Hex$(wParam) + " " + Hex$(lParam) TakaDammyReturnCode = SoundFilePlay(10, Astring) buff = Astring SetDlgItemText(hWin, IDC_STC1, @buff) 'wParam = (WPARAM) wFlags 'lParam = (LONG) lDevID http://mevius.5ch.net/test/read.cgi/tech/1482549747/121
122: デフォルトの名無しさん [] 2017/03/14(火) 22:06:03.27 ID:1/oLMu3p あと CmdZString ="Open " & SoundFile+" notify" MSerrorCodeMI= mciSendString(CmdZString, @CmdRetZString, SizeOf(CmdRetZString), TakaHWND) buff ="Openを開始します" SetDlgItemText(hWin, IDC_STC1, @buff) Case IDC_BTN3 CmdZString= "Play "&SoundFile + " notify" MSerrorCodeMI =mciSendString(CmdZString,@CmdRetZString, SizeOf(CmdRetZString), TakaHWND) buff= "Playを開始します" SetDlgItemText(hWin, IDC_STC1, @buff) Case IDC_BTN4 CmdZString ="Close " & SoundFile+" notify" MSerrorCodeMI= mciSendString(CmdZString, @CmdRetZString,SizeOf(CmdRetZString), TakaHWND) buff ="Closeを開始します" SetDlgItemText(hWin, IDC_STC1, @buff) http://mevius.5ch.net/test/read.cgi/tech/1482549747/122
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.027s