VB基础问题
请教各位高手，如何用vb实现画一条在直线两端分别有圆连接的图形？谢谢！！！ --------------------编程问答-------------------- 就酱紫画:O-----O --------------------编程问答-------------------- 是的，我想实现的就是这样，将图形放在picture中，打开窗体时，图形就直接显示出来 --------------------编程问答--------------------
Option Explicit--------------------编程问答--------------------
Sub Form_Click()
Dim CX, CY, Radius, Limit ' Declare variable.
ScaleMode = 3 ' 以像素为单位。
CX = ScaleWidth / 4 ' X 位置。
CY = ScaleHeight / 4 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
CX = ScaleWidth / 4 * 3 ' X 位置。
CY = ScaleHeight / 4 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius
Line (ScaleWidth / 4, ScaleHeight / 4)-Step(ScaleWidth / 2, 0)
End Sub
Private Sub Form_Load()--------------------编程问答-------------------- 谢谢各位楼主！！！
Picture1.AutoRedraw = True
Picture1.Scale (0, 0)-(25, 25)
Picture1.Circle (5, 5), 2
Picture1.Circle (20, 5), 2
Picture1.Line (7, 5)-(18, 5)
End Sub
补充：VB , 基础类
