VB中怎么實現(xiàn)多邊形區(qū)域填充

Const ALTERNATE = 1

成都創(chuàng)新互聯(lián)公司主要從事做網(wǎng)站、成都網(wǎng)站制作、網(wǎng)頁設(shè)計、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)忻城,十載網(wǎng)站建設(shè)經(jīng)驗,價格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):18982081108

Const WINDING = 2

Private Type POINTAPI

X As Long

Y As Long

End Type

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long

Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Declare Function PtInRegion Lib "gdi32" (ByVal hRgn As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long

Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long

Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long

Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Dim hRegion As Long

Dim hBrush As Long

Dim pic1 As New StdPicture

Private Sub Command1_Click()

Call FillRgn(Me.hdc, hRegion, hBrush)

End Sub

Private Sub Form_Load()

Dim p(8) As POINTAPI

Me.ScaleMode = 3

p(0).X = 100: p(0).Y = 100

p(1).X = 150: p(1).Y = 70

p(2).X = 110: p(2).Y = 70

p(3).X = 110: p(3).Y = 30

p(4).X = 50: p(4).Y = 30

p(5).X = 50: p(5).Y = 70

p(6).X = 30: p(6).Y = 70

p(7).X = 30: p(7).Y = 85

p(8).X = 85: p(8).Y = 85

hRegion = CreatePolygonRgn(p(0), 9, ALTERNATE)

hBrush = CreateSolidBrush(RGB(255, 0, 0))

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If PtInRegion(hRegion, X, Y) Then

Debug.Print "In 在多邊形區(qū)域"

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

DeleteObject hRegion

DeleteObject hBrush

End Sub

我要用VB 對已經(jīng)在picture里畫好的由兩個大小不一樣的矩形組成的多邊形進(jìn)行填充。

可以用line填充，像這樣：

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Click()

sp = Me.DrawWidth * 15

For i = 0 To 1000 Step sp

Line (i, 0)-(i, 1000), vbRed

DoEvents

Sleep 20

Next

End Sub

調(diào)整drawwidth可以設(shè)置填充快慢，比如大半徑為r1,小半徑r2,那么r2的填充線寬度為drawwidth*r2/r1

vb怎么畫多邊形，輸入坐標(biāo)，畫出這些點圍起來的圖形，怎么做啊

Line 方法

在對象上畫直線和矩形。

語法

object.Line [Step] (x1,1) [Step] (x2,y2), [color], [B][F]

Line 方法的語法有以下對象限定符和部分：

部分 描述

object 可選的。 對象表達(dá)式，其值為“應(yīng)用于”列表中的對象。如果object 省略，具有焦點 的 窗體作為object。

Step 可選的。關(guān)鍵字，指定起點坐標(biāo)，它們相對于由CurrentX 和 CurrentY 屬性提供的當(dāng)前圖形位置。

(x1, y1) 可選的。Single （單精度浮點數(shù)），直線或矩形的起點坐標(biāo)。ScaleMode 屬性決定了使用的度量單位。如果省略，線起始于由 CurrentX 和 CurrentY 指示的位置。

Step 可選的。關(guān)鍵字，指定相對于線的起點的終點坐標(biāo)。

(x2, y2) 必需的。Single （單精度浮點數(shù)），直線或矩形的終點坐標(biāo)。

color 可選的。Long （長整型數(shù)），畫線時用的 RGB 顏色。如果它被省略，則使用ForeColor 屬性值。可用 RGB 函數(shù)或 QBColor 函數(shù)指定顏色。

B 可選的。如果包括，則利用對角坐標(biāo)畫出矩形。

F 可選的。如果使用了B 選項，則 F 選項規(guī)定矩形以矩形邊框的顏色填充。不能不用 B 而用 F。如果不用 F 光用 B，則矩形用當(dāng)前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值為 transparent。

說明

畫聯(lián)結(jié)的線時，前一條線的終點就是后一條線的起點。

線的寬度取決于DrawWidth 屬性值。在背景上畫線和矩形的方法取決于 DrawMode 和 DrawStyle 屬性值。

執(zhí)行Line 方法時， CurrentX 和 CurrentY 屬性被參數(shù)設(shè)置為終點。

這個方法不能用于With...End With 語句塊。

網(wǎng)頁題目：vb.net多邊形填充 vb求多邊形面積
分享鏈接：http://jinyejixie.com/article22/dopppjc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供全網(wǎng)營銷推廣、網(wǎng)站營銷、服務(wù)器托管、微信小程序、響應(yīng)式網(wǎng)站、搜索引擎優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)