Hej har gjort koden nedan, I nuläget använder jag mig av en trackbar, men vill byta ut den mot en scrollbar. Här sitter man i flera timmarutan att komma på någon lösning, skriver min fråga här och strax efter lyckats man lösa problemet själv....scrollbar
<code>
Private Sub txtInput_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtInput1.KeyPress, txtInput2.KeyPress
End Sub
' Här ör koden som jag vill byta för att få en scrollbar, scrollbaren har namnet HScrollBar2
Private Sub TrackBar_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll ', HScrollBar2.Scroll
txtInput1.Text = TrackBar1.Value
End Sub
Private Sub Output(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInput1.TextChanged, txtInput2.TextChanged, TrackBar1.Scroll
txtOutput.Text = Resistans(Val(txtInput1.Text), Val(txtInput2.Text))
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TrackBar1.Maximum = 1000
TrackBar1.Minimum = 0
End Sub
</code>Sv: scrollbar
Så här ser koden ut för scrollbaren
<code>
Private Sub scroll_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ScrollBar1.ValueChanged, ScrollBar2.ValueChanged
txtInput1.Text = ScrollBar1.Value
txtInput2.Text = ScrollBar2.Value
End Sub
</code>