Correzione procedura scrollbar

lunedì 19 gennaio 2004 - 10.26

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

trinity Profilo | Guru

3.465 messaggi | Data Invio: lun 19 gen 2004 - 10:26

Autore: trinity Data: 17 gen 9.40

ciao ho creato questo codice per utilizzare una scrollbar su form e funziona perfettamente solo che ho due piccoli problemi che vi elenco:

1) come posso velocizzare lo scorrimento degli oggetti su e giù quando utilizzo la scroll

di seguito vi posto il mio codice, potete controllarlo e potermi dare delle risposte alle mie due domande? Mi servono vi ringrazio.

dim oldpos as short

Private Sub scroll()
Dim ctl As Control
For Each ctl In Me.Controls
If Not (TypeOf ctl Is ScrollBar) Then
ctl.Top = ctl.Top + oldpos - Me.VScrollBar1.Value
End If
Next
oldpos = Me.VScrollBar1.Value
End Sub

Private Sub VScrollBar1_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
Call scroll()
End Sub

Private Sub VScrollBar1_LocationChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles VScrollBar1.LocationChanged
Call scroll()
End Sub

Torna su

Stanze Forum

Elenco Threads

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 !