主题：在窗口绘制流程图

在foxtable加入流程图控件是不现实的，但是像下图这样的流程图，在foxtable中是很容易实现的，并不需要流程图控件

步骤：
1、从网上下一些箭头图片或图标，如果背景颜色不是透明的，改为透明
2、窗口插入PictureBox控件，背景颜色设为Transparent，也就是透明，图片选择步骤一准备好的箭头

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目49.rar

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

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试哈。
中间有机关哦!

是不是图片的大小有限制啊,如有,希望能改小一些

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

收藏，好的创意，给5个“金花”，呵呵

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

没有好好学习吧,呵呵

  完善了一下,看看.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:流程图.rar