MIDI出力デバイス名を列挙する
MIDI出力デバイス名を列挙するサンプルです。
サンプルの実行画面

ソースコード
[midiOutGetDevCaps.frm]
'midiOutGetDevCaps=>MIDI出力デバイスの名前を列挙する '<引数> 'uDeviceID:ID番号(0~) 'lpCaps: MIDIOUTCAPS構造体 'uSize: デバイス名の文字数 '@戻り値@ '正常終了0以外 Private Declare Function midiOutGetDevCaps Lib "winmm.dll" Alias "midiOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As MIDIOUTCAPS, ByVal uSize As Long) As Long 'midiOutGetDevCaps=>MIDI出力デバイス数を取得 '<戻り値> 'MIDI出力デバイス数 Private Declare Function midiOutGetNumDevs Lib "winmm" () As Integer Const MAXPNAMELEN = 32 Private Type MIDIOUTCAPS wMid As Integer wPid As Integer vDriverVersion As Long szPname As String * MAXPNAMELEN wTechnology As Integer wVoices As Integer wNotes As Integer wChannelMask As Integer dwSupport As Long End Type Private Sub Command1_Click() Dim Ret As Long Dim Syurui As MIDIOUTCAPS List1.Clear 'MIDI出力デバイス数を取得 Ret = midiOutGetNumDevs For i = 0 To Ret - 1 'MIDI出力デバイス名を取得 Ret = midiOutGetDevCaps(i, Syurui, Len(Syurui)) List1.AddItem Syurui.szPname Next End Sub
ソースコード一式のダウンロード
vbapi_midiOutGetDevCaps.zip 1.02 KB (1,051 バイト)
このサンプルの動作環境について
このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。
スポンサーリンク
関連記事
前の記事: | MIDI音源を使用して音を鳴らす |
次の記事: | MIDIファイルを再生する |
公開日:2015年03月04日
記事NO:00375
この記事を書いた人
![]() | 💻 ITスキル・経験 サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。 画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ |
プチモンテ代表、アーティスト名:プチモンテ | |
🎵 音楽制作 BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~ |
オリジナル曲を始めました✨
YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte