MIDI$B%U%!%$%k$N%k!<%W1iAU$N<ALd(J

Thread View: fj.lang.basic

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Yoshitomo Fujihara Mon, 15 Sep 1997 00:00

#69

Author: Yoshitomo Fujihara
Date: Mon, 15 Sep 1997 00:00

42 lines
1370 bytes

$B$O$8$a$^$7$FF#86$H?=$7$^$9!#(J
$B:#!"#W#i#n#d#o#w#s#9#5>e$G#V#i#s#u#a#l(J Basic 4.0 Pro.
32bit$BHG$r;H$C$F4JC1$J%2!<%`$r:n$C$F$$$^$9!#(J
$B#M#C#I%3%s%H%m!<%k$r;H$C$F#M#I#D#I%U%!%$%k$r#B#G#M$H$7$FN.$7$?$N$G$9$,!"(J
$B2<5-$N%W%m%0%i%`$G$O%k!<%W1iAU$9$k$3$H$,=PMh$^$;$s!#(J

Private Sub Form_Load()

    With MMControl1
        .Notify = True
        .DeviceType = Sequencer
        .filename = App.Path + "\sound.mid"
        .Command = "Open"
        .Command = "Play"
    End With

End Sub



Private Sub MMControl1_Done(NotifyCode As Integer)

    With MMControl1
        .Command = "Prev"
        .Command = "Play"
    End With
    
End Sub


$B$I$3$,4V0c$($F$$$k$N$G$7$g$&$+!)(J
$B$I$J$?$+2r7hJ}K!$r65$($F2<$5$$!#(J
$B$h$m$7$/$*$M$,$$$7$^$9!#(J


 =====================================
   $BF#86(J $B>MCR(J  [Yoshitomo Fujihara]

   E-mail:yfujihar@fsinet.or.jp
   http://www.fsinet.or.jp/~yfujihar
 =====================================

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads

Thread View: fj.lang.basic

MIDI$B%U%!%$%k$N%k!<%W1iAU$N<ALd(J

Thread Navigation

MIDI$B%U%!%$%k$N%k!<%W1iAU$N<ALd(J