主婦と.NETと犬のぶろぐ

奥様 と プログラム と お犬様 の 楽しい日常

目次

Blog 利用状況

ニュース

書庫

日記カテゴリ

ColorDialog(System.Windows.Forms.ColorDialog)

ColorDialog は、そのまんま Google 検索すると死ぬほど情報が出てきます。
なので、自分的に忘れそうな事をメモっておきました。
ColorDialog クラスは、CommonDialog クラスを継承しています。

■参考文献
ColorDialog クラス
CommonDialog クラス

■実行画像
フォームです。何のヘンテツもありません。
ColorDialog フォーム

Button1 押下時の ColorDialog です。赤がデフォルトで選択されています。
ColorDialog Button1

Button2 押下時の ColorDialog です。プログラムで指定したカスタムカラーが[作成した色]に表示されています。
ColorDialog Button2

Button3 押下時の ColorDialog です。
ColorDialog Button3

Button4 押下時の ColorDialog です。ヘルプボタンを押下時にメッセージがでます。
ColorDialog Button4

Public Class ColorDialogTest
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '' カラーピッカーのようなものを表示する。
        Me.ColorDialog1.FullOpen = True
        ' デフォルトの色を選択する
        Me.ColorDialog1.Color = System.Drawing.Color.Red
        ' ダイアログを開く
        Dim result As DialogResult = Me.ColorDialog1.ShowDialog()
        If result = Windows.Forms.DialogResult.OK Then
            Me.Label1.BackColor = Me.ColorDialog1.Color
            Me.Label1.Text = "R:" & Me.ColorDialog1.Color.R.ToString() & _
                             " G:" & Me.ColorDialog1.Color.G.ToString() & _
                             " B:" & Me.ColorDialog1.Color.B.ToString()
        End If
    End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click '' これ以降、プログラム内で ColorDialog を作成する。 Using myColorDialog As ColorDialog = New ColorDialog ' CustomColor を設定 myColorDialog.CustomColors = New Integer() {&H6699, &HFF9933} Dim result As DialogResult = myColorDialog.ShowDialog() If result = Windows.Forms.DialogResult.OK Then Me.Label2.BackColor = myColorDialog.Color End If End Using End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click '' 純色のみ表示する Using myColorDialog As ColorDialog = New ColorDialog myColorDialog.SolidColorOnly = True Dim result As DialogResult = myColorDialog.ShowDialog() If result = Windows.Forms.DialogResult.OK Then Me.Label3.BackColor = myColorDialog.Color End If End Using End Sub
Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click '' AnyColor Using myColorDialog As ColorDialog = New ColorDialog myColorDialog.AllowFullOpen = False myColorDialog.AnyColor = True myColorDialog.SolidColorOnly = False myColorDialog.ShowHelp = True ' ヘルプボタンが押されたときのイベントを登録する AddHandler myColorDialog.HelpRequest, _ New EventHandler(AddressOf Me.ColorDialogHelpRequested) Dim result As DialogResult = myColorDialog.ShowDialog() If result = Windows.Forms.DialogResult.OK Then Me.Label4.BackColor = myColorDialog.Color End If End Using End Sub
Private Sub ColorDialogHelpRequested(ByVal sender As Object, ByVal e As System.EventArgs) ' sender は ColorDialog オブジェクトになります。 MessageBox.Show("好きな色を選んでください") End Sub End Class

投稿日時 : 2006年12月13日 10:43

Feedback

# rlJPylIgmwrjZ 2014/08/04 3:52 http://crorkz.com/

NUjZdQ Great article.Much thanks again. Keep writing.

# nVoBzPCErEdRO 2014/09/06 23:02 http://superandroides.com/2014/06/tubemate-v-2-2-3

I have fun with, cause I found exactly what I was taking a look for. You've ended my 4 day long hunt! God Bless you man. Have a great day. Bye

# sUeCVgWyGwxxLXpbXwF 2014/09/09 18:05 http://Viralfusion.com

you might have a great blog here! would you wish to make some invite posts on my blog?

# eIiHrgiHfmMkPcY 2014/09/15 4:36 http://munservis.mirniy.ru/user/bpcoeaebpoieuc/

Very good blog post.Much thanks again. Awesome.

タイトル  
名前  
Url
コメント