谁能给我份显示VB柱状图的程序?告诉我那有下载的也行！谢谢！-CSDN论坛

谁能给我份显示VB柱状图的程序?告诉我那有下载的也行！谢谢！

VB > VB基础类

收藏回复

[问题点数：0分]

⋅急救！在线等！frame问题 ⋅高手急救啊！SQL服务器启动后又立既自动停止了 ⋅在线等待：如何屏蔽掉网页内播放器的右键菜单？ 更多帖子 关注私信空间博客 sundna 等级 本版专家分：0 结帖率 100%: 2001-09-08 21:05:39

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅在线急救 ⋅画图 ⋅急需解决！ 更多帖子 关注私信空间博客 zmazmapk 等级 本版专家分：392: 以下是部分示例(具体的可以参考MSDN中MSCHART控件的介绍)
Private Sub Form_Activate()
Call GraphShowBasic
Dim MonthValueYL(11, 2)
Dim I As Long
For I = 0 To 11
    MonthValueYL(I, 1) = CStr(I + 1) & "月"
    MonthValueYL(I, 2) = (I + 1) * 2
Next I
With MS1
    .RowCount = 12
    .ChartData = MonthValueYL
    .Column = 1
    .ColumnLabel = "产值(万元)"
    .Refresh
End With
End Sub

Private Sub GraphShowBasic()
With MS1.Plot.Backdrop

    ' 除非将样式属性正确地设置为VtFillStyleBrush
      ' 否则不会有颜色显示。
     .Fill.Style = VtFillStyleBrush
     .Fill.Brush.FillColor.Set 100, 255, 200
       ' 添加边框。
      .Frame.Style = VtFrameStyleThickInner
      ' 将样式设置为显示阴影。
     .Shadow.Style = VtShadowStyleDrop
End With
With MS1.Plot
      ' 将样式设置为实心。
      .Wall.Brush.Style = VtBrushStyleSolid
      ' 将颜色设置为。
      .Wall.Brush.FillColor.Set 255, 255, 225
End With
With MS1.Plot '将绘图底色设置为蓝色。
      .PlotBase.BaseHeight = 200
      .PlotBase.Brush.Style = VtBrushStyleSolid
      .PlotBase.Brush.FillColor.Set 0, 0, 255
End With
With MS1.Title.VtFont
   .Name = "Algerian"
   .Style = VtFontStyleBold
   .Effect = VtFontEffectUnderline
   .Size = 14
   .VtColor.Set 255, 0, 255
End With
End Sub

2001-09-08 22:01:56

点赞只看TA 引用举报 #1得分 0

⋅在线急救 ⋅画图 ⋅急需解决！ 更多帖子 关注私信空间博客 zmazmapk 等级 本版专家分：392: 以下是部分示例(具体的可以参考MSDN中MSCHART控件的介绍)
Private Sub Form_Activate()
Call GraphShowBasic
Dim MonthValueYL(11, 2)
Dim I As Long
For I = 0 To 11
    MonthValueYL(I, 1) = CStr(I + 1) & "月"
    MonthValueYL(I, 2) = (I + 1) * 2
Next I
With MS1
    .RowCount = 12
    .ChartData = MonthValueYL
    .Column = 1
    .ColumnLabel = "产值(万元)"
    .Refresh
End With
End Sub

Private Sub GraphShowBasic()
With MS1.Plot.Backdrop

    ' 除非将样式属性正确地设置为VtFillStyleBrush
      ' 否则不会有颜色显示。
     .Fill.Style = VtFillStyleBrush
     .Fill.Brush.FillColor.Set 100, 255, 200
       ' 添加边框。
      .Frame.Style = VtFrameStyleThickInner
      ' 将样式设置为显示阴影。
     .Shadow.Style = VtShadowStyleDrop
End With
With MS1.Plot
      ' 将样式设置为实心。
      .Wall.Brush.Style = VtBrushStyleSolid
      ' 将颜色设置为。
      .Wall.Brush.FillColor.Set 255, 255, 225
End With
With MS1.Plot '将绘图底色设置为蓝色。
      .PlotBase.BaseHeight = 200
      .PlotBase.Brush.Style = VtBrushStyleSolid
      .PlotBase.Brush.FillColor.Set 0, 0, 255
End With
With MS1.Title.VtFont
   .Name = "Algerian"
   .Style = VtFontStyleBold
   .Effect = VtFontEffectUnderline
   .Size = 14
   .VtColor.Set 255, 0, 255
End With
End Sub

2001-09-08 22:03:55

点赞只看TA 引用举报 #2得分 0

⋅开某个EXCEL 文档后，我的电脑总显示“系统资源不足，不能完全显示”，打开其它的EXCEL 文档又没有问题，这是咋回事？ ⋅c/c++学习交流群23780331 ⋅vb+Access97编的程序如何在VB+Access2000下正常运行?急请高手指点,跟也给分. 更多帖子 关注私信空间博客 huangminguang 等级 本版专家分：75: 以下是部分示例(具体的可以参考MSDN中MSCHART控件的介绍)
Private Sub Form_Activate()
Call GraphShowBasic
Dim MonthValueYL(11, 2)
Dim I As Long
For I = 0 To 11
    MonthValueYL(I, 1) = CStr(I + 1) & "月"
    MonthValueYL(I, 2) = (I + 1) * 2
Next I
With MS1
    .RowCount = 12
    .ChartData = MonthValueYL
    .Column = 1
    .ColumnLabel = "产值(万元)"
    .Refresh
End With
End Sub

Private Sub GraphShowBasic()
With MS1.Plot.Backdrop

    ' 除非将样式属性正确地设置为VtFillStyleBrush
      ' 否则不会有颜色显示。
    .Fill.Style = VtFillStyleBrush
    .Fill.Brush.FillColor.Set 100, 255, 200
      ' 添加边框。
      .Frame.Style = VtFrameStyleThickInner
      ' 将样式设置为显示阴影。
    .Shadow.Style = VtShadowStyleDrop
End With
With MS1.Plot
      ' 将样式设置为实心。
      .Wall.Brush.Style = VtBrushStyleSolid
      ' 将颜色设置为。
      .Wall.Brush.FillColor.Set 255, 255, 225
End With
With MS1.Plot '将绘图底色设置为蓝色。
      .PlotBase.BaseHeight = 200
      .PlotBase.Brush.Style = VtBrushStyleSolid
      .PlotBase.Brush.FillColor.Set 0, 0, 255
End With
With MS1.Title.VtFont
  .Name = "Algerian"
  .Style = VtFontStyleBold
  .Effect = VtFontEffectUnderline
  .Size = 14
  .VtColor.Set 255, 0, 255
End With
End Sub

2001-09-09 10:14:01

点赞只看TA 引用举报 #3得分 0

⋅换一个主板一个cpu,至少256内存多少钱？ ⋅升级头痛，目前流行配置，一个主板一个cpu,至少256内存多少钱？ ⋅个性签名大赛 更多帖子 关注私信空间博客 dullwolf 等级 本版专家分：84: chart控件，很酷啊！http://dullwolf.yesky.net

2001-09-11 10:37:12

点赞只看TA 引用举报 #4得分 0

收起

收藏回复

sundna

等级：

关注私信 TA的帖子

vs2019安装及简单处理（详细的很）: 1.下载官网：点这里点进来之后选择社区版：点进去之后会开始自动下载vs.exe一个文件：点开下载的文件之后：进去后就会出现主界面，在勾选这栏，当然你可以考虑一下安装的位置，系统一般默认安装到C盘，但有时...

本题要求编写程序，计算序列 2/1+3/2+5/3+8/5+... 的前N项之和。注意该序列从第2项起，每一项的分子是前一...: 本题要求编写程序，计算序列 2/1+3/2+5/3+8/5+… 的前N项之和。注意该序列从第2项起，每一项的分子是前一项分子与分母的和，分母是前一项的分子。 #include<stdio.h> int main(){ int N; scanf("%d", &...

vbs表白代码+整人代码，抖音vbscript表白代码: const question = “你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。” const info = “你在说谎！不要逃避，实话实说。” const scend = “你说出了你的心扉，那就向他（她）表白吧。” di...

程序员秀操作丨利用代码程序建立新冠病毒传播模型！: 但现实并非如此，抗疫战斗仍在继续，疫情也正处于钟南山等专家所说的爆发期。如果大家现在要是出门，真的是在疫情防控添乱！不信？看看这位程序员，连夜打造的计算机仿真程序，模拟新冠病毒传播，在某站上播放...

C#基础教程-c#实例教程，适合初学者: 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，如需进一步学习C#语言...

最新纯净版win7系统下载: 听见大家有这样的需求，小编当然要帮助大家，下面就给大家带来纯净版win7系统下载吧。　系统之家GHOST WIN7 SP1 32位纯净版V2016.11系统下载是萃取各大主流win7 系统品牌而生的产品，具有适应性高、兼容性好...

vb.net 教程 5-12 绘图实例之统计图 1 柱状图: 版权声明：本文为博主原创...包括：柱状图、折线图、饼图。假设知道某个公司1-4季度的盈利情况，我们来看看如何完成统计图新建一个窗体，添加4个标签，分别是“一季度”、“二季度”、“三季度”、“四季度” ...

完美可用-DirectX修复工具增强版DirectX Repair: DirectX修复工具最新版：DirectX Repair V3.7 增强版 NEW! 版本号：V3.7.0.26539 大小: 107MB/7z格式压缩，189MB/zip格式压缩，322MB/解压后其他版本：标准版在线修复版 MD5校验码：DirectX Repair.exe/...

DirectX修复工具增强版: 最后更新：2019-9-4 DirectX修复工具最新版：DirectX Repair V3.9 增强版NEW! 版本号：V3.9.0.29371 大小: 111MB/7z格式压缩，196MB/zip格式压缩，345MB/解压后其他版本：标准版在线修复版 ...

VBA中控件MSCHART 的曲线或柱状图上显示值: http://hi.baidu.com/mizuda/blog/item/ab8af02870fefff499250ac8.html VB调用数据库数据画mschart折线图 Private Sub Command1_Click() On Error Resume Next Dim i As Integer Dim conn...

【VB6】如何用纯VB代码写个五子棋程序？（一）: （本文适合VB初学者）打开VB——新建标准EXE项目完成这些最基本的之后点确定我是打算写一个双人五子棋软件所以界面程序需要全屏/自由大小在这里我先做一个可接受大小的窗体这样就可以安排...

echarts对柱状图进行标注: series : [ { name:'直接访问', type:'bar', barWidth: '60%', data:[10, 52, 200, 334, 390, 330, 220], markPoint : { data :...

关于VS2017中VB.NET打开重新打开工程后程序设计界面无法显示的问题: 在写VB程序的过程中遇到了一些奇怪的问题，如VS2017下当写完这个窗体应用程序后重新打开工程，有时会出现设计界面不见了（当然可能是由于个人操作不当）。下面是解决办法。我们先来对比一下正常的工程和有问题的工程...

Echarts柱状图叠加、重合: 柱状图叠加 series-stack属性，只要两组数据的stack属性相同，就会叠加显示。效果如下：代码如下： <!DOCTYPE html> <html> <head> <meta charset="utf-8"> <title>...

VB Picture不能显示全部图片怎么办？: 界面固定后，picture不能显示全部图片，怎么办？两个方法： 1、在picture中再加入一个image,调整大小与picture一样，将image的stretch的属性设置为真. 这样图片在image的强制下，正好与picture一样大。 2、...

第三方Charts绘制图表四种形式:饼状图，雷达图，柱状图，直线图: 一、下载Charts框架下载地址：https://github.com/danielgindi/Charts. 解压后的文件夹里面的内容是这个样子的，如下图：解压后的文件夹里面的内容下载完成后，仔细看一下所需环境，很重要！如下图：所需的...

VB.NET书籍整理,持续更新!: VB.NET书籍整理,包含VB.NET书籍,ASP.NET书籍,ADO.NET书籍 Email-zhangchaochn@qq.com 欢迎技术交流.

区分柱状图（条形图）和直方图: 柱状图=条形图 柱状图一般用于描述离散型分类数据的对比每根柱子宽度固定，柱子之间会有间距横轴变量可以任意排序直方图直方图一般用于描述连续型数据的分布关系每根柱子宽度可以不一样，...

Android游戏破解入门级零基础起步学习破解！MT管理器+修改器使用方法小白看了绝对有用: 首先，我们要知道破解一个游戏需要分析它的apk，于是我们需要用到MT管理器(因为我是从MT开始的)，这个度娘一下可以出来。额，也可点链接http://www.coolapk.com/apk/bin.mt（怎么感觉前面的话像是废话，另外，手机...

9.2 Python Pygal绘制叠加柱状图、叠加折线图、饼图与点图: 2、Pygal绘制叠加柱状图、叠加折线图、点图与饼图 1）叠加图叠加图第二组数据会叠加在第一组数据上，可看到两组数据的累加效果，其它组数据亦同（1）叠加柱状图：Pygal.StackedBar() import pygal import...

200万年薪请不到！清华姚班到底有多牛X？: 前几天，清华大学自动化系2020年大一新生的C++作业因为太难而上了热搜...前几年国内某知名企业去清华姚班招聘，开出令我等芸芸众生望尘莫及的200W年薪，竟然颗粒无收。人人不仅感叹，清华姚班究竟什么来头？图灵奖唯一

VB 6.0 如何在64位操作系统下运行!: XP系统已经被停止维护很长一段时间了，但是还是有不少朋友可能还没有升级到WIN7或更高的操作系统。对于使用VB6.0作为开发工具的朋友来说，是否升级到64位操作系统，是个有点纠结的问题。我们无外乎几种解决方案...

DirectX修复工具V4.1公测！: 还是像原来一样，共提供三个版本以供不同用户进行选择，请直达链接下载：标准版，增强版，在线修复版。以下的公测说明已经失效，仅供参考。 ---------------------------------------------------------------...

在html登陆页面代码中添加背景图片，为什么找不到图片放置的位置: 我们在给一个登陆页面添加一个背景图的时候，为什么我们明明添加了。可是相对路径写不正确，就会发现老是加载不上。如下图代码如下 ... 这样就不会造成加载不上的情况。...希望对大家有帮助！！...

VB程序调试: 一、在VB程序设计中有三类错误：第一类：语法错误由于违反了语言违反有关语句形式或使用规则而产生的错误。系统可以自动检查，如：输入非法字符，缺少括号等。第二类：运行错误由于试图执行一个不可...

vs2015的VB与VB6.0的VB有什么区别？: 听说vs可以写C程序和VB程序，我果断把原来的VB6.0和VC卸了。安装了最新的vs2015。可是在编VB程序时，我发现vs里面的VB跟VB6.0的VB的语法相差很大。请问他们都是同一种编程语言吗？

VB编程必备！_VB源码之友（内含-下载-破解-使用方法）: 今天一不小心把歌词锁定了、就不能拖拽控制了、查了下、发现Ctrl+Alt+E就能解锁歌词、然后解锁完了我就去编代码- -、纳尼！竟然多了一段代码！这是一个错误信息处理的代码、我一看不是我打的、就联想起了刚

利用VB开发应用程序的一般步骤: 一个VB程序也称为一个工程，由窗体、标准模块、自定义控件及应用所需的环境设置组成。开发步骤一般如下： 1．创建程序的用户界面。 2．设置界面上各个对象的属性。 3．编写对象响应事件的程序代码。 4．保存工程...

【vb+sql】选中datagrid的某一行，使其第一个单元格的内容显示在text文本框中？: 比如这个情况，我就需要选中第一行的时候，text1.text=1001 我已经编写的代码： Option Explicit Private Sub Command1_Click() Dim cn As New ADODB.Connection Dim rs_findsp As New ADODB.Recordset ...

抖音表白程序Python版，明人不说暗话，我喜欢你: 最近一直在被抖音视频的表白程序刷屏，之前小编也收到过一个VB编写一个表白程序网上也流传过很多类似的表白程序，但是基本上都是由VB或者易语言编写的。难道我大Python不能写出这样的程序来么？人生苦短，我...

相关热词 c# 调用exe返回值 c# 交互网站开发 c#串口协议解析 c#list 分页 c#日志记录 c#关键字 yield c# 实现ioc c#基于事件的多线程 c# tar 解压 c#延时1秒