UC知道vb提问，这个函数中的语句帮忙逐条解释下？
来源：百度知道 编辑：UC知道 时间：2024/06/15 19:42:14
sub onlynum(tt as textbox)
dim a as string,b as string
with tt
a=.text
b=Right$(.text,1)
if Instr(1,"0123456789",b)=0 then
.text=left$(.text,len(.text)-1)
sendkeys"{END}"
end if
end with
end sub
dim a as string,b as string
with tt
a=.text
b=Right$(.text,1)
if Instr(1,"0123456789",b)=0 then
.text=left$(.text,len(.text)-1)
sendkeys"{END}"
end if
end with
end sub
sub onlynum(tt as textbox)'定义过程onlynum,过程参数为名称为tt的文本框
dim a as string,b as string'定义变量a,b为字符串类型
with tt'标示变量tt(后面凡是带点的均隐含tt,如: .text 即为tt.text
a=.text'将文本框tt的内容赋值给变量a
b=Right$(.text,1)'取文本框tt最右边的一个字符赋值给变量b
if Instr(1,"0123456789",b)=0 then'判定字符串"0123456789"是否包含变量b的值
.text=left$(.text,len(.text)-1)'如果包含,则将文本框tt的内容减掉右边一个字符
sendkeys"{END}"'发送按键End
end if '判定结束
end with'结束标识
end sub '过程结束