此题在VB栏目中也有,可用下面代码可实现:
Private Sub Form_Load()
Text1= ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii Asc("9") Then
KeyAscii = 0 '取消字符。
Beep '发出错误信号。
End If
End Sub
输入含小数数字,代码如下:
Private Sub Form_Load()
Text1 = ""
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii Asc("。
") Or KeyAscii > Asc("9") And KeyAscii <> Asc("。") Or KeyAscii = Asc("/") Then
KeyAscii = 0 '取消字符。
End If
End Sub
。
答：Option Explicit Dim a As Integer Private Sub Text1_KeyPress(KeyAscii As Integer)...详情>>
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
