重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'新建一个标准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
引用microsoft chart control6.0(sp4)
添加mxchart空件
mxchart空件可以实现各种图形,什么饼,柱,三角,线,都可以。而且可以是立体的。
你的操作是想点击一个按钮,打开IE浏览器,然后IE浏览器的内容是你之前编辑过的数据以图表的形式存在,是吗
如果是这样,可以这样做,在你的程序目录建立一个Excel文件,用VB打开这个Excel文件,然后向里面写入数据,数据写好后,用VB控制这个Excel文件生成柱状图并保存成网页的格式的文件,比如data.html
然后点击那个按钮,用IE浏览器来打开这个data.html,这样就得到你想要的效果了,其实VB和Excel里的VBA配合起来,还是很简单的,有不明白的Hi我
三个办法,你自己选择吧。
1、用图形,自己画。不要以为这个是胡扯,实际上任何一个图形控件都是通过GUI这么画出来的。你自己写代码画没有想象中那么难。我曾经自己写了一个控件,实现任务管理器里面CPU占用率显示的那个效果,代码也不过百多行,比大多数人想的都要容易。
2、用 Microsoft Chart Controls。mschart绝大多数机器上都有,能提供基本的图形显示。操作比较简单,相应的功能也比较简单。但最常见的折线图、饼图、柱状图都是有的。
3、使用第三方控件。推荐 TeeChart,不过正版的要收费。你能在网上找到破解的老版本。功能强大,画面漂亮、图形种类繁多,有动态操作功能。什么坐标啊,顶点标签啊,图例啊等等全都有。
在 series 集合编辑器 里找到杂项 customproperties 里的 pointwidth 设置
可以生成图表,图表中的数据源用下面的代码在A7:G13位置sheet2的表A1:B5
在指定的位置图(子)
设置AB =范围(“A7: G13)'生成图表位置
设为BBB = ActiveSheet.ChartObjects.Add(0,0,0,0)
bbb.Chart.ChartType = xlColumnClustered的柱形图
bbb.Chart。数据源SetSourceData来源:=表(“Sheet2的”)范围(“A1:B5”)'
BBB
= ab.Top
左= ab.Left,
。的宽度= ab.Width
高度= ab.Height
尾与
尾子