基于VB的Picture绘图

利用vb的picture控件进行曲线图表绘图，圆形来源于百度。

声明：

Option Explicit
Dim X As Long
Dim Y As Long
Dim 高间格 As Long, 宽间格 As Long

更新绘制：
Private Sub Command1_Click()
'测试按钮 ,定时器里的代码与此相同
Picture1.Cls
Call 绘折线图(Picture1) '绘制折线图
' Stop
End Sub

曲线表格：

Public Sub 绘折线图(cs As PictureBox)

Dim i As Long, 间格 As Double
Dim 总高 As Long
Dim 最低格 As Double

With cs

总高 = .ScaleHeight - 200
高间格 = (总高) / 12 '上下各留一格
宽间格 = (.ScaleWidth - 600) / 51 '右边留一格

.Cls '清屏

'画坐标
Dim x1 As Long, X2 As Long, y1 As Long, y2 As Long

y1 = .ScaleHeight - 200
x1 = .ScaleWidth - 200

cs.Line (600, 0)-(600, y1), vbGreen
cs.Line (600, y1)-(.ScaleWidth, y1), vbGreen

'画坐标网络
.ForeColor = vbBlack
.CurrentX = 0
.CurrentY = y1 - 90
cs.Print Round(最低格, 3)
For i = 1 To 11
cs.Line (600, y1 - i * 高间格)-(.ScaleWidth, y1 - i * 高间格), vbBlack
.CurrentX = 0
.CurrentY = y1 - i * 高间格 - 90
cs.Print Round(20 * i, 3)
Next i

For i = 1 To 50
cs.Line (600 + i * 宽间格, 0)-(600 + i * 宽间格, y1), vbRed
.CurrentX = 600 + i * 宽间格 - 150
.CurrentY = y1 + 30
cs.Print i
Next i

End With
End Sub
可以利用time控件输入一个随机曲线进行测试。

基于VB的Picture绘图相关推荐

基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保（完整原程序）
基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序) 动画播放器程序,在WIN2003调试通过,详细请自行下载进行学习测试,程序大小13K 下载地址:http:// ...
基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保（完整原程序） (转)
基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序) (转)[@more@] 基于VB算法+Picture+Timer控件制作的39种动画效果,类似屏保(完整原程序 ...
cufflinks基于dataframe数据自定义绘图基于df.iplot功能
cufflinks基于dataframe数据自定义绘图基于df.iplot功能 # cufflinks绘制自定义图像 # 基于df.iplot参数控制: from chart_studio impor ...
基于VB和EXCEL的报表设计及打印
基于VB和EXCEL的报表设计及打印文/朱诗兵高栓在现代管理信息系统的开发中,经常涉及到数据信息的分析.加工, 最终还需把统计结果形成 ...
c语言延时系统,基于VB的单片机C语言延时程序各参数计算系统
仪器仪表用户 doi:10．3969/j．issn．1671-1041．2011．04．013 □科研设计成果□ 基于VB的单片机C语言延时程序各参数计算系统刘 1 锋,林奕 2 (1．武汉理工大 ...
vb杨辉三角代码编写_「二次开发」——基于VB.NET的NX UG软件二次开发基础
前几期中为大家介绍了CATIA软件.AutoCAD软件基于VB.NET的二次开发,本期再来为大家介绍一下NX UG软件基于VB.NET的二次开发. NX UG软件版本:NX 12.0.0.27 开发软 ...
数据可视化（三）基于 Graphviz 实现程序化绘图
2019独角兽企业重金招聘Python工程师标准>>> 前言我之前在几篇文章新一代Ntopng网络流量监控-可视化和架构分析. 数据可视化(一)思维利器 OmniGraffle 绘 ...
asp毕业设计——基于vb+VB.NET+SQL Server的图书馆管理信息系统设计与实现（毕业论文+程序源码）——图书馆管理信息系统
基于vb+VB.NET+SQL Server的图书馆管理信息系统设计与实现(毕业论文+程序源码) 大家好,今天给大家介绍基于vb+VB.NET+SQL Server的图书馆管理信息系统设计与实现,文章 ...
基于VB的COM编程入门教程
VB COM编程教程 ⊙ 论坛热贴用VB编写批量重命名文件问题如何将图像填充整个表单正则表达式中如何跳过回车符如何让小老鼠变个样? >>>>更多... ⊙ ...

基于VB的Picture绘图

基于VB的Picture绘图相关推荐

最新文章

热门文章