学习VBA开发发生了一些问题，新人求教

cadlearner · 发表于 2020-9-7 09:56:38

sgwsssxm 发表于 2020-9-7 00:18
If i Mod 2 = 0 Then
point(0) = centerpoint(0) + radius * Sin((i / 2) * sideAngle)
verts. ...

好的，多谢了。我也是刚学习，一些代码直接从书上敲的。有些地方也不是很理解

cadlearner · 发表于 2020-9-7 09:57:55

sgwsssxm 发表于 2020-9-7 00:26
Private m_verts() As Double
下面加一行
Private m_bFirstItem As Boolean

这样在作用上面有区别吗？还是只是节省了代码量？

cadlearner · 发表于 2020-9-7 10:03:12

本帖最后由 cadlearner 于 2020-9-7 10:29 编辑

sgwsssxm 发表于 2020-9-7 00:18
If i Mod 2 = 0 Then
point(0) = centerpoint(0) + radius * Sin((i / 2) * sideAngle)
verts. ...

好的，问题现在已解决，多谢帮助。

sgwsssxm · 发表于 2020-9-7 10:11:43

和代码量无关,这是全局变量和局部变量的区别，在模块内定义的m_bFirstItem，所有过程和函数共享，过程和函数中单独定义的同名m_bFirstItem会覆盖掉全局m_bFirstItem的值，等于你的类永远是未初始化，m_bFirstItem的值永远是False。

sgwsssxm · 发表于 2020-9-7 10:23:32

这就是m_bFirstItem的问题了，我说的两个地方都改了，最后显示效果才能对上。

cadlearner · 发表于 2020-11-3 10:17:37

sgwsssxm 发表于 2020-9-7 10:23
这就是m_bFirstItem的问题了，我说的两个地方都改了，最后显示效果才能对上。

好的，已了解，多谢了。确实是局部函数的值覆盖了全局函数

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