C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[5]: カラー変数を6桁の16進数に変換する方法

分類:[.NET 全般]　

Dim Color0 As Color = Color.FromArgb(CInt(frm.NumericUpDown1.Value), CInt(frm.NumericUpDown2.Value), CInt(frm.NumericUpDown3.Value))

で定義されたカラー変数を6桁の16進数に変換したいのですが、

Dim CL as String = Color0.R.ToString("X2") & Color0.G.ToString("X2") & Color0.B.ToString("X2")

というようにするしかないですか？
もっと簡単にできる方法があれば教えてください。

■No90295 (SSS さん) に返信
> Dim Color0 As Color = Color.FromArgb(CInt(frm.NumericUpDown1.Value), CInt(frm.NumericUpDown2.Value), CInt(frm.NumericUpDown3.Value))
この方法だと、システムカラー(SystemColors.WindowText 等)は作れませんが、それは良いのでしょうか。
システムカラーやアルファ値も含めて正確に文字列化したいなら、
ColorConverter クラスの ConvertToInvariantString / ConvertFromInvariantString メソッドを使えます。

> で定義されたカラー変数を6桁の16進数に変換したいのですが、
RGB 順なら、ColorTranslator.ToWin32 とか。

Public Class Form1
　Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　PropertyGrid1.PropertySort = PropertySort.Alphabetical
　　PropertyGrid1.SelectedObject = Label1
　End Sub

　Private Sub Label1_BackColorChanged(sender As Object, e As EventArgs) Handles Label1.BackColorChanged
　　'Label2.Text = ColorTranslator.ToHtml(Label1.BackColor)
　　'Label3.Text = ColorTranslator.ToOle(Label1.BackColor).ToString("X8")
　　Label4.Text = ColorTranslator.ToWin32(Label1.BackColor).ToString("X6")
　End Sub
End Class

ありがとうございます。

試してみたのですが、
　　Label4.Text = ColorTranslator.ToWin32(Label1.BackColor).ToString("X6")
これだと、
BGR
という順番になってしまうのですが。
　'Label2.Text = ColorTranslator.ToHtml(Label1.BackColor)

だと
RGBという順番になりますが、
文字列の先頭に#が入ってしまいます。

あと、システムカラーを作る必要はありません。

2019/02/23(Sat) 14:37:01 編集(投稿者)

■No90297 (SSS さん) に返信
> BGR
> という順番になってしまうのですが。

入れ替えるのを忘れてました。こうですかね。

Label5.Text = IPAddress.HostToNetworkOrder(ColorTranslator.ToWin32(Label1.BackColor)).ToString("X8").Substring(0, 6)

かえって面倒ですね。あとはこうかな。

Label6.Text = Color.FromArgb(0, Label1.BackColor).ToArgb().ToString("X6")

Label7.Text = Label1.BackColor.ToArgb().ToString("X8").Substring(2)

いずれにせよ読みにくいので、Color 型に拡張メソッドを設けた方が良いかも。

> 　'Label2.Text = ColorTranslator.ToHtml(Label1.BackColor)
> RGBという順番になりますが、
> 文字列の先頭に#が入ってしまいます。
HTML や CSS 等で使われる表現なので、"red" 等の文字列になることもありますね。

シンプルな方法はないのですね。
どうもありがとうございました！！！

■No90300 (SSS さん) に返信
> シンプルな方法はないのですね。
> どうもありがとうございました！！！

あまり変わらないかもしれませんが
Dim CL = ""
With Color0
  CL = $"{ .R:X2}{ .G:X2}{ .B:X2}"
End With

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[5]: カラー変数を6桁の16進数に変換する方法

過去ログには書き込み不可