VB2010で、クリックした部分のカラー名を取得したいのですが、どなた

質問

VB2010で、クリックした部分のカラー名を取得したいのですが、どなたかご存知ないでしょうか。

以下のコードで、赤色をクリックしたらColorID(1)を取得したいのですがうまくいきません。
どなたか教えていただけませんでしょうか。
よろしくお願いします。

Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
Dim Bmp1 As Bitmap
Bmp1 = New Bitmap(CType(Me.PictureBox1.Image, Bitmap))
Dim BmpColor As Color
Dim X, Y As Long
BmpColor = Bmp1.GetPixel(X, Y)
ColorID(1) = Color.Red
ColorID(2) = Color.Orange
ColorID(3) = Color.Yellow
ColorID(4) = Color.GreenYellow
ColorID(5) = Color.Green
ColorID(6) = Color.Blue
ColorID(7) = Color.Purple
ColorID(8) = Color.ForestGreen
ColorID(9) = Color.MediumSlateBlue
ColorID(10) = Color.SkyBlue
Dim i As Integer
For i = 1 To 10
If BmpColor.R = ColorID(i).R And BmpColor.G = ColorID(i).G And BmpColor.B = ColorID(i).B Then
MsgBox(i)
End If
Next

ピクチャーボックスにビットマップで複数の折れ線グラフを描画しています。
クリックした系列の色を取得するのに困っています。

回答No.2

cotae_bb · ベストアンサー

色名を取得したいということでしたか、失礼しました。

↓このように変更すれば取得できるようです。
前の回答では"255,255,255,255"でしたが、
これだと"White"と表示されます。

Private Sub PictureBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
　　Dim bmp As Bitmap = New Bitmap(Me.PictureBox1.Image)

　　Dim col As Color = Nothing

　　col = bmp.GetPixel(e.X, e.Y)
　　col = ColorTranslator.FromHtml("0x" & col.Name)

　　MsgBox(col.Name)

End Sub

Name値でARGBが帰ってくるのでそれに0xを付加することでカラーコードのように扱えるようです。
Aはなくてもいいかもれません。

参考にしたURLを貼っておきます
http://www.atmarkit.co.jp/fdotnet/dotnettips/239colorconv/colorconv.html

お礼

度々ご回答ありがとうございます。
ばっちりです！助かりました。

回答No.1

cotae_bb

>Dim X, Y As Long
これ初期化されていませんが実際のプログラムでは初期化されていますか？

とりあえずこんな感じで色が取得できましたので、
後の処理はddtqpさんの処理でもできますね

Public Class Form1
　　'ロードイベント
　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　'ビットマップ割り当て
　　　　PictureBox1.Image = New Bitmap(PictureBox1.Size.Width, PictureBox1.Size.Height)
　　　　'初期化
　　　　Graphics.FromImage(PictureBox1.Image).Clear(Color.White)
　　End Sub

　　Private Sub PictureBox1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseClick
　　　　'取得
　　　　Dim bmp As Bitmap = New Bitmap(Me.PictureBox1.Image)
　　　　Dim col As Color = Nothing

　　　　'クリックしたピクセルの色情報を取得
　　　　col = bmp.GetPixel(e.X, e.Y)

　　　　'ARGB値を表示
　　　　MsgBox(String.Format("{0},{1},{2},{3}", col.A, col.R, col.G, col.B))
　　　　'自分がテストした時は"255,255,255,255"と表示されましたよ

　　End Sub
End Class

↓MicroSoftが画像処理に関するページを用意してくれていますね～
http://msdn.microsoft.com/ja-jp/academic/cc998604.aspx

こちらはPictureBoxの使い方とかです。.NET関係はだいたい載ってます。便利ですね
http://dobon.net/vb/dotnet/graphics/pictureboximageanddrawimage.html

お礼

回答ありがとうございます。
すみません。質問の仕方が悪かったです。

クリックした部分のカラー名を取得したいのです。
クリックすると、メッセージボックスに「color.red」と表示させることは出来ないでしょうか。
ご存知でしたら教えてください。
よろしくお願いいたします。