Oppure

Loading
19/03/07 15:12
MaurizioTigre
Ciao a tutti, ho un piccolo problemino... ho creato un lettore audio e video compreso di radio in una grafica al quanto completa... l'unica cosa che non mi torna è il controllo volume, nel senso, quando vado ad alzare il volumo fino a 100 nessun problema, il problema si riscontra invece nell'abbassarlo. Praticamente una volta arrivato quasi al minimo il volume devo fermarlo con una MsgBox che avvisa che si è già al minimo del volume perchè se lo si prova ad abbassare fino in fondo va in errore. Sono perplesso perchè di solito ci arrivo da solo a risolvere di questi problemi ma questo non riesco proprio a capirlo. Magari è una stupidata ma non l'ho trovata. Vi posto il frammento di codice che riguarda il controllo volume nella speranza che qualcuno riesca ad aiutarmi.


Private Sub Form_Load()
    progressVolume.Value = frmPlayer.Player.settings.volume
End Sub

Private Sub Label_Click(Index As Integer)

progressVolume.Visible = True

   
   Select Case Index
    
     Case 0
      frmPlayer.Player.settings.volume = frmPlayer.Player.settings.volume + 10
      progressVolume.Value = frmPlayer.Player.settings.volume
      Label4.Caption = "Volume: " & frmPlayer.Player.settings.volume
    
     Case 1
     
     If frmPlayer.Player.settings.volume > 10 Then
     
      frmPlayer.Player.settings.volume = frmPlayer.Player.settings.volume - 10
      progressVolume.Value = frmPlayer.Player.settings.volume
      Label4.Caption = "Volume: " & frmPlayer.Player.settings.volume
      
     ElseIf frmPlayer.Player.settings.volume <= 10 Then
       
      MsgBox "Il volume è ora al minimo", vbInformation + vbOKOnly, titStringa
    
     End If

     End Select

End Sub


ho omesso tutto quello che non riguardava il volume perchè tanto non serve... spero che qualcuno mi spieghi l'arcano 8-|
Un grazie anticipato a chi mi potrà dare una mano :k: Ciao!!!
aaa