在combobox中禁止某些字符输入，为什么不成功？

[LEONARD0824]

我在key_press中写了如下代码：
为了只能输入数字
Dim KeyAscii As Short = Asc(eventArgs.KeyChar)
If KeyAscii <> 8 And (KeyAscii < 46 Or KeyAscii > 57) Then
Beep()
KeyAscii = 0
End If

If KeyAscii = 0 Then
eventArgs.Handled = True
End If

[Montaque]

同意 Latitude(Henry）说的，
我以前做树状节点的时候就是那样做的，以便修改节点的值。设置一下visible属性，赋值等。
在textbox里面就好处理了。
下面的示例创建一个 TextBox 控件。keypressed 方法使用 KeyChar 属性检查是否按了 ENTER 键。如果按了 ENTER 键，则 Handled 属性设置为 true，表示此事件已处理。

[Visual Basic]
Imports System
Imports System.Windows.Forms

Public Class Form1
Inherits Form

Public Sub New()
Dim tb As New TextBox()
Me.Controls.Add(tb)
AddHandler tb.KeyPress, AddressOf keypressed
End Sub 'New

Sub keypressed(ByVal o As [Object], ByVal e As KeyPressEventArgs)
If e.KeyChar = Microsoft.VisualBasic.ChrW(13) Then
e.Handled = True
End If
End Sub 'keypressed

Public Shared Sub Main()
Application.Run(New Form1())
End Sub 'Main
End Class 'Form1


---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey

[gaodz]

要只能输入数字可以用以下方法：
private sub Combo1_TextChanged(....)
if not isnumeric(combo1.text) then
beep
combo1.text=combo1.text.SubString(0,len(combo1.text)-1)
end if
sub

[LEONARD0824]

不知道有没有更好的方法？
gaodz 写的方法我是过了，类型不匹配
以上各位大虾说的方法，我觉得太烦，
因为我有将近100个控件，做100个text还不累死
关于截取的方法不可取，万一我在字符串中间输入字符呢？

我用了一个全局变量 gtext
如果key_down触发，gtext=comb.text
在key_press中，if not isnumeric comb.text=gtext
这样也还不坏

[Latitude]

combobox做不到。你可能得自己做一个组合式操作了。其实也简单，你在combobox的文字输入部分上面叠上一个textbox，写一下combobox的下拉框选择响应等事件，就能完成你的要求了。

[edreamy]

将KeyAscii = 0改为ComboBox1.Text = Microsoft.VisualBasic.Left(ComboBox1.Text, ComboBox1.Text.Length - 1)试试，要实现的效果就是不让那些约束以外的字符输入到ComboBox中去，所以应该从字符串中截取前一部分子字符串。