Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
cd player - Form1.frm

Form1.frm

Caricato da: Albertking82
Scarica il programma completo

  1. Dim flag As Boolean
  2. Dim flag2 As Boolean
  3. Dim stringa As String
  4.  
  5. Private Sub Cmdmp3_Click()
  6. music.FileName = ""
  7. music.DialogTitle = "Apri file"
  8. music.Filter = " File Mp3|*.mp3"
  9. MMControl1.DeviceType = "mpegvideo"
  10. music.ShowOpen
  11. If music.FileName <> "" Then
  12. If Label6.Caption = "seleziona brano" Then
  13. MMControl1.FileName = music.FileName
  14. MMControl1.Command = "open"
  15. Label6.Caption = music.FileTitle
  16. Frame2.Caption = "Brano MP3"
  17. Label1.Visible = False
  18. Label3.Visible = True
  19. Label3.Caption = "Pronta"
  20. flag = False
  21. Else
  22. MMControl1.Command = "stop"
  23. MMControl1.FileName = music.FileName
  24. MMControl1.Command = "open"
  25. Label6.Caption = music.FileTitle
  26. Frame2.Caption = "Brano MP3"
  27. flag = False
  28. End If
  29. End If
  30. End Sub
  31.  
  32. Private Sub cmdmuto_Click()
  33. If MMControl1.Silent = True Then
  34. cmdmuto.Caption = "muto"
  35. MMControl1.Silent = False
  36. Else
  37. MMControl1.Silent = True
  38. cmdmuto.Caption = "musica"
  39. End If
  40. End Sub
  41.  
  42. Private Sub Cmdwave_Click()
  43.  
  44. End Sub
  45.  
  46. Private Sub Form_Load()
  47. MMControl1.Command = "Open"
  48. MMControl1.Command = "Play"
  49. MMControl1.Command = "pause"
  50. MMControl1.Command = "stop"
  51. Label1.Caption = MMControl1.Tracks
  52. End Sub
  53.  
  54. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  55. If MsgBox("Sei sicuro  di voler uscire?", vbQuestion + vbYesNoCancel, "Esci") = vbYes Then
  56. MsgBox "Program created by Albert King 82!!!" & vbCrLf & "Microsoft Visual basic 6" & vbCrLf & "Version 1.1 26\04\2006", vbInformation, "Creator"
  57. End
  58. Else
  59. Cancel = True
  60. End If
  61. End Sub
  62.  
  63. Private Sub MMControl1_EjectClick(Cancel As Integer)
  64.  Frame2.Caption = "inserisci cd audio"
  65.   Label3.Caption = "non pronta"
  66.   Label4.Caption = "not cd"
  67.   Label1.Caption = "0"
  68.   Label4.Caption = "0"
  69. End Sub
  70.  
  71. Private Sub MMControl1_StatusUpdate()
  72. flag = True
  73. Label1.Caption = MMControl1.Tracks
  74. If Label1.Caption = "0" Then
  75. flag = False
  76. If flag Then
  77.  Frame2.Caption = "inserisci cd audio"
  78.   Label3.Caption = "non pronta"
  79.   Label1.Caption = "0"
  80. Label4.Caption = "not cd"
  81.  Else
  82.  flag = True
  83.  Label4.Caption = MMControl1.Track
  84.  Frame2.Caption = "cd player"
  85.  Label3.Caption = "pronta"
  86.  End If
  87.  End If
  88. End Sub
  89.  
  90. Private Sub mnuaprimp3_Click()
  91. Call Cmdmp3_Click
  92. End Sub
  93.  
  94. Private Sub mnublues_Click()
  95. mnuclassic.Checked = False
  96. mnublues.Checked = True
  97. mnusmeraldo.Checked = False
  98. mnugreentea.Checked = False
  99. Form1.BackColor = vbBlue
  100. Frame1.BackColor = vbBlue
  101. Frame2.BackColor = vbBlue
  102. Frame3.BackColor = vbBlue
  103. Frame1.ForeColor = &HFFC0C0
  104. Frame2.ForeColor = &HFFC0C0
  105. Frame3.ForeColor = &HFFC0C0
  106. Label1.ForeColor = vbBlack
  107. Label2.ForeColor = vbBlack
  108. Label3.ForeColor = vbBlack
  109. Label4.ForeColor = vbBlack
  110. End Sub
  111.  
  112. Private Sub mnuclassic_Click()
  113. mnublues.Checked = False
  114. mnusmeraldo.Checked = False
  115. mnuclassic.Checked = True
  116. mnugreentea.Checked = False
  117. Form1.BackColor = vbGrayText
  118. Frame1.BackColor = vbGrayText
  119. Frame2.BackColor = vbGrayText
  120. Frame3.BackColor = vbGrayText
  121. Frame1.ForeColor = vbBlack
  122. Frame2.ForeColor = vbBlack
  123. Frame3.ForeColor = vbBlack
  124. Label1.ForeColor = vbBlack
  125. Label2.ForeColor = vbBlack
  126. Label3.ForeColor = vbBlack
  127. Label4.ForeColor = vbBlack
  128. End Sub
  129.  
  130. Private Sub mnudefault_Click()
  131. mnuclassic.Checked = False
  132. mnublues.Checked = False
  133. mnugreentea.Checked = False
  134. Form1.BackColor = &H80C0FF
  135. Frame1.BackColor = &H80C0FF
  136. Frame2.BackColor = &H80C0FF
  137. Frame3.BackColor = &H80C0FF
  138. Frame1.ForeColor = vbBlack
  139. Frame2.ForeColor = vbBlack
  140. Frame3.ForeColor = vbBlack
  141. Label1.ForeColor = vbBlack
  142. Label2.ForeColor = vbBlack
  143. Label3.ForeColor = vbBlack
  144. Label4.ForeColor = vbBlack
  145. End Sub
  146.  
  147. Private Sub mnuexit_Click()
  148. Form1.Enabled = False
  149. Form2.Show
  150. End Sub
  151.  
  152. Private Sub mnuicona_Click()
  153. Form1.WindowState = 1
  154. End Sub
  155.  
  156. Private Sub mnugreentea_Click()
  157. mnuclassic.Checked = False
  158. mnublues.Checked = False
  159. mnusmeraldo.Checked = False
  160. mnugreentea.Checked = True
  161. Form1.BackColor = &HFF00&
  162. Frame1.BackColor = &HFF00&
  163. Frame2.BackColor = &HFF00&
  164. Frame3.BackColor = &HFF00&
  165. Frame1.ForeColor = vbRed
  166. Frame2.ForeColor = vbRed
  167. Frame3.ForeColor = vbRed
  168. Label1.ForeColor = vbRed
  169. Label2.ForeColor = vbRed
  170. Label3.ForeColor = vbRed
  171. Label4.ForeColor = vbRed
  172. End Sub
  173.  
  174. Private Sub mnusfondo_Click()
  175. sfondo.ShowColor
  176. Form1.BackColor = sfondo.Color
  177. Frame1.BackColor = Form1.BackColor
  178. Frame2.BackColor = Form1.BackColor
  179. Frame3.BackColor = Form1.BackColor
  180.  
  181. End Sub
  182.  
  183. Private Sub mnusmeraldo_Click()
  184. mnuclassic.Checked = False
  185. mnublues.Checked = False
  186. mnusmeraldo.Checked = True
  187. mnugreentea.Checked = False
  188. Form1.BackColor = &H808000
  189. Frame1.BackColor = &H808000
  190. Frame2.BackColor = &H808000
  191. Frame3.BackColor = &H808000
  192. Frame1.ForeColor = vbBlack
  193. Frame2.ForeColor = vbBlack
  194. Frame3.ForeColor = vbBlack
  195. Label1.ForeColor = vbBlack
  196. Label2.ForeColor = vbBlack
  197. Label3.ForeColor = vbBlack
  198. Label4.ForeColor = vbBlack
  199. End Sub
  200.  
  201. Private Sub mnutesto_Click()
  202. sfondo.ShowColor
  203. Form1.ForeColor = sfondo.Color
  204. Frame1.ForeColor = Form1.ForeColor
  205. Frame2.ForeColor = Form1.ForeColor
  206. Frame3.ForeColor = Form1.ForeColor
  207. Label1.ForeColor = sfondo.Color
  208. Label2.ForeColor = sfondo.Color
  209. Label3.ForeColor = sfondo.Color
  210. Label4.ForeColor = sfondo.Color
  211. End Sub