vb.net 制作行标尺

左边放一个专门放行数的listbox，根据右边的行数自动生成行号

网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、成都小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了斗门免费建站欢迎大家使用！

Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged

Dim arr() = RichTextBox1.Text.Split(vbLf)

Dim str As String

str = ""

For i = 1 To arr.Length

str = str i vbCrLf

Next

RichTextBox2.Text = str

End Sub

接下来是两个listbox的同步滚动，可以参考这篇文章：

VB.NET 一次函数求横坐标

不是已经回答了吗？

运行界面如下图：

在对应的文本框里输入对应的坐标值，单击【计算】，结果将显示在下面一个文本框里，完整代码如下：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim x2, y2, x3, y3, x4, y4, x5, y5 As Single

Dim L As Single

x2 = Val(TextBox2.Text)

y2 = Val(TextBox3.Text)

x3 = Val(TextBox4.Text)

y3 = Val(TextBox5.Text)

x4 = Val(TextBox6.Text)

y4 = Val(TextBox7.Text)

'求点P3(x3,y3)与点P4(x4,y4)的直线方程；

'(X-x4)/(x3-x4) = (Y-y4)/(y3-y4) ......(1)

'求过点P2(x2,y2)的水平直线方程为；

'Y = y2 ......(2)

'方程(1)(2) 联立可以求出两条直线的交点(x5,y5)

'由此得到交点坐标为：

x5 = (y2 - y3) * (x4 - x3) / (y4 - y3) + x3

y5 = y2

'求点P2(x2,y2)与点P5(x5,y5)之间的距离

'根据两点之间距离公式有；

L = ((x2 - x5) ^ 2 + (y2 - y5) ^ 2) ^ 0.5

TextBox1.Text = L

End Sub

End Class

关于VB.net取整的问题

double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成

所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101

即

180.89305在double中存在的实际数值是

1.01101001110010010011110111011001011111110110001010110110101 *2^7

取小数点后 52位有效值后 等于10进制的180.893049999999998

所及加最后变成了 1808930.99999999998

第一次当然输出近似值1808931

第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1

跪求vb.net代码

新建窗口，添加picture控件

利用line()方法画线

line(开始x坐标,开始y坐标)-(结束x坐标,结束y坐标),线的颜色，画线的方式(默认为线，B为矩形无填充，BF为填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上画也可以调用窗口的line方法即form.line()

分享文章：vb.net标尺代码 vbnet chart
本文路径：http://azwzsj.com/article/dosehoi.html