VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4970|回复: 9

VB做的柱状图DLL

[复制链接]
 楼主| 发表于 2012-1-3 20:19:17 | 显示全部楼层 |阅读模式
本帖最后由 admin6677 于 2012-1-3 20:59 编辑

    With xHist
        Randomize
        For i = 1 To 31 Step 1
            .AddData i, Rnd(i + 5) * 20 ''添加数据
        Next
        
        .Font.Size = 8
        .Font.Bold = True
        .AddCheck 10, 15, 30 ''根据数据显示不同颜色,暂时只显示3种
        
        .BackColor = &HFF9966  ''背景色
        .ColorForeX = &H9966&  ''X坐标字体颜色
        .ColorForeY = &HFF&    ''Y坐标字体颜色
        .ForeColor = &HFF00FF  ''数据字体颜色
        .Height = 280          ''柱状图高度
        
        .MinX = 0: .MaxX = 20  ''数据区大小
        .ColWidth = 15         ''柱状宽度
        .ColSpacing = 2        ''柱与柱之间的间隔
        .RowHeight = 20        ''Y坐标间距
        .Title = "每日产量柱状图" ''标题
        .UnitX = "日" ''X坐标单位
        .UnitY = "万" ''Y坐标单位
        
        .Histogram Me.hDC, 5, 30 ''画图到场景
    End With
    Me.Refresh

附件怎么加不了?

点评

汗  发表于 2012-1-3 20:23
 楼主| 发表于 2012-1-3 20:53:41 | 显示全部楼层
本帖最后由 admin6677 于 2012-1-3 21:00 编辑

Discuz! Database Error

The database has encountered a problem. Need Help?
--------------------------------------------------------------------------------
Error messages:
•[Type] 查询语句错误
•[1052] Column: 'aid' in where clause is ambiguous
•[Query] SELECT a.*, af.* FROM forum_attachment a LEFT JOIN forum_attachment_unused af USING(aid) WHERE aid IN ('43137') AND (af.uid='110914' AND a.tid='0' ) ORDER BY a.aid DESC

Program messages:

•[Line: 0060]forum.php(require)
•[Line: 0084]source/module/forum/forum_ajax.php(getattach)
•[Line: 0041]source/function/function_post.php(db::query)
•[Line: 0981]source/class/class_core.php(db::_execute)

www.vbgood.com 已经将此出错信息详细记录, 由此给您带来的访问不便我们深感歉意


附件ID:43137
怎么加都加不了。唉
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-1-3 20:58:00 | 显示全部楼层
本帖最后由 admin6677 于 2012-1-3 20:59 编辑

1.jpg

点评

看起来倒是不错  发表于 2012-1-4 14:36

评分

参与人数 1人气 +1 收起 理由
treesingwind + 1 很给力!

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2012-1-3 21:10:50 | 显示全部楼层
很实用啊,这个东东
回复 支持 反对

使用道具 举报

发表于 2012-1-4 11:41:05 | 显示全部楼层
貌似用不到,R语言可以实现= =不过还是顶下吧
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-1-4 20:32:01 | 显示全部楼层
本帖最后由 admin6677 于 2012-1-4 20:33 编辑

今天再试试发附件

柱状图.rar (29.02 KB, 下载次数: 483)
回复 支持 反对

使用道具 举报

发表于 2012-1-5 17:08:23 | 显示全部楼层
原来要花费21金钱才能下载,哈哈
回复 支持 反对

使用道具 举报

发表于 2012-1-9 11:41:22 | 显示全部楼层
LZ的附件吸引人,LZ的个性签名更打动人@@
回复 支持 反对

使用道具 举报

 楼主| 发表于 2012-1-21 23:43:09 | 显示全部楼层
曲线图.jpg

柱状图.rar (30.31 KB, 下载次数: 472)

评分

参与人数 1威望 +4 人气 +1 收起 理由
tom789 + 4 + 1 不喜欢带dll,不过还是支持一下

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2012-2-24 01:43:22 | 显示全部楼层
是个好东西,收藏了!
回复 支持 反对

使用道具 举报

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

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2020-6-5 18:25

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表