奇怪,弄了半天不知怎么回事,高手指点.

aight 2008-04-05 12:07:06
很简单的一个小程序,我的问题是这样的:
我有一个文本框text1,用来输入身份证号,还有一个按钮command1,用来判断身份证号的位数是不是18位的.
command单击事件代码如下:

Private Sub Command1_Click()
Dim number As String

number = Text1.Text '从文本框输入的数字
If Len(number) <> 18 Then
MsgBox "您输入的身份证位数不符合位数!", vbOKOnly + vbExclamation, "提示"
Call Text1_GotFocus '调用Text1_GotFocus
End If
End Sub

在Text1_GotFocus事件中代码如下:

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub

我想问的是,当身份证不符合位数时,为什么没有调用Text1_GotFoucs()啊?
高手指教.谢谢.
...全文
68 点赞 收藏 8
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
aight 2008-04-06
[Quote=引用 2 楼 cbm666 的回复:]

Private Sub Text1_GotFocus()
Text1.SelStart = Len(Text1)
End Sub
[/Quote]
text1_GotFocus事件这么写的话,没法选中文本框中已输入的数字,只会把光标移到数字的最后,不是楼上是否是这意思.
回复
zdingyun 2008-04-05
GotFocus 事件
当对象获得焦点时产生该事件;获得焦点可以通过诸如 TAB 切换,或单击对象之类的用户动作,或在代码中用 SetFocus 方法改变焦点来实现。

Private Sub Command1_Click()
Dim number As String
number = Text1.Text '从文本框输入的数字
If Len(number) <> 18 Then
MsgBox "您输入的身份证位数不符合位数!", vbOKOnly + vbExclamation, "提示"
Text1.SetFocus
Call Text1_GotFocus '调用Text1_GotFocus
End If
End Sub

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub
回复
游子 2008-04-05
学习 我通常用笨方法来实现。
回复
舉杯邀明月 2008-04-05
[Quote=引用 5 楼 forbearORfolie 的回复:]
跑过~
[/Quote]


想跑?抓回来!不坦白交待谁也别想跑 ^_^
回复
forbearORfolie 2008-04-05
跑过~
回复
.........................
回复
舉杯邀明月 2008-04-05
Private Sub Command1_Click()
Dim number As String
number = Text1.Text '从文本框输入的数字
If Len(number) <> 18 Then
MsgBox "您输入的身份证位数不符合位数!", vbOKOnly + vbExclamation, "提示"
Text1.SetFocus
'Call Text1_GotFocus '不用去调用别的了
Text1.SelStart = 0
Text1.SelLength = 127 '随便用一下比较大的数就行了.
End If
End Sub

回复
cbm6666 2008-04-05
Private Sub Command1_Click()
Dim number As String
number = Trim(Text1.Text) '从文本框输入的数字
If Len(number) <> 18 Then
MsgBox "您输入的身份证位数不符合位数!", vbOKOnly + vbExclamation, "提示"
Text1.SetFocus
End If
End Sub

Private Sub Text1_GotFocus()
Text1.SelStart = Len(Text1)
End Sub

回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-04-05 12:07
社区公告
暂无公告