这是什么意思嘛?
你是想让ComboBox控件只允许输入数字吗?
讲详细点。
你是想让ComboBox控件只允许输入数字吗?
讲详细点。
解决方案 »
- 如何在表格的下拉框中动态添加数据?
- 如果获取在窗体上按的任意组合键?
- 求助:如何监视某一指定进程,例如QQ.已有思路,请高手再指点......
- checkbox控件数组的问题,代码出错,请高手帮忙纠正一下
- 困惑
- ???求助??关于退出的问题??
- VB中怎样设置分辩率
- vb保存大二进制数据到access中,大部分成功偶尔不成功。数据库文件比较小。请帮忙解决
- vb打包后,文件大得吓死人,怎么办?有位大侠说createinstall 好用,可是如何用,愿全部分数送上!!!
- 如何将ACCESS中的数据传递到一个已经设计好的EXCEL表中?
- 迷惑: 请问能否在IE的页面显示之前,提前动态的给其中的一些控件赋值?
- 水晶报表打印问题
If KeyAscii>=asc("1") And KeyAscii<=asc("0") Then
'
Else
KeyAscii=0
End If
End Sub
If KeyAscii>=asc("1") And KeyAscii<=asc("0") Then
'
Else
KeyAscii=0
End If
End Sub
If chr(KeyAscii) like "#" and KeyAscii<>8 Then
KeyAscii=0
End If
End Sub
If not chr(KeyAscii) like "#" and KeyAscii<>8 Then
KeyAscii=0
End If
End Sub
If KeyAscii>=asc("1") And KeyAscii<=asc("0") Or KeyAscii<>8 Then
'
Else
KeyAscii=0
End If
End Sub
Public Function ValiText(KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer
Dim ValidateList As String
Dim KeyOut As Integer
If Editable = True Then
ValidateList = UCase(ValidateString) & Chr(8)
Else
ValidateList = UCase(ValidateString)
End If
If InStr(1, ValidateList, UCase(Chr(KeyIn)), 1) > 0 Then
KeyOut = KeyIn
Else
KeyOut = 0
Beep
End If
ValiText = KeyOut
End FunctionPrivate Sub ComboBox_KeyPress(KeyAscii As Integer)
KeyAscii = ValiText(KeyAscii, "0123456789", True)
End Sub