🚀 go-pugleaf

$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
 =====================================