colorpickerform.vb

来自「讲解visual studio的应用」· VB 代码 · 共 21 行

Public Class ColorPickerForm
    Private Sub BtnPickColor_Click(ByVal sender As System.Object, _
                            ByVal e As System.EventArgs) Handles BtnPickColor.Click
        Me.ColorDialog1.Color = Me.PnlColor.BackColor
        If Me.ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.PnlColor.BackColor = Me.ColorDialog1.Color
        End If
    End Sub

    Public ReadOnly Property SelectedColor() As Drawing.Color
        Get
            Return Me.PnlColor.BackColor
        End Get
    End Property

    Private Sub BtnAcceptColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAcceptColor.Click
        Me.DialogResult = Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub
End Class