畫直線

創(chuàng)新互聯(lián)建站服務(wù)項(xiàng)目包括吉州網(wǎng)站建設(shè)、吉州網(wǎng)站制作、吉州網(wǎng)頁制作以及吉州網(wǎng)絡(luò)營銷策劃等。多年來,我們專注于互聯(lián)網(wǎng)行業(yè),利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等,向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案,吉州網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前,我們服務(wù)的客戶以成都為中心已經(jīng)輻射到吉州省份的部分城市,未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任!
為了在兩個(gè)坐標(biāo)點(diǎn)之間畫一條直線,可使用 Line 方法的簡單形式,其語法如下:
[object.]Line [(x1, y1)]–(x2, y2)[, color]
其中 Object 是可選擇的;若省略,此方法將在代碼所連接的窗體(當(dāng)前窗體)上畫線。第一對(duì)坐標(biāo)也是可選的。就所有的坐標(biāo)值來說,x 和 y 參數(shù)都既可以是整數(shù),也可以是分?jǐn)?shù)。例如,下列語句可在窗體上畫一條斜線。
Line (500, 500)–(2000, 2000)
Visual Basic 所畫出的一條直線,要包括第一個(gè)端點(diǎn),而不是最后一個(gè)端點(diǎn)。這種行為在從點(diǎn)到點(diǎn)畫封閉曲線時(shí)是有用的。為了畫最后一個(gè)端點(diǎn),應(yīng)使用這種語法:
PSet [Step] (0, 0)[, color]
第一對(duì)坐標(biāo) (x1, y1) 是可選的。如果省略這些坐標(biāo),將把該對(duì)象的 x,y 當(dāng)前位置(畫圖坐標(biāo))作為端點(diǎn)。當(dāng)前位置是由 CurrentX 和 CurrentY 屬性指定的,然而在其它情況它會(huì)等于以前的圖形方法或 Print 方法所畫最后點(diǎn)的位置。如果以前沒有使用過圖形方法或 Print 方法,或沒有設(shè)置 CurrentX 和 CurrentY 屬性,則缺省位置為對(duì)象的左上角。
例如,以下語句通過三點(diǎn)連接畫出一個(gè)三角形。
'設(shè)置起點(diǎn)的 x 坐標(biāo)。
CurrentX = 1500
'設(shè)置起點(diǎn)的 y 坐標(biāo)。
CurrentY = 500
'向起點(diǎn)的右下方畫一直線。
Line -(3000, 2000)
'向當(dāng)前點(diǎn)的左方畫一直線。
Line -(1500, 2000)
'向右上方畫一直線到起點(diǎn)。
Line -(1500, 500)
Blanker 應(yīng)用程序使用 Line 方法創(chuàng)建出了一些有趣的圖案樣式。為了看到這些圖案,可從“選項(xiàng)”菜單中,選定“Crossfire”,然后選定“Start Demo”按鈕,即可看到。
Step 關(guān)鍵字
PSet、Line、和 Circle 方法使用以下語法可指定一個(gè)或多個(gè)點(diǎn):
(x, y)
可在每個(gè)點(diǎn)之前加上 Step 關(guān)鍵字,用來指定要畫出的點(diǎn),是相對(duì)最后畫出點(diǎn)的位置。Visual Basic 要將 x 和 y 的值加到最后所畫的點(diǎn)上。例如,下邊這條語句:
Line (100, 200)–(150, 250)
等價(jià)于:
Line (100, 200)–Step(50, 50)
在許多情況下,Step 關(guān)鍵字可免除持續(xù)不斷地記錄最后所畫點(diǎn)位置的負(fù)擔(dān)。經(jīng)常最為關(guān)心的可能是兩點(diǎn)的相對(duì)位置,而不是它們的絕對(duì)位置。
使用顏色參數(shù)
為了改變直線的顏色,應(yīng)將可選的 color 參數(shù)與圖形方法一起使用。例如,下述語句將畫一條深藍(lán)色的直線:
Line (500, 500)–(2000, 2000), RGB(0, 0, 255)
如果省略了 color 參數(shù),將使用在其上畫線的對(duì)象的 ForeColor 屬性,來決定直線的顏色。
RND來設(shè)置隨機(jī)值
1、繪制線表后肯定要先找到這兩個(gè)控件。
2、然后在這里先畫上X和Y兩軸線。
4、接下來,用標(biāo)簽輸入這兩個(gè)標(biāo)志。
4、在使用這個(gè)形狀按鈕繪制。
5、一個(gè)個(gè)畫過去線條就可以了。
注意事項(xiàng):
VB可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫,或者輕松的創(chuàng)建Active?X控件,用于高效生成類型安全和面向?qū)ο蟮膽?yīng)用程序。
For?I?=?10?To?20
Me.Line?(500,?100?*?I?+?I?+?100)-(1900,?100?*?I?+?I?*?5?+?100),?RGB(255,?0,?0),?BF
Next
用循環(huán),畫線的時(shí)候把線的寬度用變量逐漸加大。
代碼寫起來可能比較麻煩,給你個(gè)思路,就是用GraphicsPath來繪制,然后通過繪制目標(biāo)的鼠標(biāo)移動(dòng)事件來獲取當(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)就好。
繪圖是系統(tǒng)內(nèi)部操作的,不需要懂原理
方法就在那里,只有會(huì)用和不會(huì)用,你的代碼告訴它繪制,它就會(huì)繪制。它(方法)究竟如何去繪制的并不是重點(diǎn),反正它會(huì)繪制。
drawline(繪線)方法很簡單,第一個(gè)參數(shù)是pen,它確定線條的顏色、寬度和樣式。第二、第三個(gè)參數(shù)都是point類型,確定兩個(gè)點(diǎn)的位置,繪制直線。
Dim b As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(b)
g.Clear(Color.White)
Dim p As New Pen(Color.Black)
p.EndCap = Drawing2D.LineCap.ArrowAnchor
g.DrawLine(p, 30, PictureBox1.Height - 30, 30, 30)
g.DrawLine(p, 30, PictureBox1.Height - 30, PictureBox1.Width - 30, PictureBox1.Height - 30)
Dim i As Integer
Dim bs As New SolidBrush(Color.Green)
Dim po As New Point
po.X = 0
po.Y = PictureBox1.Height - 35
For i = 700 To 1000 Step 50
g.DrawString(i, Me.Font, bs, po.X, po.Y)
g.DrawLine(p, po.X + 28, po.Y + 5, po.X + 30, po.Y + 5)
po.Y -= (PictureBox1.Height - 100) / 6
Next
po.X = 30
po.Y = PictureBox1.Height - 30
For i = 0 To 40 Step 5
g.DrawString(i, Me.Font, bs, po.X, po.Y + 5)
g.DrawLine(p, po.X, po.Y + 2, po.X, po.Y)
po.X += (PictureBox1.Width - 100) / 8
Next
PictureBox1.Image = b
當(dāng)前標(biāo)題:包含vb.net窗體四周畫線的詞條
文章地址:http://chinadenli.net/article38/dsgehpp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供建站公司、網(wǎng)站導(dǎo)航、小程序開發(fā)、網(wǎng)站策劃、網(wǎng)站維護(hù)、微信公眾號(hà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)