level 5
想不出来ss
楼主
在picture1里画picture2和滚动条,滚动条控制picture2显示,但我这个下滑滚动条显示完了picture2以后,还会显示很多空白,怎么回事啊?求大佬拜拜忙
Private Sub Picture1_Resize()
If Picture2.Height < Picture1.Height Then
VScroll1.Visible = False
Else
VScroll1.Visible = True
VScroll1.Min = 0
VScroll1.Max = Picture2.Height - Picture1.Height
End If
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
Picture2.Top = -VScroll1.Value
End Sub

2020年04月28日 07点04分
1
Private Sub Picture1_Resize()
If Picture2.Height < Picture1.Height Then
VScroll1.Visible = False
Else
VScroll1.Visible = True
VScroll1.Min = 0
VScroll1.Max = Picture2.Height - Picture1.Height
End If
End Sub
Private Sub VScroll1_Change()
Picture2.Top = -VScroll1.Value
End Sub
Private Sub VScroll1_Scroll()
Picture2.Top = -VScroll1.Value
End Sub





