编程论坛 → VB6论坛

VB如何实现DataCombo控件输入功能失效

zhangl7325 发布于 2013-04-14 17:26， 548 次点击

VB如何实现DataCombo控件输入功能失效,只能在下拉菜单中选择。

3 回复

seafish0112013-04-14 18:53

把Combo1的Style属性设置为 2

chen35232013-04-14 21:29

Private Sub DataCombo1_Change()
   SQL = "SELECT * FROM 项目表 where   项目名称 like " & Chr(34) + "%" + Trim$(DataCombo1.Text) + "%" + Chr(34)
    = adCmdunknow
        Adodc3.RecordSource = SQL
        Adodc3.Refresh
       Set DataCombo1.RowSource = Adodc3
       DataCombo1.ListField = "项目名称"
End Sub
以上是我正在使用的语句

lowxiong2013-04-14 22:15

Private Sub DataCombo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0 '禁止一切键输入
End Sub

Private Sub DataCombo1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then Clipboard.Clear '禁止粘贴剪贴板内容
End Sub
'在DataCombo事件KeyPress和MouseDown加入上述代码后，就基本上无法人为改变DataCombo中内容了，只有选择其下拉内容