【VB开源代码栏目提醒】:网学会员在VB开源代码频道为大家收集整理了9.3.2.frm提供大家参考,希望对大家有所帮助!
VERSION 5.00
Begin VB.Form Form4
Caption = "Form4"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form4"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text1
Height = 855
Left = 1560
TabIndex = 0
Text = "Text1"
Top = 600
Width = 2175
End
End
Attribute VB_Name = "Form4"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Text1_GotFocus()
MsgBox "该文本框内只能输入数组"
End Sub
Private Sub Text1_LostFocus()
Dim a As Integer
If IsNumeric(Text1.Text) = False Then
'类型判断函数
a = MsgBox("错误!输入了非数字", vbCritical, "错误")
End If
End Sub
上一篇:
9.2.3.frm
下一篇:
asp论文:浅论ASP在多媒体网页课件制作中的应用