如何通過(guò)vb.net WinForm窗體上畫(huà)線條或弧線，讓用戶可以用鼠標(biāo)捕捉（選中）已畫(huà)的線條。

代碼寫(xiě)起來(lái)可能比較麻煩，給你個(gè)思路，就是用GraphicsPath來(lái)繪制，然后通過(guò)繪制目標(biāo)的鼠標(biāo)移動(dòng)事件來(lái)獲取當(dāng)前鼠標(biāo)在繪制目標(biāo)中的實(shí)際位置，再通過(guò)GraphicsPath的IsVisible()方法來(lái)確認(rèn)鼠標(biāo)是否包含在GraphicsPath中。

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),芮城企業(yè)網(wǎng)站建設(shè),芮城品牌網(wǎng)站建設(shè),網(wǎng)站定制,芮城網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷(xiāo),網(wǎng)絡(luò)優(yōu)化,芮城網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專(zhuān)業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

DrawLine直線比較容易處理，只要得到Line的坐標(biāo)點(diǎn)，然后比較當(dāng)前鼠標(biāo)坐標(biāo)就好。

VB.NET 畫(huà)直線 問(wèn)題 怎樣讓直線置頂(就是不被其它控件覆蓋) 100分(希望詳細(xì)些)如較麻煩，會(huì)追加分?jǐn)?shù)

這個(gè)必須用控件的方法解決，VB6有個(gè)Line控件很容易解決這個(gè)問(wèn)題，但是VB.NET沒(méi)有了，幸好微軟也想到了這個(gè)缺陷，提供免費(fèi)的Visual Basic PowerPacks控件箱，其中有Line控件。

Visual Basic PowerPacks下載地址：

使用 LineShape 控件繪制直線：

VB 畫(huà)直線

畫(huà)直線

為了在兩個(gè)坐標(biāo)點(diǎn)之間畫(huà)一條直線，可使用 Line 方法的簡(jiǎn)單形式，其語(yǔ)法如下：

[object.]Line [(x1, y1)]–(x2, y2)[, color]

其中 Object 是可選擇的；若省略，此方法將在代碼所連接的窗體（當(dāng)前窗體）上畫(huà)線。第一對(duì)坐標(biāo)也是可選的。就所有的坐標(biāo)值來(lái)說(shuō)，x 和 y 參數(shù)都既可以是整數(shù)，也可以是分?jǐn)?shù)。例如，下列語(yǔ)句可在窗體上畫(huà)一條斜線。

Line (500, 500)–(2000, 2000)

Visual Basic 所畫(huà)出的一條直線，要包括第一個(gè)端點(diǎn)，而不是最后一個(gè)端點(diǎn)。這種行為在從點(diǎn)到點(diǎn)畫(huà)封閉曲線時(shí)是有用的。為了畫(huà)最后一個(gè)端點(diǎn)，應(yīng)使用這種語(yǔ)法：

PSet [Step] (0, 0)[, color]

第一對(duì)坐標(biāo) (x1, y1) 是可選的。如果省略這些坐標(biāo)，將把該對(duì)象的 x,y 當(dāng)前位置（畫(huà)圖坐標(biāo)）作為端點(diǎn)。當(dāng)前位置是由 CurrentX 和 CurrentY 屬性指定的，然而在其它情況它會(huì)等于以前的圖形方法或 Print 方法所畫(huà)最后點(diǎn)的位置。如果以前沒(méi)有使用過(guò)圖形方法或 Print 方法，或沒(méi)有設(shè)置 CurrentX 和 CurrentY 屬性，則缺省位置為對(duì)象的左上角。

例如，以下語(yǔ)句通過(guò)三點(diǎn)連接畫(huà)出一個(gè)三角形。

'設(shè)置起點(diǎn)的 x 坐標(biāo)。

CurrentX = 1500

'設(shè)置起點(diǎn)的 y 坐標(biāo)。

CurrentY = 500

'向起點(diǎn)的右下方畫(huà)一直線。

Line -(3000, 2000)

'向當(dāng)前點(diǎn)的左方畫(huà)一直線。

Line -(1500, 2000)

'向右上方畫(huà)一直線到起點(diǎn)。

Line -(1500, 500)

Blanker 應(yīng)用程序使用 Line 方法創(chuàng)建出了一些有趣的圖案樣式。為了看到這些圖案，可從“選項(xiàng)”菜單中，選定“Crossfire”，然后選定“Start Demo”按鈕，即可看到。

Step 關(guān)鍵字

PSet、Line、和 Circle 方法使用以下語(yǔ)法可指定一個(gè)或多個(gè)點(diǎn)：

(x, y)

可在每個(gè)點(diǎn)之前加上 Step 關(guān)鍵字，用來(lái)指定要畫(huà)出的點(diǎn)，是相對(duì)最后畫(huà)出點(diǎn)的位置。Visual Basic 要將 x 和 y 的值加到最后所畫(huà)的點(diǎn)上。例如，下邊這條語(yǔ)句：

Line (100, 200)–(150, 250)

等價(jià)于：

Line (100, 200)–Step(50, 50)

在許多情況下，Step 關(guān)鍵字可免除持續(xù)不斷地記錄最后所畫(huà)點(diǎn)位置的負(fù)擔(dān)。經(jīng)常最為關(guān)心的可能是兩點(diǎn)的相對(duì)位置，而不是它們的絕對(duì)位置。

使用顏色參數(shù)

為了改變直線的顏色，應(yīng)將可選的 color 參數(shù)與圖形方法一起使用。例如，下述語(yǔ)句將畫(huà)一條深藍(lán)色的直線：

Line (500, 500)–(2000, 2000), RGB(0, 0, 255)

如果省略了 color 參數(shù)，將使用在其上畫(huà)線的對(duì)象的 ForeColor 屬性，來(lái)決定直線的顏色。

RND來(lái)設(shè)置隨機(jī)值

如何讓用戶在一個(gè)窗體或控件上可以隨意畫(huà)直線

ACCESS窗體主要是用來(lái)開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的，如果你想在窗體上畫(huà)線條的確不太給力。在VB窗體里劃線以坐標(biāo)為參數(shù)使用LINE方法非常方便，但是在OFFICE，ACCESS里的VBA

LINE方法(當(dāng)然需要使用坐標(biāo)參數(shù)，聯(lián)機(jī)說(shuō)明有詳細(xì)介紹）只能應(yīng)用于報(bào)表而不能應(yīng)用于窗體。

若要在ACCESS窗體里面劃線，我建議你使用下列兩種辦法：

1）如果你VB比較熟練，可用VB設(shè)計(jì)一個(gè)帶LINE方法的自定義ActiveX控件，然后再在ACCESS

VBA中引用該控件，之后將你的自定義控件添加到ACCESS窗體里面，你就可以使用那個(gè)ActiveX控件的LINE方法在該控件里繪圖劃線了；

2）使用ACCESS提供的內(nèi)置直線控件（Line）。

首先在ACCESS窗體里放置若干個(gè)Line控件（要用多少個(gè)就放置多少個(gè)）將Visible屬性設(shè)置為False,給不同用途的Line控件分別命名為：類(lèi)型加尾號(hào)，例如：X軸標(biāo)尺1，X軸標(biāo)尺2,...

斜線1，斜線2.....

直線1，直線2,......等等

以便以后可集中而不必為每一個(gè)控件壹壹設(shè)置屬性以提高效率，其它屬性暫時(shí)不理。

使用VBA語(yǔ)言設(shè)置Line控件的各種屬性在窗體里的特定位置畫(huà)線，例如：

畫(huà)斜線

with

斜線1

.Top=300

‘單位：緹

相當(dāng)于一個(gè)像素

567緹=1厘米

.LineSlant=False

'

確定線條左斜還是右斜

.Left=200

.width=800

.height=400

.visible=true

end

with

畫(huà)水平線

with

直線2

.Top=300

.Left=900

.width=350

.height=0

.visible=true

end

with

畫(huà)垂直線

with

直線3

.Top=300

.Left=900

.width=0

.height=300

.visible=true

end

with

直線的粗細(xì)

用BorderWidth屬性設(shè)置（取值范圍0-6，單位為磅）

直線的顏色

用Bordercolor屬性設(shè)置（例如取

vbBlue,vbGreen,vbRed

等等）

特別提醒一下，除了使用直線控件外，其實(shí)你還可以使用其它類(lèi)型的控件來(lái)畫(huà)圖，這要看你的想象力了。

只要你正確設(shè)置各種畫(huà)線控件的絕對(duì)和相對(duì)位置及各種屬性值，充分利用VBA的循環(huán)、判斷等語(yǔ)句相信你能夠在ACCESS窗體里畫(huà)出各種效果相當(dāng)不錯(cuò)的圖形，如果配合Timer甚至還能繪出動(dòng)畫(huà)效果！

具體的VBA實(shí)現(xiàn)代碼這里就不寫(xiě)了，祝你成功！

新聞名稱(chēng)：vb.net窗體上畫(huà)線 vb窗體設(shè)計(jì)添加菜單
網(wǎng)頁(yè)地址：http://chinadenli.net/article6/doeojig.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制網(wǎng)站、營(yíng)銷(xiāo)型網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、軟件開(kāi)發(fā)、網(wǎng)站維護(hù)、網(wǎng)站建設(shè)

廣告

聲明：本網(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í)需注明來(lái)源： 創(chuàng)新互聯(lián)