Hej! Har fixat ett litet exempel hur man enkelt löser detta.Scrollbars på formulär!
Jag använder scrollbars på formulär när jag resizar det. Varför? Jo därför att jag vill kunna titta på t.ex knappar, frames som befinner sig utanför det område som visas på skärmen, genom att scrolla upp eller ner ska detta vara möjligt. Men jag har inte fått det att fungera riktigt.
Om någon har några tips om hur man går till väga skulle det uppskattas. Jag använder standardkontrollerna VScrollBar och HScrollBar.
Mvh/PeterSv: Scrollbars på formulär!
* Skapa ett standard EXE projekt
* Lägg till en PictureBox till Form1(Gör den större än formuläret)
* Lägg till en HScrollBar till Form1
* Lägg till en VScrollBar till Form1
* Klistra in denna kod i Form1
Private Sub Form_Resize()
VScroll1.Move ScaleWidth - VScroll1.Width, ScaleTop, VScroll1.Width, ScaleHeight - HScroll1.Height
HScroll1.Move ScaleLeft, ScaleHeight - HScroll1.Height, ScaleWidth - VScroll1.Width, HScroll1.Height
Scrolling
End Sub
Private Sub Scrolling()
If Picture1.Width > (ScaleWidth - VScroll1.Width) Then
HScroll1.Max = Picture1.Width - (ScaleWidth - VScroll1.Width)
HScroll1.Enabled = True
Else
HScroll1.Max = HScroll1.Min
HScroll1.Enabled = False
End If
If Picture1.Height > (ScaleHeight - HScroll1.Height) Then
VScroll1.Max = Picture1.Height - (ScaleHeight - VScroll1.Height)
VScroll1.Enabled = True
Else
VScroll1.Max = VScroll1.Min
VScroll1.Enabled = False
End If
Picture1.Move -HScroll1.Value, -VScroll1.Value
End Sub
Private Sub HScroll1_Change()
Scrolling
End Sub
Private Sub VScroll1_Change()
Scrolling
End Sub