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.
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!!!
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!!!
aaa