关于vb.net实时的信息

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

vb.net 绘制实时温度曲线

这个要用GDI+画。要看你.net版本。

以下是VS2005中的一段代码。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定义画布

Dim bp As New Bitmap(880, 450) '定义位图,并进行赋值

Dim p As New Pen(Color.Black) '定义画笔

p.Width = 2 '宽度2

p.DashStyle = Drawing2D.DashStyle.Solid '样式直线

PictureBox1.Image = bp

gr = Graphics.FromImage(PictureBox1.Image)

gr.FillRectangle(Brushes.White, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))

gr.DrawLine(p, a, b, a, .Height - b) '绘制纵坐标

gr.DrawLine(p, a, .Height - b, .Width - a, .Height - b) '绘制横坐标

相关问答

Q1: vb6.0中实时错误424,要求对象是怎么回事

原因：名字错误，需要先把控件画好，并zd命名完再写代码。解决方法：

1．首先，用Inputbox在VB编程软件中输入一个数字。

2．然后进入选择案例判断语句的框架。

3．然后输入第一个分支的语句。

4．然后输入第二个语句判断否定条件权利，可以用Else代替。

5．最后，运行测试，如下图所示，就完成了。

扩展资料：

注意事项：

Vb．net特点：

1．VB。Net完全集成到VisualStudio集成开发环境中，这与VB有几个方面的不同。主要体现在布局和菜单的形式等方面有所不同。

2．VB。Net项目不同于VB。它使用基于文件夹的模型，其中所有项目都放在项目文件夹层次结构中。

3．net使用ado．net，它是。net的一部分。NetFramework，以访问数据库。在vb．net中有两种主要的数据访问方法。

Q2: VB.NET 实时曲线

拖一个PictureBox1控件创建一个Paint事件。在事件中加入 Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint ' Create pens. Dim redPen As New Pen(Color.Red, 3) Dim greenPen As New Pen(Color.Green, 3) ' Create points that define curve. Dim point1 As New Point(50, 50) Dim point2 As New Point(100, 25) Dim point3 As New Point(200, 5) Dim point4 As New Point(250, 50) Dim point5 As New Point(300, 100) Dim point6 As New Point(350, 200) Dim point7 As New Point(250, 250) Dim curvePoints As Point() = {point1, point2, point3, point4, _ point5, point6, point7} ' Draw lines between original points to screen. e.Graphics.DrawLines(redPen, curvePoints) ' Draw curve to screen. e.Graphics.DrawCurve(greenPen, curvePoints) End Sub 得到数据后，改point的数据。然后PictureBox1.Refresh()就行了

Q3: vb.net实现实时数据采集曲线，有什么方法，或是书籍呢？

简单说下思路吧，具体的代码可以查资料

首先要会画曲线图，有三种方法：

1、用mschar控件（vb6的）；2、用水晶报表；3、用word图表

x轴为时间，y轴为数据

要实现实时数据刷新，只要用定时器定时刷新曲线图的数据就可以了（x、y的数据重写）

Q4: 关于vb.net 模块调用窗体的textbox显示实时数据的问题

数组元素intstr(137)是全局声明吗？如果是全局声明，则可以在FORM1中建个定时器或多线程，然后使用me.textbox1.text=intstr(x).ToString即可，如果要把数组全显示完成，则多加个FOR

Q5: 怎么在VB.net中实时显示时间

定时器中处理

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 10 '10毫秒刷新一次