Jag håller nu på med Direct Sound...
Den volymkontrollen som jag har är satt till (måste vara så) Max = 0 Min = -2000
Jag försöker att stoppa in en progressbar men där kan man ju inte ha några negativa värden. Jag kan inte gå under 0 så jag får det inte att fungera.
Nägra ideer?

lägg till 2000 till alla värden

/Johan

<code>
Private Sub vsbScroll_Scroll()
Dim intPos As Integer
intPos = vsbScroll.Value - 2000
'intPos = -2000 till 0
End Sub
</code>

Att lägga till 2000 på alla värdena går inte.
Därimot så står det ovanligt still, vet inte hur jag skall koppla funktionen som du beskrev:


Dim intPos As Integer
intPos = ProgressBar1.Value - 2000

Text1.Text = scrlTester1_Vol.Value
ProgressBar1.Value = intPos + scrlTester1_Vol.Value 'max 0 min -2000

Så kan du inte mena, det blir fel för mig.
Det är i scrlTester1_Vol.Value som jag får ett värde hur menar du att det skall kopplas?

Om jag därimot skriver så här, så visas proggresbaren som fullt, men den ändras inte i förhållande till att sänker volymen. När jag kommer till ett visst läge, så stängs den bara ner.

ProgressBar1.Min = 0
ProgressBar1.Max = 2000
ProgressBar1.Value = scrlTester1_Vol.Value + 2000

Hej
Har inte analyserat så noga . Hur blir
ProgressBar1.Value = 2000 - scrlTester1_Vol.Value ?

Nu börjr valvakan

Vi hörs
Sven

Vilka kontroller har du?

Om det är en Scrollbar vid namn vsbVolume,
en Progressbar vid namn prgVolume
och en textbox vid namn txtVolume
så skriver du såhär:

<code>
Dim intVolume As Integer

Private Sub vsbVolume_Scroll()
prgVolume.Value = vsbVolume.Value
intVolume = (vsbVolume.Value - 2000)


'Om du vill ha åt andra hållet:
'prgVolume.Value = 2000 - vsbVolume.Value
'intVolume = 2000 + (vsbVolume.Value - 2000)


txtVolume.Text = CStr(intVolume)
End Sub
</code>



Testa lite...

Nej detville sig inte. Inte något av förslag fungerade.
När progressbaren är 0 då är knappen(volymen) -2000
När progressbaren är 100 där är knappen 0
Där är problemet
Som jag ser det så borde det ju vara som så, att för 20 steg som man ökar volymen med, så skall ju progresbaren öka med 1.
Men hur man skall göra detta övergår mitt förständ...
:-(

Jag förstår inte ett skit av vad du menar, kan du inte skriva EXAKT hur du tänkt använda värdena, för det du skrev går inte att göra... Man kan antagligen göra på något annat sätt, men jag vet inte vad du vill ha för resultat

progressbaren = knappen /20
knappvolymen = knappen - 2000



Förklaring:
knappvolymen = det du kallar för knappen.

Det är märkligt, men så här har jag skrivit hur många gånger som helst, och nu fungerar den!!!
ProgressBar1 = (scrlTester1_Vol.Value + 2001)