Question

VB编程使用滚动条调节标签的宽度和高度,要求标签为蓝色,保持中心点位置不变.

设计一个个人资料输入窗口，使用单选按钮选择“性别”，组合框选择“民族”和“职业”，检查框选择“爱好”，当单击“确定”按钮，列表框列出个人资料信息。

高手！能帮我把这题也编一下么！

Answer 1

Dim cc(2)
Private Sub Form_Load()
VScroll1.Max = VScroll1.Height - Label1.Height
HScroll1.Max = HScroll1.Width - Label1.Width
cc(0) = Label1.Width
cc(1) = Label1.Height
X = (Me.Width - Label1.Width) / 2 '横位置
Y = (Me.Height - Label1.Height) / 2.5 '纵位置
Label1.Move X, Y
End Sub
Private Sub HScroll1_Scroll()
Label1.Width = cc(0) + HScroll1.Value
X = (Me.Width - Label1.Width) / 2 '横位置
Y = (Me.Height - Label1.Height) / 2.5 '纵位置
Label1.Move X, Y
End Sub
Private Sub VScroll1_Scroll()
Label1.Height = cc(1) + VScroll1.Value
X = (Me.Width - Label1.Width) / 2 '横位置
Y = (Me.Height - Label1.Height) / 2.5 '纵位置
Label1.Move X, Y
End Sub

追问

高手。。。能用hsbfontsize vscrobar 的change事件编么。。？怪我没说清楚。。。