在窗口绘制流程图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

单个图是还可接收，但很多呢？
希望贺老师提供批量设置的办法
例如：10个同样的箭头，若每个都这样设置，岂不是折腾人？
我尝试着用代码设置（用一个按钮事件，批量为图片控件设置大小及引用图片档），没成功，主要是不能保存。
希望贺老师：最好是增加控件群组及复制功能，这样的话，复制控件即可，大大地缩短了设计时间

以下是引用狐狸爸爸在2009-8-28 11:08:00的发言：
10个箭头一点不折腾人，控件复制早就有了嘛。
复制之后换个图片就行，有啥麻烦的，没有完全自动的豆浆机啊。

控件复制功能在哪，我怎么一直没发现？

发现有点搞笑，用1楼的附件，向窗口中拖入10个图片控件，然后在按钮1中设置以下：
Dim pbx AS WinForm.PictureBox
Dim i as byte
For i =1 to 10
pbx = Forms("窗口1").Controls("Image" & i)
pbx.Image = GetImage( "right" & ".ico")
pbx.height=20
pbx.width=30
NEXT

看看，图片变成了什么？！怪事！如果改为
pbx.height=40
pbx.width=60
则就能显示图标了。
大家试哈

再试哈（另将代码规范一下）：
Dim pbx as WinForm.PictureBox
Dim i as byte
For i =1 to 10
pbx = Forms("窗口1").Controls("Image" & i)
with pbx
.Image = GetImage( "down" & ".ico")
.height=20
.width=30
End with
Next
可以将：down改为up试哈。
中间有机关哦!

[此贴子已经被作者于2009-8-28 20:47:10编辑过]

以下是引用狐狸爸爸在2009-8-28 11:24:00的发言：

窗口设计器第四个按钮,就是复制.
那个图片时32*32的，必须大过这个尺寸才行

真晕，这个复制按钮我今天才发现

四楼有更新！欢迎再试！

主题：在窗口绘制流程图