VisualFreeBASIC基础——单选和复选框的使用

    单选和复选框的属性基本类似，所以就一起介绍吧。

一、属性

1、Name（名称）

    和窗口一样，Name属性是类的实例化，我们可以用【名称.属性/方法】来使用控件。

2、Caption（标题）

    单选和复选框显示的标题。

3、Value（值）

    单选和复选框显示的值，选中为True，未选中为False。

4、Enabled（可用）、Visible（显示）

    使能和显示。

5、单选的GroupName属性

    单选是选中了一个后其他就不能选中，但有时候我们需要在同一个窗口使用几组单选框，则就需要用到分组属性。修改同一组的分组属性为相同，即可实现该组互斥而不影响其他组。

二、事件

1、BN_Clicked事件

Sub Form1_Check1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击

End Sub

Sub Form1_Option1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击

End Sub

    单选和复选框常用到的就是单击事件，可以在单击后判断控件状态等。

三、实例

    针对单选和复选框的属性，做一个示例。包括标题设置、使能，显示等。窗体设计如下：其中Option1，Option2的GroupName属性修改为OptionGroup1，Option3，Option4的GroupName属性修改为OptionGroup2。Option1、Option3的Value属性设置为True。

代码如下：

Sub Form1_WM_Create(hWndForm As hWnd,UserData As Integer)  '完成创建窗口及所有的控件后，此时窗口还未显示。注：自定义消息里 WM_Create 此时还未创建控件和初始赋值。
    Check1.ForeColor = &HFF00FF        '实际测试无法修改前景色
    Check1.Font = "幼圆,16,0,0,0,0"    '修改字体
    Option1.BackColor = &H00FF00       '修改背景色
End Sub

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    Check1.Caption = "测试标题"
    Option1.Caption = "组1_1"
    Option2.Caption = "组1_2"
    Option3.Caption = "组2_1"
    Option4.Caption = "组2_2"
End Sub

Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    Check1.Value = True 
End Sub

Sub Form1_Command3_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    if Check1.Enabled Then
        Check1.Enabled =False 
    Else
        Check1.Enabled=True
    End If
End Sub

Sub Form1_Command4_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)  '单击
    if Check1.Visible Then
        Check1.Visible =False 
    Else
        Check1.Visible=True
    End If
End Sub

运行效果：

完整例子：

https://github.com/rainheart311/VisualFreeBASIC/tree/master/CheckBox