- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 在窗口绘制流程图 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=4096)
-- 发布时间：2009/8/27 23:19:00
-- 在窗口绘制流程图
在foxtable加入流程图控件是不现实的，但是像下图这样的流程图，在foxtable中是很容易实现的，并不需要流程图控件
步骤：
1、从网上下一些箭头图片或图标，如果背景颜色不是透明的，改为透明
2、窗口插入PictureBox控件，背景颜色设为Transparent，也就是透明，图片选择步骤一准备好的箭头
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目49.rar |
-- 发布时间：2009/8/28 11:05:00
--
单个图是还可接收，但很多呢？
希望贺老师提供批量设置的办法
例如：10个同样的箭头，若每个都这样设置，岂不是折腾人？
我尝试着用代码设置（用一个按钮事件，批量为图片控件设置大小及引用图片档），没成功，主要是不能保存。
希望贺老师：最好是增加控件群组及复制功能，这样的话，复制控件即可，大大地缩短了设计时间
-- 发布时间：2009/8/28 11:08:00
--
10个箭头一点不折腾人，控件复制早就有了嘛。
复制之后换个图片就行，有啥麻烦的，没有完全自动的豆浆机啊。
-- 发布时间：2009/8/28 11:20: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 11:21:00
--
控件复制功能在哪，我怎么一直没发现？
发现有点搞笑，用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
则就能显示图标了。
大家试哈
是不是图片的大小有限制啊,如有,希望能改小一些
-- 发布时间：2009/8/28 11:24:00
--
窗口设计器第四个按钮,就是复制.
那个图片时32*32的，必须大过这个尺寸才行
-- 发布时间：2009/8/28 11:53:00
--
收藏，好的创意，给5个“金花”，呵呵
-- 发布时间：2009/8/28 13:57:00
--
窗口设计器第四个按钮,就是复制.
那个图片时32*32的，必须大过这个尺寸才行
真晕，这个复制按钮我今天才发现
-- 发布时间：2009/8/28 14:17:00
--
真晕，这个复制按钮我今天才发现
没有好好学习吧,呵呵
-- 发布时间：2009/8/28 14:31:00
--
完善了一下,看看.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:流程图.rar |