如何判断是否是数字及如何重获焦点？

Question

如何判断是否是数字及如何重获焦点？
谢谢老人指点

Answer 1

isnumeric 函数
xxx.setfocus

Answer 2

isnumeric函数如何使用？
比如m=4;
判断m是否是数字

Answer 3

if isnumberic(4) then
是数字
else
不是数字
endif

Answer 4

m=4
if isnumeric(m) then
msgbox "数字"
else
msgbox "非数字"
end if

Answer 5

忘记问了，我首先要从text1.text中读取才可以，这样要如何判断呢？真是辛苦大家了

Answer 6

m=text1.text
if isnumeric(m) then
msgbox "数字"
else
msgbox "非数字"
end if…………………………

Answer 7

顶也可以使用Val来判断：
Option ExplicitPrivate Sub Command1_Click()
    Dim varP As Variant
    varP = "df11"
    If Val(varP) Then
        Debug.Print "数字"
    Else
        Debug.Print "非数字"
    End If
End Sub

Answer 8

再问你一个问题可以吗？
就是如果我只在非数字的时候，才用，isnotnumeric(m)好像没有，类似的应该是哪个函数啊？
还有一个问题就是，这里的m没有声明，它算是什么类型的啊？

Answer 9

if isnumberic(m) = false then
非数字
end ifVariant 类型

Answer 10

Private Sub Command1_Click()
S = Text1.Text
l = Len(S)
Pattern = String(l, "#")
If S Like Pattern Then
MsgBox "数字"
Text1.SetFocus
Else
MsgBox "不是数字"
End If
End Sub

Answer 11

发现你的代码像 C 代码。
VB不用分号作为语句分割的。
也不用 // 作为注释。