j'arrive pe étre un pe tard....lol
Mais Bon, g une pitite solus pe étre pour toi...
g fait un code qui permet d'avoir une scrollbar verticale et horizontale...le Pitit Problème...enfin, vous verrez...
Voici le code:
Private Sub Form_Resize()
'''''''''''''''ScrollBar Verticale'''''''''''''''''''''''''
'On place le scrollbar au bon endroit avec la bonne hauteur
VScroll1.Width = ScaleX(13, vbPixels, vbTwips)
VScroll1.Left = Width - VScroll1.Width
VScroll1.Top = 0
VScroll1.Height = Height + ScaleY(1, vbPixels, vbTwips) - HScroll1.Height
'''''''''''''''ScrollBar horizontale'''''''''''''''''''''''''
'On place le scrollbar au bon endroit avec la bonne hauteur
'HScroll1.Width = Width + ScaleY(1, vbPixels, vbTwips) - VScroll1.Width
HScroll1.Width = Width
HScroll1.Left = 0
HScroll1.Height = ScaleX(13, vbPixels, vbTwips)
HScroll1.Top = Height - HScroll1.Height
'On place le conteneur
Frame1.Left = 0
Frame1.Top = HScroll1.Top + HScroll1.Height
Frame1.Width = VScroll1.Left
If Frame1.Height < Height Then Frame1.Height = Height - HScroll1.Height
If Frame1.Width < Width Then Frame1.Width = Width - VScroll1.Width
'On met a jour le scrollbar
VScroll1.Min = 0
VScroll1.Max = FormTest2.Height - (Height / 2)
VScroll1.SmallChange = VScroll1.Max / 20
VScroll1.LargeChange = VScroll1.Max / 5
HScroll1.Min = 0
HScroll1.Max = FormTest2.Width - (Width / 2)
HScroll1.SmallChange = HScroll1.Max / 20
HScroll1.LargeChange = HScroll1.Max / 5
End Sub
et...
Private Sub HScroll1_Change()
Timer1.Enabled = True
End Sub
Private Sub HScroll1_Scroll()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Timer1.Enabled = False
Frame1.Top = -VScroll1.Value
HScroll1.Top = Height - HScroll1.Height
Frame1.Left = -HScroll1.Value
End Sub
Private Sub VScroll1_Change()
Timer1.Enabled = True
End Sub
Private Sub VScroll1_Scroll()
Timer1.Enabled = True
End Sub
...amusez vous bien...lol
|