vb.net画柱状图 vba 柱状图

用VB6.0做一个柱状图，求编程！

'新建一个标准exe工程，画一个command1，一个label，其index属性设为0然后将代码粘贴

Private Sub Command1_Click()

Static Ts As Integer

Ts = Ts + 1

x = InputBox("请输入柱状图高度(1-19)：")

If Val(x) 20 Or Val(x) = 0 Then

Ts = Ts - 1

MsgBox "请输入0-19范围的数"

Exit Sub

End If

Set newobj = Me.Controls.Add("vb.shape", "shape" Ts)

With newobj

.Shape = 0

.FillStyle = 5

.Left = 1 + 2 * Ts

.Top = 42 - x * 2

.Height = x * 2

.Width = 1

End With

newobj.Visible = True

End Sub

Private Sub Form_Load()

Me.Height = 9000

Me.Width = 19000

Me.AutoRedraw = True

Show

Me.ScaleHeight = 44 '将窗体的高设定为44份

Me.ScaleWidth = 50 '将窗体的宽设定为50份

'Me.Line.BorderColor = H0

Me.Line (2, 2)-(2, 42), H0 '画出纵坐标

Me.Line (2, 42)-(48, 42), H0 '画出横坐标

Me.Line (48, 42)-(47.5, 41.5), H0 '画出横坐标上的箭头

Me.Line (48, 42)-(47.5, 42.5), H0

Me.Line (2, 2)-(1.75, 3), H0 '画出纵坐标上的箭头

Me.Line (2, 2)-(2.25, 3), H0

Label1(0).Width = 20 '写出坐标原点

Label1(0).Height = 20

Label1(0).AutoSize = ture

Label1(0).BackStyle = 0

Label1(0).FontItalic = True

Label1(0).FontBold = True

Label1(0).FontSize = 10

Label1(0).ForeColor = HFF

Label1(0).Caption = 0

Label1(0).Left = 1.5

Label1(0).Top = 42.5

Label1(0).Visible = True

For i = 1 To 45

Load Label1(i) '用数组的方法动态添加控件（横坐标示数）

Label1(i).Width = 40

Label1(i).Height = 20

Label1(i).AutoSize = ture

Label1(i).BackStyle = 0

Label1(i).FontItalic = True

Label1(i).FontBold = True

Label1(i).FontSize = 10

Label1(i).ForeColor = HFF

Label1(i).Caption = i

Label1(i).Left = 1.5 + i

Label1(i).Top = 42.5

Label1(i).Visible = True

'动态添加控件(横坐标上的间隔线）

Set newobj = Me.Controls.Add("vb.line", "Line" i)

With newobj

.BorderStyle = 3

.X1 = i + 2

.X2 = i + 2

.Y1 = 41.8

.Y2 = 42.2

End With

newobj.Visible = True

Next i

For i = 46 To 70

Load Label1(i)

Label1(i).Width = 40

Label1(i).Height = 20

Label1(i).AutoSize = ture

Label1(i).BackStyle = 0

Label1(i).FontItalic = True

Label1(i).FontBold = True

Label1(i).FontSize = 10

Label1(i).ForeColor = HFF

Label1(i).Caption = i - 45

Label1(i).Left = 1

Label1(i).Top = (66 - i) * 2

If Val(Label1(i).Caption) 20 Then Label1(i).Visible = True

Set newobj = Me.Controls.Add("vb.line", "Line" i)

With newobj

.X1 = 1.9

.X2 = 2.1

.Y1 = 2 * (i - 44)

.Y2 = 2 * (i - 44)

'.BorderStyle = 3

End With

newobj.Visible = True

Next i

End Sub

想在vb中作个柱状统计的图用什么方法详细点这个我不怎么会

三个办法，你自己选择吧。

1、用图形，自己画。不要以为这个是胡扯，实际上任何一个图形控件都是通过GUI这么画出来的。你自己写代码画没有想象中那么难。我曾经自己写了一个控件，实现任务管理器里面CPU占用率显示的那个效果，代码也不过百多行，比大多数人想的都要容易。

2、用 Microsoft Chart Controls。mschart绝大多数机器上都有，能提供基本的图形显示。操作比较简单，相应的功能也比较简单。但最常见的折线图、饼图、柱状图都是有的。

3、使用第三方控件。推荐 TeeChart，不过正版的要收费。你能在网上找到破解的老版本。功能强大，画面漂亮、图形种类繁多，有动态操作功能。什么坐标啊，顶点标签啊，图例啊等等全都有。

将vb.net中怎样生成柱形图

引用microsoft chart control6.0(sp4)

添加mxchart空件

mxchart空件可以实现各种图形，什么饼，柱，三角，线，都可以。而且可以是立体的。

在VB中使用VBA生成柱形图表怎么实现？

可以生成图表vb.net画柱状图，图表中vb.net画柱状图的数据源用下面的代码在A7vb.net画柱状图：G13位置sheet2的表A1vb.net画柱状图：B5

在指定的位置图（子）

设置AB =范围（“A7： G13）'生成图表位置

设为BBB = ActiveSheet.ChartObjects.Add（0vb.net画柱状图，0，0，0）

bbb.Chart.ChartType = xlColumnClustered的柱形图

bbb.Chart。数据源SetSourceData来源：=表（“Sheet2的”）范围（“A1：B5”）'

BBB

= ab.Top

左= ab.Left，

。的宽度= ab.Width

高度= ab.Height

尾与

尾子

vb.net中使用Chart控件如何更改柱子宽度？

在 series 集合编辑器 里找到杂项 customproperties 里vb.net画柱状图的 pointwidth 设置

关于vb.net画柱状图和vba 柱状图的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。