VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2005/03/10(Thu) 10:08 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： |
| タイトル | ： ビット操作で納得いかないことが |
お早うございます。
色操作をしたいので各色を下記で取り出そうとしたが、正しく取り出せない場合があります。
突き詰めていくと、デバッグウィンドウで試してみると
?hex(&H7F8180 / &H100)の結果が7F82
?hex(&H7F817F / &H100)の結果が7F81
でした。上段の結果が納得いかないです。
切り捨てられたはずの最後のビットがその上のビットに影響している。四捨五入？そうとしか考えられない。
皆さんだったら、どうコーディングしますか？
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
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）