关于vb.net标尺的信息

vb.net作业，画坐标轴及标尺，画y=sin（x）曲线

Private Sub mainfrm_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

目前创新互联已为近1000家的企业提供了网站建设、域名、雅安服务器托管、网站改版维护、企业网站设计、运城网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

Dim pt(200) As PointF

Dim a As Integer

For a = 0 To 200

pt(a).X = 50 * a

pt(a).Y = 200 - 50 * Math.Sin(a - 1)

Me.CreateGraphics.DrawLine(Pens.Blue, 0, 200, 800, 200)

Me.CreateGraphics.DrawLine(Pens.Blue, 50, 0, 50, 600)

Me.CreateGraphics.DrawCurve(Pens.Blue, pt)

End Sub

打印做得不多，以前做套打时发现，每台打印机定位都不一样，于是每台机子都加了个偏移设置

我的做法在白纸上打上一标尺，和一个上下边距为2CM的交叉点，然后用标尺量这2CM的偏移，设置完后，在这台打印机打印时，就给纸张加个偏移量，打印就正常了。可能你的原因和我一样。

另外也想问你一下，你这个条码是用什么打的。早先，我用立象的条码打印机打不干胶，很简单，激光打没用过，可能下次我也要用条码打印，我也用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

RichTextBox2.Text = str

End Sub

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

网页名称：关于vb.net标尺的信息
转载源于：http://myzitong.com/article/doddojg.html