VB指定區域塗色

時間 2022-03-11 23:20:12

1樓:匿名使用者

private type pointapix as long

y as long

end type

private declare function polygon lib "gdi32" (byval hdc as long, lppoint as pointapi, byval ncount as long) as long

private sub command1_click()dim a(3) as pointapi

a(0).x = 40

a(0).y = 40

a(1).x = 240

a(1).y = 40

a(2).x = 180

a(2).y = 240

a(3).x = 10

a(3).y = 240

autoredraw = true

me.fillcolor = vbred

me.fillstyle = vbsolidpolygon me.hdc, a(0), 4refresh

end sub

2樓:網海1書生

private declare function extfloodfill lib "gdi32" (byval hdc as long, byval x as long, byval y as long, byval crcolor as long, byval wfilltype as long) as long

private sub command1_click()me.fillcolor = vbblueme.fillstyle = 0

me.line (150, 150)-(3900, 150)me.line -(4200, 1500)me.line -(450, 1500)

me.line -(150, 150)

extfloodfill me.hdc, 11, 11, vbblack, 0

end sub

me不是函式,是指當前窗體這個「物件」!

【高分急求】vb如何實現指定區域截圖

3樓:流雲行水

用api函式bitblt,具體用法網上搜下,比較簡單

如果不想用api可用兩個picture控制項,再利用paintpicture方法實現

4樓:匿名使用者

picture1.paintpicture image1, 0, 0, shape1.width, shape1.

height, shape1.left, shape1.top, shape1.

width, shape1.height

vb中怎麼實現多邊形區域填充

excel vb** 根據變數選中指定區域

5樓:魚木混豬喲

定義變數

a = worksheets("sheet1").range("a65535").end(xlup).row

b = worksheets("sheet1").range("a1").end(xltoright).column

那麼用以下語句,即可選中a2到行為a,列為b的區域

range("a2", cells(a, b)).select

selection.copy

此例中用到了關於range 的相關知識:

excel range物件可能是vba**中最常用的物件,range物件可以是某一單元格、某一單元格區域、某一行、某一列、或者是多個連續或非連續的區域組成的區域。

上例中就用到了range中的開始和結果的兩個單元格,來表示乙個連續的區域,就像選中第乙個單元格,然後按住shift,再選擇最後乙個單元格效果是一樣的。

具體表示式為:range(起始單元格,結束單元格)

6樓:匿名使用者

a = worksheets("sheet1").range("a65535").end(xlup).row

b = worksheets("sheet1").range("a1").end(xltoright).column

range("a2", cells(a, b)).selectselection.copy

7樓:餘餘

**私信給你。怕被吞掉!

vb設定指定某段時間執行程式,VB設定指定某段時間執行程式

玫瑰為你盛開 在窗體1里加個timer private sub form load timer1.enabled truetimer1.interval 100end sub private sub timer1 timer if hour now 7 or hour now 23 then for...

區域流量是什麼意思啊?指定區域流量是指哪裡?

區域流量指在限制區域才能使用的流量。以河南的中國移動校園區域流量為例,該區域流量僅限在河南省內大中專及以上指定院校校園內使用,且僅能在號碼歸屬地使用,不可跨地市使用,且為省內4g單模流量 非4g手機無法使用 中國移動校園區域流量為校園流量包所有,校園流量包開通 退訂均立即生效。開通成功後 費用按天按...

怎麼用SAI在指定區域上色不會出格

diao丶絲 很多小夥伴在玩繪畫這一塊,一個非常難的門檻就是上色,很多人以為上色就是用軟體裡的色彩功能隨意的去噴,事實不是這樣的,這是幼兒園小孩子的玩法,不是我們成年人的玩法,上色裡面其實有很多的學問,就是有很多的講究。大家如果想學習如何上色,怎麼玩轉原畫板繪插畫,可以聽一位高手的課程,他每天晚上都...