控件名称 xInput.xInput
属性
ButtonStyle 按钮类型(文本式、浏览式、列表式)
Borderline 文本框折边框类型(正常、无边框、上下边框、左上边框、底边框)
BorderColor 边框色
ForeColor 文本前景色
formatStr 格式化符串
ButtonColorAuto 按钮背景或前景随边框颜色自动变化
ButtonColorDegree 自动变化的常数,负数是加深,正数是变淺
ButtonBackColor 按钮背景色要ButtonColorAuto=0||=1时才有效
ButtonForeColor 按钮前景色跟ButtonColorAuto=0||=2时才有效
ButtonWidth 按钮宽度
MouseDownColor 按下时的按钮边框色
IsDateType 日期格式文本
IsSmartUI 显示SmartUI相似的外观
n_IsSquare 显示按钮是否为方形
Locked 是否只读
Text 当前文本
方法
Value 当文本式类型时取值是跟text一样点取Value即可 (列表时取值 value(i) 赋值value(i)=0)
ListCount 列表数量
ItemData 列表值 与 value不一样value存的是Key值
ShowList 显示下拉列表 True为设置选择,false不设选择
HideList 隐藏下拉列表
ListSel 选择列表第几个
AddItem 添加列表
RemoveItem 删除列表
Bind
参数如下:
objMyApp As Object,
objPAZUorDictionary As Object,
Optional ByVal tbl_ As String = "ac",
Optional ByVal strFields_ As String = vbNullString,
Optional ByVal strSQLCondition_ As String = vbNullString
前两个必选参数
作用为列表添加数据,输入时将自动查找显示下拉框
事件
主要两个事件
EditChange 编辑时触发
Browse 单击按钮时触发