制作画图程序的VB代码是什么

Visual Basic 给用户提供了许多 *** 作图形的工具,同时也提供了功能强大的绘图方法,它作为 Windows环境下的可视化开发工具(RAD),完全继承了Windows界面的风格

Visual Basic提供了线条控件,形状控件,图像框和框用这些控件可完成界面装饰,动画特技和科学曲线绘制等工作

同时VB也提供了各种画图语句用于在窗体和框进行画图：

Circle 方法 Line 方法 Drag 方法 Cls 方法

等等。

配合一定的Windows API函数应用,Visual Basic能完成大多数图形任务

Dim Oldx As Single

Dim Oldy As Single

Dim L As Boolean

Dim i As Integer

Private Sub Form_Load()

i = 0

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then

i = i + 1

If i Mod 2 = 0 Then

MeLine (Oldx, Oldy)-(X, Y)

Else

Oldx = X

Oldy = Y

MePSet (X, Y)

End If

Else

L = True

Oldx = X

Oldy = Y

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If L = True Then

Line (Oldx, Oldy)-(X, Y)

Oldx = X

Oldy = Y

End If

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

L = False

End Sub

objectLine [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

Line 方法的语法有以下对象限定符和部分：

部分 描述

object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。

Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。

(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。

Step 可选的。关键字，指定相对于线的起点的终点坐标。

(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。

color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。

B 可选的。如果包括，则利用对角坐标画出矩形。

F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。

补充个例子:

Sub Form_Click ()

Dim CX, CY, F, F1, F2, I ' 声明变量。

ScaleMode = 3 ' 设置 ScaleMode 为像素。

CX = ScaleWidth / 2 ' 水平中点。

CY = ScaleHeight / 2 ' 垂直中点。

DrawWidth = 8 ' 设置 DrawWidth。

For I = 50 To 0 Step -2

F = I / 50 ' 执行中间步骤。

F1 = 1 - F: F2 = 1 + F ' 计算。

Forecolor = QBColor(I Mod 15) ' 设置前景颜色。

Line (CX F1, CY F1)-(CX F2, CY F2), , BF

Next I

DoEvents ' 做其它处理。

If CY > CX Then ' 设置 DrawWidth。

DrawWidth = ScaleWidth / 25

Else

DrawWidth = ScaleHeight / 25

End If

For I = 0 To 50 Step 2 ' Set up loop

F = I / 50 ' 执行中间。

F1 = 1 - F: F2 = 1 + F ' 计算。

Line (CX F1, CY)-(CX, CY F1) ' 画左上角。

Line -(CX F2, CY) ' 画右上角。

Line -(CX, CY F2) ' 画右下角。

Line -(CX F1, CY) ' 画左下角。

Forecolor = QBColor(I Mod 15) ' 每次改变颜色。

Next I

DoEvents ' 进行其它处理。

End Sub

vb画图是通过点与点之间进行连线而成。给你个简单的代码。

先在窗体中添加一个picturebox控件，就可以在上面进行画图。

For i = 0 To acq_count ch_cnt - 1

If k <> 0 Then

X = last_x(0)

Else

X = i / (DISP_COUNT - 1)

End If

samp = gnBuffer2(i)

Y = h - (CInt(CLng(samp) h / 256))

If last_y(k) <> -1 Then

picScreenLine (last_x(k), last_y(k))-(X, Y), shpColor(k)BackColor

End If

last_x(k) = X

last_y(k) = Y

Next

就这么简单！

以上就是关于制作画图程序的VB代码是什么全部的内容，包括:制作画图程序的VB代码是什么、VB编程 制作绘图软件 拖动鼠标左键画连续线,拖动右键画线段、Vb中如何在窗体上随意画图，可以任意画曲线、直线、线段。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！