[nordbahnfredi]

Hilfe!!!
Warum läßt sich die wav-datei nicht sichern???
Bitte um Unterstützung
MfG
Nordbahnfredi
Option Explicit

Private Sub cmd_datei_sichern_Click()
Call sichern
End Sub

Private Sub cmd_ende_Click()
End
End Sub

Private Sub cmd_start_Click()
MMControl1.filename = "d:\rec00-10-11neu.wav"
Form1.Caption = MMControl1.filename
MMControl1.Notify = False
MMControl1.Wait = True
MMControl1.Shareable = False
MMControl1.DeviceType = "WaveAudio"
MMControl1.Command = "open"

End Sub

Private Sub sichern()
Print "*** sichern ***"
MMControl1.Command = "Save"
Print "*** gesichert ***"
End Sub

Private Sub Form_Load()

'---------------
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
End Sub

Private Sub MMControl1_prevClick(Cancel As Integer)
MMControl1.Command = "prev"
MMControl1.RecordEnabled = True
MMControl1.PlayEnabled = True
MMControl1.StopEnabled = True
End Sub

' Mit diesem Ereignis kann eine Anwendung die
' Anzeige aktualisieren, um den Benutzer über
' den Zustand des aktuellen MCI-Geräts zu
' informieren. Die Anwendung kann
' Zustandsinformationen von Eigenschaften
' wie Position, Length und Mode abrufen.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Private Sub MMcontrol1_StatusUpdate()
Form1.Caption = MMControl1.Position & "*" & MMControl1.Length
End Sub
Private Sub MMControl1_PlayClick(Cancel As Integer)
MMControl1.Command = "play"
MMControl1.PlayEnabled = False
MMControl1.RecordEnabled = False
MMControl1.PrevEnabled = False
MMControl1.StopEnabled = True
End Sub

Private Sub MMControl1_RecordClick(Cancel As Integer)
MMControl1.Command = "record"
MMControl1.RecordEnabled = False
MMControl1.PlayEnabled = False
MMControl1.PrevEnabled = False
MMControl1.StopEnabled = True
End Sub


Private Sub MMControl1_StopClick(Cancel As Integer)
MMControl1.Command = "stop"
MMControl1.RecordEnabled = True
MMControl1.PlayEnabled = True
MMControl1.PrevEnabled = True
MMControl1.StopEnabled = False
End Sub