问个VB程序问题，里面一些语句的意思

显示全部楼层 · 2010-6-8 17:32:00

Dim hvalue As Integer
Dim value As Integer
Dim widvalue As Integer
Dim heivalue As Integer
Private Sub Form_Load()
WindowState = 2
Caption = "rolling form"
Picture1.AutoSize = True
Picture1.Picture = LoadPicture("D:\身份证\d2023c58288af897800a18a9.jpg")
End Sub
Private Sub Form_Resize()
widvalue = ScaleWidth - VScroll1.Width
heivalue = ScaleHeight - HScroll1.Height
Picture1.Top = 0
HScroll1.Left = 0
HScroll1.Top = heivalue
HScroll1.Left = 0
HScroll1.Width = widvalue
VScroll1.Top = 0
VScroll1.Left = widvalue
VScroll1.Height = heivalue + HScroll1.Height（这句是什么意思呢，要如何理解呢？）
HScroll1.Max = Picture1.Width - widvalue（这句是什么意思呢，要如何理解呢？）
VScroll1.Max = Picture1.Height - heivalue
HScroll1.Min = 0
VScroll1.Min = 0
VScroll1.LargeChange = 100
VScroll1.SmallChange = 5
HScroll1.LargeChange = 100
HScroll1.SmallChange = 5
End Sub
Private Sub HScroll1_Change()
hvalue = HScroll1.value
Picture1.Move -hvalue
End Sub
Private Sub VScroll1_Change()
vvalue = VScroll1.value
Picture1.Move -hvalue, -vvalue（这句是什么意思呢）
End Sub

千问 · 2010-6-8 17:32:00

首先我们来确定一些量的意义widvalue = ScaleWidth - VScroll1.Width（widwalue是照片框的宽度单位）heivalue = ScaleHeight - HScroll1.Height（照片框的高度单位）VScroll1.Height = heivalue + HScroll1.Height其实就等于ScaleHeight（根据前面的等式得出）不知道在这里为什么多此一举，意思就是VS的高度是满的高度单位HScroll1.Max = Picture1.Width - widvalue（HS可滑动的范围是照片框宽度单位减去照片宽度单位）Picture1.Move -hvalue, -v

千问 · 2010-6-8 17:32:00

VScroll1.Height = heivalue + HScroll1.Height（这句是什么意思呢，要如何理解呢？）HScroll1.Max = Picture1.Width - widvalue（这句是什么意思呢，要如何理解呢？）也是整个代码的核心所在。这个意思 heivalue 变量+ + HScroll1 的高度。heivalu