应用篇 共45页[1 2 3 4 5 6 7 >»<... 最后一页]

滚动窗口演示

滚动窗口演示

Private Sub Command1_Click()
Unload Me '退出
End Sub

Private Sub Form_Load()
Picture1.BackColor = Me.BackColor '设定窗口得背景色和pciture1的背景色相同
Picture1.BorderStyle = 0 '沒有边框
End Sub

Private Sub Form_Resize()
HScroll1.Left = 0
VScroll1.Top = 0
If Picture1.Width > ScaleWidth Then '如果picture1比Form还宽
HScroll1.Top = ScaleHeight - HScroll1.Height '使hscroll1水平滚动条显示到窗口底部
Else
HScroll1.Top = ScaleHeight '如此Hscroll便不会显示出來了
End If
If Picture1.Height > HScroll1.Top Then '如果picture1比form还高
VScroll1.Left = ScaleWidth - VScroll1.Width '使vscroll竖直滚动条显示到窗口右端
If Picture1.Width > VScroll1.Left Then '如果picture1的宽度大于窗体减去竖直滚动条的宽度
HScroll1.Top = ScaleHeight - HScroll1.Height '使hscroll1水平滚动条显示到窗口底部
End If
Else
VScroll1.Left = ScaleWidth '如此Vscroll便不会显示出來了
End If
HScroll1.Width = ScaleWidth
If HScroll1.Top > 0 Then
VScroll1.Height = HScroll1.Top
'以下为设定滚动条的各参数范围
HScroll1.Max = Picture1.Width - VScroll1.Left
VScroll1.Max = Picture1.Height - HScroll1.Top
HScroll1.SmallChange = Abs(HScroll1.Max \ 16) + 1
HScroll1.LargeChange = Abs(HScroll1.Max \ 4) + 1
VScroll1.SmallChange = Abs(VScroll1.Max \ 16) + 1
VScroll1.LargeChange = Abs(VScroll1.Max \ 4) + 1
'以下设置滚动条置前
HScroll1.ZOrder 0
VScroll1.ZOrder 0
End If
End Sub

Private Sub HScroll1_Change()
Picture1.Left = -HScroll1.Value '更改Picture1的位置
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub VScroll1_Change()
Picture1.Top = -VScroll1.Value '更改Picture1的位置
End Sub