vb.net作業(yè)，畫坐標(biāo)軸及標(biāo)尺，畫y=sin（x）曲線

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

目前創(chuàng)新互聯(lián)已為近1000家的企業(yè)提供了網(wǎng)站建設(shè)、域名、雅安服務(wù)器托管、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、運(yùn)城網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

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)

Next

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

VB.NET打印編程問題，打印機(jī)為激光打印機(jī)。

打印做得不多，以前做套打時(shí)發(fā)現(xiàn)，每臺(tái)打印機(jī)定位都不一樣，于是每臺(tái)機(jī)子都加了個(gè)偏移設(shè)置

我的做法在白紙上打上一標(biāo)尺，和一個(gè)上下邊距為2CM的交叉點(diǎn)，然后用標(biāo)尺量這2CM的偏移，設(shè)置完后，在這臺(tái)打印機(jī)打印時(shí)，就給紙張加個(gè)偏移量，打印就正常了?？赡苣愕脑蚝臀乙粯印?/p>

另外也想問你一下，你這個(gè)條碼是用什么打的。早先，我用立象的條碼打印機(jī)打不干膠，很簡(jiǎn)單，激光打沒用過，可能下次我也要用條碼打印，我也用VB.net。求教.

vb.net 制作行標(biāo)尺

左邊放一個(gè)專門放行數(shù)的listbox，根據(jù)右邊的行數(shù)自動(dòng)生成行號(hào)

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

接下來是兩個(gè)listbox的同步滾動(dòng)，可以參考這篇文章：

當(dāng)前名稱：關(guān)于vb.net標(biāo)尺的信息
新聞來源：http://jinyejixie.com/article26/doddojg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供做網(wǎng)站、移動(dòng)網(wǎng)站建設(shè)、小程序開發(fā)、關(guān)鍵詞優(yōu)化、品牌網(wǎng)站設(shè)計(jì)、外貿(mào)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)