サンプル投稿用掲示板　　VB2005 〜 用トップページ　　VB6.0 用 トップページ Long 値表記のカラー値をRGB表記のカラー値に変換(VB6.0) ( No.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

　[スレッド一覧へ]　[親スレッドへ]