有哪位大神会做这道vb题，求指教！
1个回答
展开全部
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 200
HScroll1.LargeChange = 20
HScroll1.SmallChange = 10
HScroll1.Value = 100
HScroll2.Min = 5
HScroll2.Max = 50
HScroll2.LargeChange = 5
HScroll2.SmallChange = 1
HScroll2.Value = 25
Label1.Font = HScroll2.Value
HScroll3.Min = 0
HScroll3.Max = 15
HScroll3.LargeChange = 1
HScroll3.SmallChange = 1
HScroll3.Value = 0
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub HScroll2_Change()
Label1.FontSize = HScroll2.Value
End Sub
Private Sub HScroll3_Change()
Label1.ForeColor = QBColor(HScroll3.Value)
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left - HScroll1.Value
Label1.Top = Label1.Top + HScroll1.Value
If Label1.Left + Label1.Width < 0 Then
Label1.Left = Form1.Width
End If
If Label1.Top + Label1.Height > Me.Height Then
Label1.Top = 0
End If
End Sub
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
