VB.NET在简单组合框中输入数字字符（包含多位数且只能输入数字）按回车键后加入到组合框中
只能输入数字Z用以下程序段Selectcaseasc(e.keychar)case48to57,13caseelsee.handled=trueendselect...
只能输入数字Z用以下程序段
Select case asc(e.keychar)
case 48 to 57,13
case else
e.handled=true
end select 展开
Select case asc(e.keychar)
case 48 to 57,13
case else
e.handled=true
end select 展开
2个回答
展开全部
Private Sub ComboBox1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyUp
Select Case e.KeyValue
Case 48 To 57
Case Keys.Enter
ComboBox1.Items.Add(ComboBox1.Text)
Case Else
ComboBox1.Text = ComboBox1.Text.Remove(ComboBox1.Text.Length - 1, 1)
ComboBox1.SelectionStart = ComboBox1.Text.Length
e.Handled = True
End Select
End Sub
'--------------------
百度VB2010(VB.NET)吧建设发展中,需要你的支持和帮助!!!
快加入我们吧!发表你的疑问,经验,程序,分享..
让我们共同进步!
Select Case e.KeyValue
Case 48 To 57
Case Keys.Enter
ComboBox1.Items.Add(ComboBox1.Text)
Case Else
ComboBox1.Text = ComboBox1.Text.Remove(ComboBox1.Text.Length - 1, 1)
ComboBox1.SelectionStart = ComboBox1.Text.Length
e.Handled = True
End Select
End Sub
'--------------------
百度VB2010(VB.NET)吧建设发展中,需要你的支持和帮助!!!
快加入我们吧!发表你的疑问,经验,程序,分享..
让我们共同进步!
参考资料： http://tieba.baidu.com/f?kw=vb2010
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
