Nu är jag på gång igen.
Jag har bl a en vertikal slider som i top position visar 0 och i sin lägsta position visar max.
Tips jag har sett här menade att lösning skulle vara:
Text1.Text = -Slider1.Value
Men icke.
Någon?

Prova att ta bort "-" tecknet så borde det visa rätt, vettja! :-)

//Susanne

Nixärden med så visar den negativa tal.(det var ett misstag att jag inte tog bort den).
Så här borde den ju se ut:
Text1.Text = Slider1.Value
Men jag får 0:an uppe och 10:an nere.

Hej
Private Sub Slider1_Change()
Label1.Caption = 10 - Slider1.Value
End Sub

mvh
Sven

Skriv istället:
<code>
Text1.Text = Slider1.Max - Slider1.Value

</code>
Fast du kommer fortfarande se värdet i tooltip medans du scrollar.

Hej
>Fast du kommer fortfarande se värdet i tooltip medans du scrollar.

Den fick Vi bort för någon månad sedan,slå sökning på Slider
Edit :
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

Private Const WM_USER = &H400&
Private Const TTM_ACTIVATE = &H401
Private Const TBM_GETTOOLTIPS = &H41E

Private Sub Form_Load()
Dim lngDummy As Long
lngDummy = SendMessage(Slider1.hWnd, TBM_GETTOOLTIPS, 0&, 0&)
lngDummy = SendMessage(lngDummy, TTM_ACTIVATE, False, 0&)
End Sub

DS

Kanonbra, skall testa när jag kommer hemm. Jag hadde redan tagit fram din kod betr. borttagningen av tooltipset Sven :-)

Av någon anledning så behövde jag inte använda mig av Svens funktion.
Det finns därimot ett par saker kvar som jag har brottats med.
Jag lade in Andreas kodsnut här:

Private Sub Slider1_Scroll()
Text1.Text = Slider1.Max - Slider1.Value
End Sub

Fungerar helt OK. Då har jag högsta värdet när reglaget står högst upp.

1. När man startar så står "skutreglaget" högst upp. Hur får jag det att börja med att stå längts ner?

2 Jag lade in denna kod för att kunna skriva in tal i text1:

Private Sub Text1_Change()

Slider1.Value = Text1.Text
End Sub

Det trivs han inte med, då ville han gå tillbaka till första början, med att ha lägsta talet uppe och högsta talet nere
Hur löser jag det?

3 Slidern och textrutan liger i en frame, där man kan sätta caption.
Jag trodde att det skulle räcka att namnge så här:

Private Sub UserControl_Resize()
UserControl.Width = 885
UserControl.Height = 2685
Frame1.Caption = UserControl.Name
.....
Fungera inte..
Några förslag?

1. Sätt Valu till 0<br>
<br>
2. Förslag:
<code>
Private Sub Text1_Validate(Cancel As Boolean)
Dim Value As Long
If IsNumeric(Text1.Text) Then
Value = CLng(Text1.Text)
Select Case Value
Case Is < Slider1.Min
Text1.Text = Slider1.Min
Slider1.Value = Slider1.Max
Case Is > Slider1.Max
Text1.Text = Slider1.Max
Slider1.Value = Slider1.Min
Case Else
Slider1.Value = Slider1.Max - Value
End Select
Else
Text1.Text = Slider1.Max - Slider1.Value
End If
End Sub

</code>
3. Ligger Frame1 i Userkontrollen?

Ja.
I usercontrollen så ligger det först en frame, sen en textruta och under där en slide.
Tack Andreas jag skall testa ditt förslag.