Scrollbar orizzontale

lunedì 16 febbraio 2004 - 11.30

trinity Profilo | Guru

Ragazzi vi posto il mio codice per attivare la funzione della HScrollBar in vbnet, io ho una serie di controlli sulla form e precisamente dei button e una toolbar, mi devono scrollare da sinistra verso destra e viceversa, solo che con il codice di seguito riportato non mi funziona, i controlli mi scendono in maniera obligua e anche la HScrollBar mi scende allo stesso modo. eppure lo stesso codice l'hop utilizzato per la scroll verticale e funziona perfettamente. Mi potete dare una mano a capire dove c'è l'errore?

Grazie e ciao

Private Sub or_scroll()
Dim ctl As Control
For Each ctl In Me.Controls
If Not (TypeOf ctl Is HScrollBar) Then
ctl.Left = (ctl.Left + oldpos) - Me.HScrollBar1.Value
End If
Next
oldpos = Me.HScrollBar1.Value
End Sub

Private Sub HScrollBar1_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll

Call or_scroll()

End Sub

Private Sub HScrollBar1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles HScrollBar1.LocationChanged

Call or_scroll()

End Sub
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5