vb中用滚动条花同心圆

来源：百度知道 编辑：UC知道 时间：2024/07/03 23:21:14
在VB中做一个画同心圆的程序，要求用到水平滚动条，用来控制画出圆的数目。

直接加个水平滚动条就可以了

Private Sub Form_Resize()
Dim temp As Single
Me.Cls
Me.ScaleWidth = Me.Height
temp = Me.ScaleHeight / 3
HScroll1.Min = 0
HScroll1.Max = temp
HScroll1.SmallChange = temp / 200
End Sub

Private Sub HScroll1_Change()
HScroll1_scroll
End Sub

Private Sub HScroll1_scroll()
Me.Circle (ScaleWidth / 2, ScaleHeight / 2), HScroll1.Value, QBColor(Int(16 * Rnd))
End Sub

设置form的startupposition为屏幕中心，设置ScaleMode为pixel
Private Sub Form_Load()
With HScroll1
.Min = 0
.Max = 100
End With
End Sub

Private Sub HScroll1_Change()
Circle (100, 100), HScroll1.Value
End Sub