[求助]华海仓库管理软件的打包安装程序是用什么做的？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]华海仓库管理软件的打包安装程序是用什么做的？

共有25329人关注过本帖树形打印复制链接主题：[求助]华海仓库管理软件的打包安装程序是用什么做的？

t_fs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

[求助]华海仓库管理软件的打包安装程序是用什么做的？ 发帖心情

Post By：2008/12/20 12:02:00 [只看该作者]

请问一下，谁知道华海仓库管理软件的打包安装程序是用什么软件做的，挺好的？谢谢了！

[此贴子已经被作者于2008-12-20 12:02:51编辑过]

gdlgh

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00

Post By：2008/12/20 15:18:00 [只看该作者]

用这个绿色的，不过是试用版，带他的名字广告！！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:createinstall free.rar

abcdzabcdz

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：324 积分：3807 威望：0 精华：0 注册：2008/9/1 7:34:00

Post By：2008/12/20 15:36:00 [只看该作者]

全英文版的,若有中文版就好了.

gdlgh

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00

Post By：2008/12/20 15:50:00 [只看该作者]

此主题相关图片如下：a.bmp

blackzhu

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9875 积分：57590 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2008/12/20 17:41:00 [只看该作者]

以下是引用gdlgh在2008-12-20 15:18:00的发言：

用这个绿色的，不过是试用版，带他的名字广告！！

下载信息 [文件大小：971.7 KB 下载次数：2]
点击浏览该文件:createinstall free.rar

老大,你的源代码暂时不开放,我想问一下你的目录树中箭头和勾的转换怎么做的?是不是先确定节点图标,然后再用代码转换成勾的,代码怎么写的?
求求,公开吧,我有点睡不着,你那个绝对能入选.老六如不入选你的的,我不买他的软件了.

gdlgh

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00

Post By：2008/12/20 21:49:00 [只看该作者]

呵。谢老兄支持！！

1.第一个树“库存商品”

'树图标切换
dim i as integer
For i = 0 To 3
    e.sender.Nodes(i).Ic
Next
if e.node.level = 0 then
    e.Node.Ic
end if

2.其它的树本想用上面的代码做的，但不知点解不行，改用循环来实现
如报表图表树代码：

'树图标切换
dim i,j,k as integer
with e.sender
    For i = 0 to 1
        .Nodes(i).Ic
        For j = 0 to 6
            if i=0 and j>0 then
                Continue For
            end if
             .Nodes(i).Nodes(j).Ic
            For k = 0 to 2
                if j<4 and k>1 then
                    Continue For
                end if
                if j>0 then
                    .Nodes(i).Nodes(j).Nodes(k).Ic
                end if
            next
        next
    next
e.node.Ic
end with