這個必須用控件的方法解決,VB6有個Line控件很容易解決這個問題,但是VB.NET沒有了,幸好微軟也想到了這個缺陷,提供免費的Visual Basic PowerPacks控件箱,其中有Line控件。
創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供思茅網(wǎng)站建設(shè)、思茅做網(wǎng)站、思茅網(wǎng)站設(shè)計、思茅網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、思茅企業(yè)網(wǎng)站模板建站服務(wù),10余年思茅做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
Visual Basic PowerPacks下載地址:
使用 LineShape 控件繪制直線:
Mutiline 屬性設(shè)置為 True
Size下的Heigh設(shè)置為1就是一條直線了
如果你的vb是vb2010及以上版本工具欄Visual Basic PowerPacks下的LineShape控件就是現(xiàn)成的直線控件
繪圖是系統(tǒng)內(nèi)部操作的,不需要懂原理
方法就在那里,只有會用和不會用,你的代碼告訴它繪制,它就會繪制。它(方法)究竟如何去繪制的并不是重點,反正它會繪制。
drawline(繪線)方法很簡單,第一個參數(shù)是pen,它確定線條的顏色、寬度和樣式。第二、第三個參數(shù)都是point類型,確定兩個點的位置,繪制直線。
'把“Dim graph As Graphics = Me.CreateGraphics”挪到“Button1_Click”事件內(nèi),調(diào)試過成功!
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim graph As Graphics = Me.CreateGraphics
Dim pen2 As Pen = New Pen(Color.Green, 3)
graph.DrawLine(pen2, 400, 400, 500, 200)
End Sub
End Class
不想整個重畫,最好用單色的背景,例如黑色,線條是白色的
用變量把線條的內(nèi)容備份
當(dāng)想改變線條的位置或者長度之前,先用存下來的變量以黑色重畫一次,覆蓋原來的白色線條
然后再畫新的白色線條,這種重畫方法比較節(jié)省資源
假如需要用花哨的背景或者圖片當(dāng)背景,也可以用局部重回的方式。
代碼就不提供了,只提供思路。