vb.net绘制刻度直线的简单介绍

vb和vb.net 在picturebox 中绘制直线如何绘制

绘图是系统内部操作的，不需要懂原理

创新互联是一家专注于网站设计、网站制作与策划设计,固阳网站建设哪家好?创新互联做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:固阳等地区。固阳做网站价格咨询:13518219792

方法就在那里，只有会用和不会用，你的代码告诉它绘制，它就会绘制。它（方法）究竟如何去绘制的并不是重点，反正它会绘制。

drawline（绘线）方法很简单，第一个参数是pen,它确定线条的颜色、宽度和样式。第二、第三个参数都是point类型，确定两个点的位置，绘制直线。

VB.NET 画直线 问题 怎样让直线置顶(就是不被其它控件覆盖) 100分(希望详细些)如较麻烦，会追加分数

这个必须用控件的方法解决，VB6有个Line控件很容易解决这个问题，但是VB.NET没有了，幸好微软也想到了这个缺陷，提供免费的Visual Basic PowerPacks控件箱，其中有Line控件。

Visual Basic PowerPacks下载地址：

使用 LineShape 控件绘制直线：

vb.net怎么画不同坐标的八叉直线

[{"word":"VB.NET画直线方法\n该方法绘制一条连接由坐标对指定的两个点的线条，所以我们需要指定这两个点的坐标，如下所示、\nDrawL in e(pen,x1.y1,x2,y2)或者DrawL in e(pen,Po in t1,Poin t2)\n下面示例将在PictureBox控件表面绘制一条直线、\nDim g As\nGraphics=Me.PictureBox\n1.CreateGraphics\nDim mpen As New\nPen(Color.Red)g.DrawLin e(mpen,0,80,0,160)\n也可以使用如下代码来实现一样的甲\n__\n"}]

用VB编程如何画直线

示例

这个示例用 Line 方法在窗体上画了几个同心矩形。要运行这个示例，将此代码放入窗体的 General 部分。按 F5 并单击窗体。

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