🚀 go-pugleaf

$B3'$5$s!"=i$a$F$*@$OC$K$J$j$^$9!#(B
$B$I$J$?$+%^%k%A%a%G%#%"%3%s%H%m!<%k$N;H$$J}$r65$($F2<$5$$!#(B
Mmctl$B$rMxMQ$7$F!"O?2;!"O?2;Cf;_!":F@8$r9T$*$&$H$7$F$$$k$N$G$9$,(B
$B$&$^$/F0:n$7$F$/$l$^$;$s!#(B
$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B
$BO?2;(B
    Mmctl.Notify = False
    Mmctl.Wait = True
    Mmctl.RecordMode = mciRecordInsert    '// $BA^F~(B
    Mmctl.Shareable = False
    Mmctl.DeviceType = "WaveAudio"
    Mmctl.filename = Fnam
    Mmctl.TimeFormat = mciFormatMilliseconds
    Mmctl.Command = "Open"

    Msg = Mmctl.ErrorMessage
    If Msg <> "" Then
        Text6.Text = Msg
        Exit Sub
    End If
    Command_Play.Enabled = False            '// $B:F@8%\%?%s;HMQIT2D(B

    '// $BO?2;3+;O(B
    Mmctl.Command = "Record"                '// $BO?2;3+;O(B
    Text6.Text = "$BO?2;Cf(B"
    MMmode = 1
$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B
$BO?2;Cf;_(B
Private Sub Command_Stop_Click()
    If MMmode = 0 Then
        Exit Sub
    End If

    Mmctl.Command = "Stop"
    If MMmode = 1 Then              '// $BO?2;Cf$J$i(B
        Mmctl.Command = "Save"          '// $B2>2;@<%U%!%$%k$KJ]B8(B
        SetRecFlg                       '// $BO?2;%U%i%0@_Dj(B
    End If
    Mmctl.Command = "Close"         '// $B%^%k%A%a%G%#%"%3%s%H%m!<%k$rJD$8$k(B
    Command_Play.Enabled = True     '// $B:F@8%\%?%s;HMQ2D(B
    Text6.Text = ""
    MMmode = 0
End Sub
$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B
$B:F@8(B
Private Sub Command_Play_Click()
    Dim Fnam As String          '// $B:F@8$9$k2>2;@<%U%!%$%kL>(B
    Dim Msg As String

    If MMmode <> 0 Then
        Exit Sub
    End If
    If CrnCode < 0 Then
        MsgBox ("$B9`L\$rA*$s$G$/$@$5$$(B")
        Exit Sub
    End If

    Call GetSoundFname(CrnCode, False, Fnam)    '// $B2>2;@<%U%!%$%kL><hF@(B
    '// $B%^%k%A%a%G%#%"%3%s%H%m!<%k$r3+$/(B
    Mmctl.Notify = False
    Mmctl.Wait = True
    Mmctl.Shareable = False
    Mmctl.DeviceType = "WaveAudio"
    Mmctl.filename = Fnam
    Mmctl.TimeFormat = mciFormatMilliseconds
    Mmctl.Command = "Open"

    Msg = Mmctl.ErrorMessage
    If Msg <> "" Then
        Text6.Text = Msg
        Exit Sub
    End If

    '// $B:F@83+;O(B
    Mmctl.Command = "Play"                '// $B:F@83+;O(B
    Text6.Text = "$B:F@8Cf(B"
    MMmode = 2
End Sub

$B!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v!v(B
$B!v(B
$B59$7$/$*4j$$?=$7>e$2$^$9!#(B
$BG_ED(B
staff@dam.co.jp