text控件数据类型问题 if isnumeric(text1.text) then msgbox "yes!" 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 那就在if int(text1)<text1 then msgbox "error " end if if isnumeric(text1.text) and Instr(text1,1,".") then msgbox "yes!" Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii <48 Or KeyAscii > 57) And KeyAscii <> 8 Then '8: BackSpace KeyAscii = 0 EndEnd Sub wince 中如何获得某个目录下所有文件的文件名 赚分... 一个奇怪的问题!!! 请问各位高手,怎么在VB下实现图象的无级缩放????急用,多谢! datagrid控件里,我想把第一行的行高改高一点,好让"标题"可以分两行显示。怎么改啊? 用VB做CS结构,效果怎么样?望各位提出高见。 高分求助关于打包 关于如何快速引用系统图标传说中的系统imagelist/shgetfileinfo?欢迎学者们来集思广益 怎样取得数据库的名称 我想一个人开发一个ERP系统,是不是太异想天开、太自不量力了? 那位大哥、大姐有installshield打包制作程序?送分!!!! 窗体的大小问题?
if int(text1)<text1 then
msgbox "error "
end if
If (KeyAscii <48 Or KeyAscii > 57) And KeyAscii <> 8 Then '8: BackSpace
KeyAscii = 0
End
End Sub