１．HTM カラーコード及び RGB カラーコード相互変換(SampleNo.211)

１．HTM カラーコード及び RGB カラーコード相互変換 ２． ３． ４． ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．HTM カラーコード及び RGB カラーコード相互変換

Option Explicit　　 Private Sub Command1_Click() 　　If Mid$(Text1.Text, 1, 1) = "#" Then 　　　　Dim myRGB(2) As String 　　　　'実際はもっと厳密にエラー処理をして下さい。(0〜255の範囲になるようにとか) 　　　　If Len(Text1.Text) <> 7 Then 　　　　　　Beep 　　　　　　Exit Sub 　　　　End If 　　　　'RGB に該当する値を取り出す。 　　　　myRGB(0) = Mid$(Text1.Text, 2, 2) 　　　　myRGB(1) = Mid$(Text1.Text, 4, 2) 　　　　myRGB(2) = Mid$(Text1.Text, 6, 2) 　　　　'なにも処理しない。 　　　　Text2.Text = "#" & myRGB(0) & myRGB(1) & myRGB(2) 　　　　'RGB それぞれを16進 から 10進に変換 　　　　Text3.Text = CByte("&H" & myRGB(0)) & "," & CByte("&H" & myRGB(1)) & "," & CByte("&H" & myRGB(2)) 　　　　'RGB形式からLong 形式に変換 　　　　Text4.Text = RGB(CByte("&H" & myRGB(0)), CByte("&H" & myRGB(1)), CByte("&H" & myRGB(2))) 　　　　'RGB 形式でバックカラーを表示 　　　　Text4.BackColor = RGB(CByte("&H" & myRGB(0)), CByte("&H" & myRGB(1)), CByte("&H" & myRGB(2))) 　　　　Exit Sub 　　Else 　　　　Dim myRGB1() As String 　　　　myRGB1 = Split(Text1.Text, ",") 　　　　'実際は、もう少し厳密にエラー処理をして下さい(0〜255の範囲になるようにとか) 　　　　If Len(myRGB1(0)) = 0 Or Len(myRGB1(0)) = 0 Or Len(myRGB1(0)) = 0 Then 　　　　　　Beep 　　　　　　Exit Sub 　　　　End If 　　　　'RGB 形式から HTM 形式に変換 　　　　Text2.Text = "#" & Hex$(myRGB1(0)) & Hex$(myRGB1(1)) & Hex$(myRGB1(2)) 　　　　'なにも処理しない 　　　　Text3.Text = myRGB1(0) & "," & myRGB1(1) & "," & myRGB1(2) 　　　　'RGB形式からLong 形式に変換 　　　　Text4.Text = RGB(myRGB1(0), myRGB1(1), myRGB1(2)) 　　　　'RGB 形式でバックカラーを表示 　　　　Text4.BackColor = RGB(myRGB1(0), myRGB1(1), myRGB1(2)) 　　　　Exit Sub 　　End If End Sub 実行結果及び使用コントロールと配置図

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

HTML カラーコードからRGB カラーコードに変換　RGB カラーコードからHTML カラーコードに変換 　RGB カラーコードからVBのロング形式のカラーコードに変換 VB の色情報 　VB のカラーコード RGB カラーコードを16進数に変換　16進数カラーコードを10進数のカラーコードに変換 カラーコードの相互変換　カラーコード変換