MaurizioTigre (Normal User)
Rookie
Messaggi: 21
Iscritto: 19/03/2007
|
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.
Codice sorgente - presumibilmente VB.NET |
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
Un grazie anticipato a chi mi potrà dare una mano Ciao!!!
|