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