dim bmp as new bitmap(width,height)dim g as graphics=graphics.fromimage(bmp)g.drawlines(pen.blue,20,20,100,20)backgroundimage=bmp
寧蒗網(wǎng)站建設(shè)公司創(chuàng)新互聯(lián)公司,寧蒗網(wǎng)站設(shè)計(jì)制作,有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為寧蒗1000多家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\外貿(mào)網(wǎng)站建設(shè)要多少錢,請找那個(gè)售后服務(wù)好的寧蒗做網(wǎ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)的位置,繪制直線。
代碼寫起來可能比較麻煩,給你個(gè)思路,就是用GraphicsPath來繪制,然后通過繪制目標(biāo)的鼠標(biāo)移動事件來獲取當(dāng)前鼠標(biāo)在繪制目標(biāo)中的實(shí)際位置,再通過GraphicsPath的IsVisible()方法來確認(rèn)鼠標(biāo)是否包含在GraphicsPath中。
DrawLine直線比較容易處理,只要得到Line的坐標(biāo)點(diǎn),然后比較當(dāng)前鼠標(biāo)坐標(biāo)就好。
標(biāo)題名稱:vbnet窗口畫直線,vb畫直線代碼
標(biāo)題URL:http://chinadenli.net/article38/dseodsp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供營銷型網(wǎng)站建設(shè)、靜態(tài)網(wǎng)站、小程序開發(fā)、響應(yīng)式網(wǎng)站、手機(jī)網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)