combo 控件的一个属性设置问题

txxb 发布于 2014-11-29 19:01， 779 次点击

如何让combo.text只读，不能修改，又能在下拉框里选择？
style=2时第一个text就没了，,,locked=true又没法选择了。

11 回复

lianyicq2014-12-01 09:30

combo1.style 设为2

Private Sub Form_Load()
Combo1.List(0) = "000"
Combo1.List(1) = "111"
Combo1.List(2) = "222"
Combo1.Text = Combo1.List(0)
End Sub

[ 本帖最后由 lianyicq 于 2014-12-1 09:35 编辑 ]

zhengang10262014-12-01 14:06

可以用2楼的法子，也可在设计时直接在List属性里写进001、002、003等数据，输入时按住Ctrl再回车。

[ 本帖最后由 zhengang1026 于 2014-12-1 14:09 编辑 ]

txxb2014-12-01 14:44

还可以，就是 Combo1.Text=“字符” 不行

lianyicq2014-12-01 15:01

回复 4 楼 txxb

不能用字符?你试试.难道COMBO下拉里不能显示"湖南山东四川..."?只有数字让我们挑.
.text是只读属性.在list()中选取对应项

[ 本帖最后由 lianyicq 于 2014-12-1 15:09 编辑 ]

zhengang10262014-12-01 15:26

当然可以选择字符，其实001、002、003等也是字符啊

txxb2014-12-01 17:10

combo1.style 设为2

Private Sub Form_Load()
Combo1.List(0) = "000"
Combo1.List(1) = "111"
Combo1.List(2) = "222"
Combo1.Text = "请选择"
End Sub
这样不行。

lianyicq2014-12-01 17:23

回复 7 楼 txxb

这样是不行，除非
combo1.list(3)="请选择"
在后续判断具体选哪行的时候，再用代码处理选择为“请选择”的情况，比如说弹出msgbox

zhengang10262014-12-01 17:33

可在combo 控件上方加一个Label，将Label的Caption属性改为：请选择。就行了

#10

xzlxzlxzl2014-12-01 20:15

也用代码控制,在change事件中加

Private Sub Combo1_Change()
Combo1 = "请选择"
End Sub

#11

txxb2014-12-01 22:58

以下是引用xzlxzlxzl在2014-12-1 20:15:41的发言：

也用代码控制,在change事件中加

Private Sub Combo1_Change()
Combo1 = "请选择"
End Sub

好像没用

#12

xzlxzlxzl2014-12-02 00:37

回复 11 楼 txxb

怎么会没用？你不是要求不能键盘改变吗？该代码是当你想通过键盘输入或粘贴选项改变combo内容时，都固定显示为“请选择”，如果是选择下拉列表内容则会显示你选择的，好像你想要的就是这个吧