10/02/10 8:55
robycost
Buon giorno a tutti, vorrei inserire la funzione Volume in questo progettino .....
Private Sub Command1_Click()
MMControl1.Command = "Stop"
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub CmdPausa_Click()
MMControl1.Command = "Pause"
End Sub
Private Sub CmdPlay_Click()
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
Private Sub CmdSfoglia_Click()
CommonDialog1.Filter = "File Audio MP3"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub CmdStop_Click()
MMControl1.Command = "Stop"
End Sub
Vi ringrazio.
Private Sub Command1_Click()
MMControl1.Command = "Stop"
End Sub
Private Sub CmdExit_Click()
End
End Sub
Private Sub CmdPausa_Click()
MMControl1.Command = "Pause"
End Sub
Private Sub CmdPlay_Click()
MMControl1.FileName = CommonDialog1.FileName
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub
Private Sub CmdSfoglia_Click()
CommonDialog1.Filter = "File Audio MP3"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub CmdStop_Click()
MMControl1.Command = "Stop"
End Sub
Vi ringrazio.
aaa