[VBA][求助]如果做交叉递增的圆点?

kevinchan · 发表于 2004-5-18 13:44:00

本帖最后由作者于 2004-5-24 20:39:57 编辑

我现在参照老大们的意思画出了递增的圆点,

kevinchan · 发表于 2004-5-18 13:49:00

我原来的代码做出来的效果如下

我希望能在画红处做出圆点

kevinchan · 发表于 2004-5-18 23:33:00

为什么没人帮我呀？

efan2000 · 发表于 2004-5-19 00:12:00

' 记录行
Dim Row As Integer
Row = 1
Do
Do
Loop While centerpt(0) <= Length
' 增加一行
Row = Row + 1
' 偶数行
If Row Mod 2 = 0 Then
centerpt(0) = centerpt(1) + ptdis
' 奇数行
Else
centerpt(0) = 0
End If
Loop While centerpt(1) <= (n * p - 1) * ptdis + ptdis / 4 增加一个判断当前行的变量。

kevinchan · 发表于 2004-5-20 02:30:00

本帖最后由作者于 2004-5-24 20:40:56 编辑

谢谢尹凡!

参照您的建议我做

账号		自动登录	找回密码
密码			注册

[VBA][求助]如果做交叉递增的圆点?

本帖子中包含更多资源