iCentroView CheckCombo Control |
  
|
iCentroView CheckCombo Control |
|
iCentroView CheckCombo Control 为多行可选择的下拉框控件
u添加控件
在工具栏上点击插入activex控件，选择iCentroView CheckCombo Control，点击确定，如下图：
添加到组态画面后如下图：
在组态画面中右键点击该控件，选择“特殊属性”，可以进行控件属性配置，如下图：
➢列表项：下拉框中的预设列表，每一行以回车分隔
➢背景色：下拉列表的背景颜色
➢字体：下拉列表的字体
➢字体颜色：下拉列表的字体颜色
iCentroView CheckCombo Control为下拉框控件，有以下方法：
„AddString
增加一行
例如：cvcheckcombo1.AddString("你好")
„DeleteString
删除一行
例如：cvcheckcombo1.DeleteString(1)'参数为要删除的行的序号，从0开始
„ResetContent
清除所有行
例如：cvcheckcombo1.ResetContent
„SetCheck
设置某行是否选中
例如：
'参数1为要设置的行的序号（从0开始）
'参数2为是否选择，1为选择，0为取消选择
cvcheckcombo1.SetCheck 0,1
„GetCheck
获取某行是否选中
例如：
'参数为要获取的行的序号（从0开始）
'返回值为是否已选择，1为已选择，0为未选择
a = cvcheckcombo1.GetCheck(2)
„SelectAll
获取某行是否选中
例如：
'参数为是否选择，1为全选，0为全不选
cvcheckcombo1.SelectAll 1
„ComboList
设置或获取复合框列表项，以逗号分隔
例如：
'获取复合框列表项，以逗号分隔
Sub Rectangle9_OnClick()
MsgBox cvcheckcombo1.ComboList
End Sub
'设置复合框列表项，以逗号分隔
Sub Rectangle10_OnClick()
a = cvcheckcombo1.ComboList
b = a&","&"abcde"
cvcheckcombo1.ComboList = b
End Sub
„ComboColor
设置或获取复合框背景色
例如：
'获取背景色及设置背景色
Sub Rectangle11_OnClick()
MsgBox cvcheckcombo1.ComboColor
cvcheckcombo1.ComboColor = 128
End Sub
„ComboColorFont
设置或获取复合框字体色
例如：
'获取字体色及设置字体色
Sub Rectangle12_OnClick()
MsgBox cvcheckcombo1.ComboColorFont
cvcheckcombo1.ComboColorFont = 0
End Sub
„ComboColorFont
设置或获取复合框字体
例如：
'获取字体色及设置字体
Sub Rectangle12_OnClick()
MsgBox cvcheckcombo1.ComboFont
cvcheckcombo1.ComboFont = "宋体;0;20;1;1;1;"
End Sub
„GetCmbText
获取当前复合框内容
例如：
'获取当前复合框内容
Sub Rectangle26_OnClick()
MsgBox cvcheckcombo1.GetCmbText
End Sub
„EnableCmb
可设置cvcheckcombo控件的enable属性
例如：
cvcheckcombo1.EnableCmb 0 '使其灰化，不可编辑
cvcheckcombo1.EnableCmb 1 '恢复
„GetLineText
可获得cvcheckcombo控件的某一项的内容
例如：
’获取第二行的值，从0开始
Sub Rectangle28_OnClick()
a = cvcheckcombo1.GetLineText(2)
MsgBox a
End Sub
„SetCmbSort
可设置cvcheckcombo控件的排序策略，
已经排序过，在设为不排序不会回到排序前，只有新增的不进行排序
例如：
cvcheckcombo1.SetCmbSort 1 '排序
cvcheckcombo1.SetCmbSort 0 '不排序