Volymslider

Hejsan!

Sitter å försöker sätta ihop en liten shoutcast spelare baserad på WMP. (WMP 9)

Jag vill inte använda WMP's standardutseende, så jag försöker göra en egen design på allt genom att dölja WMP'n och binda bilder till knapparna och en egen slider för volymen.

Men jag har stora problem med voylslidern.

Vad jag än försöker med, så hoppar den aningen till ett fast värde så fort jag klickar på slidern och är på väg att dra i den, eller så händer inget als.

Koden jag försöker använda är:
WindowsMediaPlayer1.settings.volume = slider1.value -10000
har även försökt med
WindowsMediaPlayer1.settings.volume = -10000

Har även provat att ändravärdet, men det spelar ingen roll, den hoppar direkt till det värdet.

Sliderns min är inställd på 0, och max till 10000.
Jag vill att den skall bete sig som en helt normal vanligt slider och stegvis öka/minska volymen beroende på hur man drar i den.

Finns det någon som kan hjälpa mig med detta?
/RIckard

Ingen som vet hur man löser deta?
Eller har jag förklarat för dåligt? =(

Jag använder denna kod på min Crossfade på ett mixer prog.
Då har jag lagt en Image(XFadeButton) i en picture(XFadeBack).
Sen får du under
X3 = pos: XFadeButton.Left = pos
i MouseMove lägga till vilket värde slidern ska få gämte mot
possitionen av bilden.

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Dim X1, Y1, X2, Y2, X3, Y3
Dim SliderFlag As Boolean

Private Sub XFadeButton_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)

If Button = 2 Then
     Call PopupMenu(mnu)
     Exit Sub
End If

  If SliderFlag = False Then
    X1 = X: X3 = XFadeButton.Left
    X2 = Screen.TwipsPerPixelX

    SliderFlag = True

  End If
End Sub

Private Sub XFadeButton_MouseMove(Button As Integer, Shift As Integer, X As Single, y As Single)
  If SliderFlag = True Then
    pos = X3 + (X - X1) / X2
    If pos < 0 Then pos = 0
    If pos > XFadeBack.Width - 85 Then pos = XFadeBack.Width - 85
    X3 = pos: XFadeButton.Left = pos

  
  End If

End Sub

Private Sub XFadeButton_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
  
  SliderFlag = False

End Sub

Och var ändras volymen? ;)

Problemet är att WindowsMediaPlayer-kontrollen anger volymen i 0-100. Sätt max på slidern till 100 och min till 0 och använd detta så ska detta fungera. :)

WindowsMediaPlayer1.settings.volume = slider1.value

Alternativt, om du inte kan ändra max för att du använder samma värde till något annat, testa detta (med max fortfarande på 10000 och min på 0).

' Backslash istället för vanlig slash ( / ) gör att resultatet räknas
' som integer vilket betyder inga decimaler och snabbare uträkning

WindowsMediaPlayer1.settings.volume = slider1.value \ 100

Nexus86 skrev:

Och var ändras volymen? ;)

Ville han inte kunna ändra och flytta bilder istället för en slider.

eller så missuppfattade jag det hela.

så jag skrev en kod som man kan flytta bilder på och sen är det inte så svårt att lägga till att sllidern ändras när man flyttar en bild så blir bilden en slider
eller att vol ädras när du flyttar en bild.

PsyDonia skrev:

Nexus86 skrev:

Och var ändras volymen? ;)

Ville han inte kunna ändra och flytta bilder istället för en slider.

eller så missuppfattade jag det hela.

så jag skrev en kod som man kan flytta bilder på och sen är det inte så svårt att lägga till att sllidern ändras när man flyttar en bild så blir bilden en slider
eller att vol ädras när du flyttar en bild.

Då missuppfattade du nog snarare det hela. Han ville kunna ändra volymen med en slider-kontroll. :)