vb找色怪題,vb找色 如何實現 求大神幫忙

2023-05-18 16:20:13 字數 1889 閱讀 8339

1樓:璩友易

ntmpcolor = getpixel(getdc(0), i, j)

這句改下:開頭用個dc變數放getdc(0)(就是迴圈外部,這樣可以減少getdc的使用次數)

hdc = getdc(0)

然後用ntmpcolor = getpixel(hdc, i, j)

其他的,你自己這麼寫程式肯定效率會低,你最好再查閱下api手冊看看有沒類似功能的api函式。

至於沒找到的話,程式要把色塊點部迴圈完才能退出函式。

如果沒有退出,那就說明迴圈結束條件有問題,但是看了你的**好像沒問題的,迴圈結束條件是對的。

2樓:網友

for i = to +

for j = to +

應為:for i = to

for j = to

right=left + width,left+right就大了。

另外getdc不應該放在迴圈過程當中,而且**中沒有使用releasedc,這樣會產生很大的記憶體洩漏。

螢幕找色用getpixel效率是很低的,要想快,應該使用getdibits函式。

看看我空間裡這段**吧:

全屏(1280*1024)找出某一顏色的全部畫素點只需要秒不到。

vb找色 如何實現 求大神幫忙

3樓:匿名使用者

逐點找吧,,y) 這個就是顏色值,對比以後就可以知道座標了,對於大圖來說,這個效率不是太高。

4樓:公益學程式設計

同問。這問題我也納悶。我想做遊戲輔助工具用。

vb區域找色

5樓:網友

b = getpixel(a, 270, 280) '座標,這裡只找了一個點的顏色。

private sub timer1_timer()dim a as long, b as long, x1%,y1%for y1=0 to 768

for x1=0 to 1024

a = getdc(0)

b = getpixel(a, x1, y1) '座標if b = 14215660 then '十進位制原色(把16進位制轉換成10進位制)

sendkeys ""按下鍵盤1鍵。

end if

call releasedc(0, a) '釋放next

nextend sub

vb找色知道的進

6樓:匿名使用者

picdata(?,dwx, dwy) 是一個三維陣列。

代表32位顏色影象。

picdata(0,dwx,dwy)表示?000000picdata(1,dwx,dwy)表示00??0000picdata(2,dwx,dwy)表示0000??

00picdata(3,dwx,dwy)表示000000??

其中picdata(3,dwx,dwy)不用理它。

前面三個就是?就像你的00ff00就是

所以在比較的時候你就看這個與數與你設定的值是不是一致。

7樓:匿名使用者

自已慢慢學習下吧,這種難問題。求人不如求已。

vb如何全屏找色

8樓:呆兔子

很詳細的全螢幕找色**。

9樓:匿名使用者

全屏找色???不明白你意思。

10樓:匿名使用者

螢幕找色這個該怎麼實現。

另外就是vb的找圖功能。

VB程式設計題。。求助,vb程式設計題求解!!!謝謝各位了!!

我已經做好了,郵箱?發給你!vb程式設計題求解!謝謝各位了!vb程式設計題。求助!做了一個指標式動態時鐘,是以系統時間顯示的,有時 分 秒的指標,也有數字顯示。但是沒有你說的校時功能,因為是系統時間,不需要校時。秒針的角度轉動同時改變分針和時針的角度轉動,並且最小轉動角度為6度 一圈是360度,符合...

vb的程式題

dim h,m,s as integerprivate sub form load h 1 m 0 s 0 label1.caption 01 00 00 timer1.interval 1000end sub private sub timer1 timer s s 1 if s 0 then s...

一道簡單vb,一道簡單VB題

loop until 的意思是滿足後面的條件就停止。你看,你寫的條件是a 5,此時a肯定大於等於5了。所以就結束迴圈,也就是a 6 你可以換個寫法。a 5for x 1 to 10 a a 1 print a next 這樣就是迴圈輸出 5,6,7,8,9,共10個數字。因為輸出的是最後的結果,把輸...