privatevoid 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);
}
privatevoid 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";
}
elseif (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";
}
}
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
control.Checked = False
control.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("d:\\mail16a.ico", True), FarPoint.Win.RenderStyle.Normal)
End SubPrivateSub control_CheckChanged(ByVal sender AsObject, 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"EndIfEnd Sub