FarPoint.Win アセンブリ > FarPoint.Win 名前空間 > FpCheckBox クラス : CheckStateChanged イベント |
'宣言
Public Event CheckStateChanged As EventHandler
public event EventHandler CheckStateChanged
チェックボックスの状態を変更するには、CheckedプロパティまたはCheckStateプロパティを設定するか、チェックボックスをクリックします。
チェックの状態はCheckState列挙体の設定です。詳細については、Microsoft .NET FrameworkリファレンスのCheckState列挙体を参照してください。
private void Form1_Load(object sender, System.EventArgs e) { control.CheckState = CheckState.Unchecked; control.PictureAlignH=FarPoint.Win.HorizontalAlignment.Center; control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center; control.BackgroundImage = new FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", true), FarPoint.Win.RenderStyle.Normal); } private void control_CheckChanged(object sender, System.EventArgs e) { if (control.CheckState == CheckState.Checked) { control.BackgroundImage = new FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", true), FarPoint.Win.RenderStyle.Normal); control.PictureAlignH = FarPoint.Win.HorizontalAlignment.Center; control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center; control.TextTrue = "Mail's been checked"; } else if (control.CheckState == CheckState.Unchecked) { control.BackgroundImage = new FarPoint.Win.Picture(Image.FromFile("d:\\mail16b.ico", true), FarPoint.Win.RenderStyle.Normal); control.PictureAlignH = FarPoint.Win.HorizontalAlignment.Center; control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center; control.TextFalse = "Mail needs to be checked"; } else { control.CheckState = CheckState.Indeterminate; control.TextIndeterminate = "No mail today"; } }
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load control.Checked = False control.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", True), FarPoint.Win.RenderStyle.Normal) End Sub Private Sub control_CheckChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles control.CheckChanged If control.CheckState = CheckState.Checked Then control.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", True), FarPoint.Win.RenderStyle.Normal) control.PictureAlignH = FarPoint.Win.HorizontalAlignment.Center control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center control.TextTrue = "Mail's been checked" ElseIf control.CheckState = CheckState.Unchecked Then control.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("d:\\mail16b.ico", True), FarPoint.Win.RenderStyle.Normal) control.PictureAlignH = FarPoint.Win.HorizontalAlignment.Center control.PictureAlignV = FarPoint.Win.VerticalAlignment.Center control.TextFalse = "Mail needs to be checked" Else control.CheckState = CheckState.Indeterminate control.TextIndeterminate = "No mail today" End If End Sub