在PictureBox的Paint事件里面寫:
我們提供的服務(wù)有:成都網(wǎng)站制作、成都做網(wǎng)站、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、大化ssl等。為近1000家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù),是有科學(xué)管理、有技術(shù)的大化網(wǎng)站制作公司
e.Graphics.DrawLine(Pens.Black, New Point(0, 0), New Point(50, 50)))
跟樓上的方法相比這個(gè)一般不會沒掉,樓上的方法在刷新的時(shí)候除非手動(dòng)重繪,不然就會沒掉
'把“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
繪圖是系統(tǒng)內(nèi)部操作的,不需要懂原理
方法就在那里,只有會用和不會用,你的代碼告訴它繪制,它就會繪制。它(方法)究竟如何去繪制的并不是重點(diǎn),反正它會繪制。
drawline(繪線)方法很簡單,第一個(gè)參數(shù)是pen,它確定線條的顏色、寬度和樣式。第二、第三個(gè)參數(shù)都是point類型,確定兩個(gè)點(diǎn)的位置,繪制直線。
畫直線是line
(x1,y1)-(x2,y2)
清除繪圖區(qū)是cls
當(dāng)然,這兩個(gè)方法前面都需要指明具體的對象啦,如Form1或者PictureBox1
不想整個(gè)重畫,最好用單色的背景,例如黑色,線條是白色的
用變量把線條的內(nèi)容備份
當(dāng)想改變線條的位置或者長度之前,先用存下來的變量以黑色重畫一次,覆蓋原來的白色線條
然后再畫新的白色線條,這種重畫方法比較節(jié)省資源
假如需要用花哨的背景或者圖片當(dāng)背景,也可以用局部重回的方式。
代碼就不提供了,只提供思路。
這個(gè)必須用控件的方法解決,VB6有個(gè)Line控件很容易解決這個(gè)問題,但是VB.NET沒有了,幸好微軟也想到了這個(gè)缺陷,提供免費(fèi)的Visual Basic PowerPacks控件箱,其中有Line控件。
Visual Basic PowerPacks下載地址:
使用 LineShape 控件繪制直線: