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

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

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

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

我原来的代码做出来的效果如下
http://bbs.mjtd.com/forum.php?mod=attachment&aid=NzQyM3wxOTliOWFiM3wxNjU5MTc1MjM5fDczMjY5MTh8MjA2NTA%3D&noupdate=yes&nothumb=yes

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

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


谢谢尹凡! 参照您的建议我做
页: [1]
查看完整版本: [VBA][求助]如果做交叉递增的圆点?