我画的线怎么显示不出来

zhl1983929 2008-11-14 10:16:20
class form1
dim cla() as new class2
sub paint(...)
dim a as new class 2
a.draw()
end sub

sub button1click
cla(0).add(随机数)
刷新窗体
end sub

end class

class 2
dim data(100) as int32
dim i=0

sub add(d as int32)
data(i)=d
i+=1
end sub

sub draw
利用data数组画线
end sub


发现数组有数据但就是画不上去,请教高手??怀疑是画线的数组被清零,不知道是不是,使得话该如何解决?
...全文
201 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
huoxudong125 2008-11-15
  • 打赏
  • 举报
回复
添加数据吖
lemonzx2008 2008-11-15
  • 打赏
  • 举报
回复
是啊 调用方法前要赋值啊
yanlongwuhui 2008-11-14
  • 打赏
  • 举报
回复
sub paint(...)
dim a as new class 2
a.draw()
end sub
数组中还没有数据呢

16,717

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧