投稿日 | : 2005/03/10(Thu) 10:33 |
投稿者 | : ダンボ |
URL | : |
タイトル | : 【解決】ビット操作で納得いかないことが |
\演算子を使うと正しく行きました。やはり四捨五入だったのかな。
Dim R As Integer, G As Integer, B As Integer
B = (Label1.BackColor \ &H10000) And &HFF
G = (Label1.BackColor \ &H100) And &HFF
R = Label1.BackColor And &HFF