※ 引述《wtchao (一條長圍巾)》之銘言： : ※ 引述《stary (........)》之銘言： : : 我一開始還以為是卡卡很悶 -_- : me2 : and 又是clifflu發表的 : 我以為有八掛了 借問一下，又是vb的問題 我寫一個程式，主要把圖叫到picture box 中 再一點一點的抓顏色 如底下, 因為主要是要取得一個圓內的灰階值的加總 ------------------------------------------------------------------------ For I = 0 To IntWidth Step 1 For J = 0 To IntHeigh Step 1 If ((((I - X) ^ 2 + (J - Y) ^ 2) ^ 0.5) <= Ridual) And ((((I - X) ^ 2 + (J - Y) ^ 2) ^ 0.5) > Ridual - 125) Then num = num + 1 Color1 = Picture1.Point(I, J) R = Color1 And &HFF& G = (Color1 And &HFF00&) \ &H100 B = (Color1 And &HFF0000) \ &H10000 Color2 = (R * 76 / 255 + G * 150 / 255 + B * 29 / 255) + Color2 If (R * 76 / 255 + G * 150 / 255 + B * 29 / 255) > 200 Then Color3 = Color3 + 1 Picture1.PSet (I, J), RGB(255, 0, 0) End If End If Next J Next I --------------------------------------------------------------------------- 我想問一下，因為這種方法所能讀的圖完全受限於螢幕解析度 太大的就不行了 有方法可以直接在記憶體中做，不用叫到picture box上嗎 -- 能愛一個人是幸福的，為她付出，看著她快樂就好，心中喜怒哀樂只為她 能堅持一個人也是幸福的，不論如何，心中，只認定她是一生中的伴侶 當愛的人與堅持的人相同，那是最大的幸福，可以相愛相伴到此生的盡頭，一世無悔 當這分別是兩個人時，我只能選擇堅持，因為承諾像奈何橋，一過就回不去了，只能 一輩子遵守；而愛的人，我只好為她付出，看著她幸福，看著她快樂，這，雖然無奈 我相信，無奈的終點，就是習慣。 --

※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.52.210