智能车制作

 找回密码
 注册

扫一扫,访问微社区

查看: 2468|回复: 9
打印 上一主题 下一主题

请教VB快速画1000多个shape控件的方法

[复制链接]

114

主题

857

帖子

0

精华

跨届大侠

不想吃天鹅肉的癞蛤蟆不是好癞蛤蟆~!

Rank: 10Rank: 10Rank: 10

积分
8662

活跃会员奖章优秀会员奖章在线王奖章论坛骨干奖章论坛元老奖章资源大师奖章

威望
3956
贡献
2014
兑换币
1429
注册时间
2012-3-4
在线时间
1346 小时
跳转到指定楼层
1#
发表于 2013-10-11 16:26:50 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如题,能像画线一样通过程序画shape控件吗?望大神不吝赐教

21

主题

896

帖子

0

精华

常驻嘉宾

Rank: 8Rank: 8

积分
4068
威望
2252
贡献
1296
兑换币
1483
注册时间
2012-7-30
在线时间
260 小时
毕业学校
克莱德大学
2#
发表于 2013-10-11 16:49:26 | 只看该作者
回复 支持 反对

使用道具 举报

8

主题

185

帖子

0

精华

跨届大侠

Rank: 10Rank: 10Rank: 10

积分
6639
QQ
威望
4498
贡献
1239
兑换币
633
注册时间
2012-10-19
在线时间
451 小时
3#
发表于 2013-10-11 18:30:50 | 只看该作者
为什么不c sharp
回复 支持 反对

使用道具 举报

114

主题

857

帖子

0

精华

跨届大侠

不想吃天鹅肉的癞蛤蟆不是好癞蛤蟆~!

Rank: 10Rank: 10Rank: 10

积分
8662

活跃会员奖章优秀会员奖章在线王奖章论坛骨干奖章论坛元老奖章资源大师奖章

威望
3956
贡献
2014
兑换币
1429
注册时间
2012-3-4
在线时间
1346 小时
4#
 楼主| 发表于 2013-10-11 18:31:51 | 只看该作者
Payne 发表于 2013-10-11 18:30
为什么不c sharp

规定用VB
回复 支持 反对

使用道具 举报

8

主题

185

帖子

0

精华

跨届大侠

Rank: 10Rank: 10Rank: 10

积分
6639
QQ
威望
4498
贡献
1239
兑换币
633
注册时间
2012-10-19
在线时间
451 小时
5#
发表于 2013-10-11 18:35:16 | 只看该作者
zyj 发表于 2013-10-11 18:31
规定用VB

好吧,牛
回复 支持 反对

使用道具 举报

114

主题

857

帖子

0

精华

跨届大侠

不想吃天鹅肉的癞蛤蟆不是好癞蛤蟆~!

Rank: 10Rank: 10Rank: 10

积分
8662

活跃会员奖章优秀会员奖章在线王奖章论坛骨干奖章论坛元老奖章资源大师奖章

威望
3956
贡献
2014
兑换币
1429
注册时间
2012-3-4
在线时间
1346 小时
6#
 楼主| 发表于 2013-10-11 18:37:09 | 只看该作者
Payne 发表于 2013-10-11 18:35
好吧,牛

。。。。。。是不是图形控件是无法用绘图方法那样绘的==
回复 支持 反对

使用道具 举报

8

主题

185

帖子

0

精华

跨届大侠

Rank: 10Rank: 10Rank: 10

积分
6639
QQ
威望
4498
贡献
1239
兑换币
633
注册时间
2012-10-19
在线时间
451 小时
7#
发表于 2013-10-11 18:40:34 | 只看该作者
zyj 发表于 2013-10-11 18:37
。。。。。。是不是图形控件是无法用绘图方法那样绘的==

不知道,只用过delphi7
回复 支持 反对

使用道具 举报

114

主题

857

帖子

0

精华

跨届大侠

不想吃天鹅肉的癞蛤蟆不是好癞蛤蟆~!

Rank: 10Rank: 10Rank: 10

积分
8662

活跃会员奖章优秀会员奖章在线王奖章论坛骨干奖章论坛元老奖章资源大师奖章

威望
3956
贡献
2014
兑换币
1429
注册时间
2012-3-4
在线时间
1346 小时
8#
 楼主| 发表于 2013-10-11 18:43:46 | 只看该作者
Payne 发表于 2013-10-11 18:40
不知道,只用过delphi7

好吧 貌似是不能的
回复 支持 反对

使用道具 举报

4

主题

140

帖子

0

精华

金牌会员

观星客

Rank: 6Rank: 6

积分
2235
QQ
威望
1054
贡献
679
兑换币
573
注册时间
2012-7-24
在线时间
251 小时
9#
发表于 2013-10-12 22:24:11 | 只看该作者
将shape1的index属性设为0
for i=1 to 1000
load shape1(i)
with shape1(i)
.visible=true

end with
next
要多少有多少,位置参数自己设
回复 支持 反对

使用道具 举报

114

主题

857

帖子

0

精华

跨届大侠

不想吃天鹅肉的癞蛤蟆不是好癞蛤蟆~!

Rank: 10Rank: 10Rank: 10

积分
8662

活跃会员奖章优秀会员奖章在线王奖章论坛骨干奖章论坛元老奖章资源大师奖章

威望
3956
贡献
2014
兑换币
1429
注册时间
2012-3-4
在线时间
1346 小时
10#
 楼主| 发表于 2013-10-14 12:05:11 | 只看该作者
bill1430 发表于 2013-10-12 22:24
将shape1的index属性设为0
for i=1 to 1000
load shape1(i)

原来如此,果然还是车友们给力。。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

关于我们|联系我们|小黑屋|智能车制作 ( 黑ICP备2022002344号

GMT+8, 2024-6-16 12:30 , Processed in 0.069485 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表