4 回答

TA貢獻(xiàn)1876條經(jīng)驗(yàn) 獲得超5個(gè)贊
POINTAPI
類型定義
Type POINTAPI
x As Long
y As Long
End Type
說明
POINTAPI結(jié)構(gòu)對(duì)應(yīng)于windows的POINT結(jié)構(gòu),在vb中定義為POINTAPI,從而避免與vb的Point關(guān)鍵字沖突,用于描敘一個(gè)位置(即屏幕點(diǎn)),與RECT結(jié)構(gòu)相同,x和y字段的單位取決于準(zhǔn)備使用的對(duì)象與api函數(shù)
API閱覽器選擇類型后輸入:POINTAPI 即可得到類型結(jié)構(gòu)聲明

TA貢獻(xiàn)2039條經(jīng)驗(yàn) 獲得超8個(gè)贊
Public Declare Function WindowFromPoint Lib "user32" Alias _
"WindowFromPoint" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

TA貢獻(xiàn)1785條經(jīng)驗(yàn) 獲得超4個(gè)贊
Point 方法
按照長(zhǎng)整數(shù),返回在 Form 或 PictureBox 上所指定磅的紅-綠-藍(lán) (RGB) 顏色。不支持命名參數(shù)。
語法
object.Point(x, y)
示例代碼,可將窗體上載入圖片的指定磅的顏色取出紅,綠,藍(lán)成份
1234567891011 | Private Sub Form_MouseMove(Button As Integer , Shift As Integer , X As Single , Y As Single ) Dim sd As Long Dim sdr As Byte Dim sdg As Byte Dim sdb As Byte sd = Point(X, Y) sdr = (Val(sd) Mod 65536) Mod 256 'Red sdg = (Val(sd) Mod 65536) \ 256 'Green sdb = Val(sd) \ 65536 'Blue Shape1.FillColor = RGB(sdr, sdg, sdb) End Sub |
添加回答
舉報(bào)