Timerを使用して一定時間がくると音が消えるようにするには〜 (ID:86272)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんにちわ 題名のように、 Timerをしようしたいのですが 上手くいきません。 音はきちんと鳴りますが、 Timerの使い方が間違ってるかと思いますが、 いろいろな参考書を読んでもよくわからず、 誰かにご教授いただこうと思い、書き込みさせていただきました。 下記のようなコードを作成していますが、 まちがっているところがわかる方がいましたら ご教授願います。。。 （VB6.0のプログラムを使用しましたが、.Netで作成しています） ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If r = 3 Then midiOutShortMsg(hMid, &H80S + Note * 256) r = 0 End If r = r + 1 Timer1.Enabled = False End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Private Sub Button1_MouseDown(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown Dim Button As Short = eventArgs.Button \ &H100000 Dim Shift As Short = System.Windows.Forms.Control.ModifierKeys \ &H10000 Dim X As Single = VB6.PixelsToTwipsX(eventArgs.X) Dim Y As Single = VB6.PixelsToTwipsY(eventArgs.Y) Dim Inst As Object Dim Vol As Integer Timer1.Enabled = True Note = 70 '音階(&H00から&H7F(127)) Inst = 30 '楽器No(ＧＭ音色番号に準拠？） Vol = &H7FS '音量(&H00から&H7F(127)) midiOutShortMsg(hMid, &HC0S + Inst * 256) midiOutShortMsg(hMid, &H90S + Note * 256 + Vol * 256 * 256) End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊