1樓:匿名使用者
圓管是旋轉拉伸。各位大蝦路過幫幫忙啊~~~拜託拜託~~
vb區域找色
2樓:網友
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找色為什麼會很卡啊
3樓:徃倳凊
按鍵精靈不是vb寫的! vb本身速度就不快,頃纖再用api對螢幕進行查色,速度肯定不行,而且大量使用api查色,速度本身就不行,vb是單執行緒的 查詢區域大,時間就長,就會卡 api引數問題,別說你不會,很多人都高拿不會 引數是用來標示出你要做什麼的,不是中文標的,雖然說前面的引數名是英文的, 用久了才能瞭解是幹什麼用的, 比如雀念仿說public const wm_lbuttondown = h201,這是簡寫,不過已經很清楚了 w是window,m是message,lbuttondown是left button down, 連起來就是 窗體訊息_左鍵按下, 也就是滑鼠左鍵按下的訊息,用久就會,你以為一下就學會,那還用你學嗎?求。
vb找色知道的進
4樓:網友
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就是。
所以在比較的時候你就看這個與數與你設定的值是不是一致。
5樓:網友
自已慢慢學習下吧,這種難問題。求人不如求已。
vb找色怪題
6樓:璩友易
ntmpcolor = getpixel(getdc(0), i, j)
這句改下:開頭用個dc變數放getdc(0)(就是迴圈外部,這樣可以減少getdc的使用次數)
hdc = getdc(0)
然後用ntmpcolor = getpixel(hdc, i, j)
其他的,你自己這麼寫程式肯定效率會低,你最好再查閱下api手冊看看有沒類似功能的api函式。
至於沒找到的話,程式要把色塊點部迴圈完才能退出函式。
如果沒有退出,那就說明迴圈結束條件有問題,但是看了你的**好像沒問題的,迴圈結束條件是對的。
7樓:網友
for i = to +
for j = to +
應為:for i = to
for j = to
right=left + width,left+right就大了另外getdc不應該放在迴圈過程當中,而且**中沒有使用releasedc,這樣會產生很大的記憶體洩漏。
螢幕找色用getpixel效率是很低的,要想快,應該使用getdibits函式。
看看我空間裡這段**吧:
全屏(1280*1024)找出某一顏色的全部畫素點只需要秒不到。
vb用getdibits找色
8樓:網友
「不知道為什麼返回的座標和實際座標不一樣,有哪位路過的老師能指教一下麼?」
單就這個問題來說,dib點陣圖通常是自下而上的,原點為圖形的左下角,這與通常以螢幕或視窗的左上角為原點的習慣有所不同,使用時把y值加個負號就行了。
9樓:網友
小fisher - 高階魔法師 七級說的有理。
10樓:閃閃小毛頭
自己檢查一下。
宣告bmp緩衝區,函式返回。
dim bmpbuf() as byte, aret() as long
redim aret(0) as longaret(0) = 0
11樓:網友
api 對**和裝置場景的操作是以畫素為單位的,是否是你傳入的引數單位不對?
vb如何全屏找色
12樓:呆兔子
很詳細的全螢幕找色**。
13樓:網友
全屏找色???不明白你意思。
14樓:匿名使用者
螢幕找色這個該怎麼實現。
另外就是vb的找圖功能。
VB的程式開發步驟?VB程式設計一般的四個步驟
visual basic vb 程式開發的步驟如下 設計 制定程式的流程圖和介面設計。建立專案 使用 visual studio 建立一個新的 visual basic 專案,並選擇合適的模板。編寫 編寫程式的主要 邏輯。測試 使用 visual studio 內建的除錯功能對程式進行測試,確保程式...
vb給其他程式的文字框傳送字元似乎是sendmasseg
比如下面的 private sub command1 click dim data as byte dim i,h1,h2 as long i 0 data strconv 測試 vbfromunicode h1 findwindow vbnullstring,form1 h2 findwindow...
一道VB的題目,求助大家啊
a 1 為什麼是假?boolean變數初始值是假。進行了for迴圈後怎麼判斷的?判斷如果a i 為假,則賦值為真,並且退出for迴圈。j 為什麼是1?j 是integer型變數,初始值是0 j 0 1 1 程式中,第一次判斷if a i false then,在之前未曾對a i 進行過賦值,所示系統...