VisualFreeBASIC基础——单选和复选框的使用
程序员文章站
2022-05-09 10:56:20
...
单选和复选框的属性基本类似,所以就一起介绍吧。
一、属性
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
下一篇: HIVE数据的导入与导出详解