UC知道vb绘图设计
来源：百度知道 编辑：UC知道 时间：2024/06/16 04:00:22
一个pic控件 6个按纽 分别是 一朵花 十朵花 一圆环 十圆环 十正方体 十长方体 窗体运行前按纽在控件下 运行后按纽在控件上 还有各种图形必须用VB语言绘制
这是我写的一而个圆的代码，你可以看下。
Dim i As Integer
Dim ii As Integer
Dim ZhiJing
Dim Kuan
If Form1.ScaleHeight > Form1.ScaleWidth Then
Kuan = Form1.ScaleWidth
Else
Kuan = Form1.ScaleHeight
End If
ZhiJing = (Kuan - 1000) / 10
For i = 1 To 10
For ii = 1 To 10
Form1.Circle ((ZhiJing + 100) * i - ZhiJing / 2, (ZhiJing + 100) * ii - ZhiJing / 2), ZhiJing / 2, vbRed
Next
Next