口袋社区-Poke The BBS - Powered by Discuz! Board

标题: [转载] VB-实现打印预览的源码 [打印本页]

作者: 最美我中文 时间: 2007-8-19 19:19 标题: VB-实现打印预览的源码

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 33 Then '小于33的Ascii代码属于回车空格等操作
If KeyAscii >= 48 And KeyAscii <= 57 Then '判断是否是0到9的Ascii代码值'
Else
KeyAscii = 0 '把KeyAscii设为0就是取消输入'
MsgBox "请输入数字!"
End If
End If
End Sub

欢迎光临口袋社区-Poke The BBS (https://poketb.com/bbs/)