|
|
サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/12/26 21:43
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[カラー][基本コード][] *
* キーワード：RGB,カラーコードの変換,Color,vbRed,vbGreen,vbBlue *
***********************************************************************************
元質問：VB6.0 用の掲示板の ダイアログ.Colorの形式。 - チョコはやっぱり森直樹
08/01/13-17:24 No.11126 の質問に答えて作ってみました。
-----------------------------------------------------------------------------------
Option Explicit
Private Type RGBColor
R As Integer
G As Integer
B As Integer
End Type
Private Sub Command1_Click()
Dim myColor As Long
CommonDialog1.CancelError = True
On Error Resume Next
CommonDialog1.ShowColor
myColor = CommonDialog1.Color
If Err.Number = 0 Then
Dim myRGB As RGBColor
myRGB = LngColor2RGB(myColor)
Debug.Print myRGB.R, myRGB.G, myRGB.B
End If
End Sub
Private Function LngColor2RGB(ByVal lngColor As Long) As RGBColor
LngColor2RGB.R = lngColor And vbRed
LngColor2RGB.G = (lngColor And vbGreen) \ &H100
LngColor2RGB.B = (lngColor And vbBlue) \ &H10000
End Function
-----------------------------------------------------------------------------------
下記も参考にして下さい。
http://hanatyan.sakura.ne.jp/vbnetbbs/wforum.cgi?no=5171&reno=5168&oya=5152&mode=msgview&page=330
 |
|
