VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

リンク元へ戻ります。 色(カラー)関係のメニュー
1.HTM カラーコード及び RGB カラーコード相互変換
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.


1.HTM カラーコード及び RGB カラーコード相互変換(SampleNo.211)
1.HTM カラーコード及び RGB カラーコード相互変換
2.
3.
4.
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option :[Option Explicit]
参照設定:追加なし
使用 API:
なし
その他 :
    :
このページのトップへ移動します。 1.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

実行結果及び使用コントロールと配置図


このページのトップへ移動します。 2.


このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
HTML カラーコードからRGB カラーコードに変換 RGB カラーコードからHTML カラーコードに変換  RGB カラーコードからVBのロング形式のカラーコードに変換
VB の色情報  VB のカラーコード RGB カラーコードを16進数に変換 16進数カラーコードを10進数のカラーコードに変換
カラーコードの相互変換 カラーコード変換


このページのトップへ移動します。