Dim flag As Boolean
Dim flag2 As Boolean
Dim stringa As String
Private Sub Cmdmp3_Click()
music.FileName = ""
music.DialogTitle = "Apri file"
music.Filter = " File Mp3|*.mp3"
MMControl1.DeviceType = "mpegvideo"
music.ShowOpen
If music.FileName <> "" Then
If Label6.Caption = "seleziona brano" Then
MMControl1.FileName = music.FileName
MMControl1.Command = "open"
Label6.Caption = music.FileTitle
Frame2.Caption = "Brano MP3"
Label1.Visible = False
Label3.Visible = True
Label3.Caption = "Pronta"
flag = False
Else
MMControl1.Command = "stop"
MMControl1.FileName = music.FileName
MMControl1.Command = "open"
Label6.Caption = music.FileTitle
Frame2.Caption = "Brano MP3"
flag = False
End If
End If
End Sub
Private Sub cmdmuto_Click()
If MMControl1.Silent = True Then
cmdmuto.Caption = "muto"
MMControl1.Silent = False
Else
MMControl1.Silent = True
cmdmuto.Caption = "musica"
End If
End Sub
Private Sub Cmdwave_Click()
End Sub
Private Sub Form_Load()
MMControl1.Command = "Open"
MMControl1.Command = "Play"
MMControl1.Command = "pause"
MMControl1.Command = "stop"
Label1.Caption = MMControl1.Tracks
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("Sei sicuro di voler uscire?", vbQuestion + vbYesNoCancel, "Esci") = vbYes Then
MsgBox "Program created by Albert King 82!!!" & vbCrLf & "Microsoft Visual basic 6" & vbCrLf & "Version 1.1 26\04\2006", vbInformation, "Creator"
End
Else
Cancel = True
End If
End Sub
Private Sub MMControl1_EjectClick(Cancel As Integer)
Frame2.Caption = "inserisci cd audio"
Label3.Caption = "non pronta"
Label4.Caption = "not cd"
Label1.Caption = "0"
Label4.Caption = "0"
End Sub
Private Sub MMControl1_StatusUpdate()
flag = True
Label1.Caption = MMControl1.Tracks
If Label1.Caption = "0" Then
flag = False
If flag Then
Frame2.Caption = "inserisci cd audio"
Label3.Caption = "non pronta"
Label1.Caption = "0"
Label4.Caption = "not cd"
Else
flag = True
Label4.Caption = MMControl1.Track
Frame2.Caption = "cd player"
Label3.Caption = "pronta"
End If
End If
End Sub
Private Sub mnuaprimp3_Click()
Call Cmdmp3_Click
End Sub
Private Sub mnublues_Click()
mnuclassic.Checked = False
mnublues.Checked = True
mnusmeraldo.Checked = False
mnugreentea.Checked = False
Form1.BackColor = vbBlue
Frame1.BackColor = vbBlue
Frame2.BackColor = vbBlue
Frame3.BackColor = vbBlue
Frame1.ForeColor = &HFFC0C0
Frame2.ForeColor = &HFFC0C0
Frame3.ForeColor = &HFFC0C0
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
End Sub
Private Sub mnuclassic_Click()
mnublues.Checked = False
mnusmeraldo.Checked = False
mnuclassic.Checked = True
mnugreentea.Checked = False
Form1.BackColor = vbGrayText
Frame1.BackColor = vbGrayText
Frame2.BackColor = vbGrayText
Frame3.BackColor = vbGrayText
Frame1.ForeColor = vbBlack
Frame2.ForeColor = vbBlack
Frame3.ForeColor = vbBlack
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
End Sub
Private Sub mnudefault_Click()
mnuclassic.Checked = False
mnublues.Checked = False
mnugreentea.Checked = False
Form1.BackColor = &H80C0FF
Frame1.BackColor = &H80C0FF
Frame2.BackColor = &H80C0FF
Frame3.BackColor = &H80C0FF
Frame1.ForeColor = vbBlack
Frame2.ForeColor = vbBlack
Frame3.ForeColor = vbBlack
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
End Sub
Private Sub mnuexit_Click()
Form1.Enabled = False
Form2.Show
End Sub
Private Sub mnuicona_Click()
Form1.WindowState = 1
End Sub
Private Sub mnugreentea_Click()
mnuclassic.Checked = False
mnublues.Checked = False
mnusmeraldo.Checked = False
mnugreentea.Checked = True
Form1.BackColor = &HFF00&
Frame1.BackColor = &HFF00&
Frame2.BackColor = &HFF00&
Frame3.BackColor = &HFF00&
Frame1.ForeColor = vbRed
Frame2.ForeColor = vbRed
Frame3.ForeColor = vbRed
Label1.ForeColor = vbRed
Label2.ForeColor = vbRed
Label3.ForeColor = vbRed
Label4.ForeColor = vbRed
End Sub
Private Sub mnusfondo_Click()
sfondo.ShowColor
Form1.BackColor = sfondo.Color
Frame1.BackColor = Form1.BackColor
Frame2.BackColor = Form1.BackColor
Frame3.BackColor = Form1.BackColor
End Sub
Private Sub mnusmeraldo_Click()
mnuclassic.Checked = False
mnublues.Checked = False
mnusmeraldo.Checked = True
mnugreentea.Checked = False
Form1.BackColor = &H808000
Frame1.BackColor = &H808000
Frame2.BackColor = &H808000
Frame3.BackColor = &H808000
Frame1.ForeColor = vbBlack
Frame2.ForeColor = vbBlack
Frame3.ForeColor = vbBlack
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
End Sub
Private Sub mnutesto_Click()
sfondo.ShowColor
Form1.ForeColor = sfondo.Color
Frame1.ForeColor = Form1.ForeColor
Frame2.ForeColor = Form1.ForeColor
Frame3.ForeColor = Form1.ForeColor
Label1.ForeColor = sfondo.Color
Label2.ForeColor = sfondo.Color
Label3.ForeColor = sfondo.Color
Label4.ForeColor = sfondo.Color
End Sub