Vb文本框实时字符串提取数字，提取时输入，拆分字符回车符

怀疑地板被系统破坏

Vb文本框实时字符串提取数字vb提取字符串中的数字，提取时输入，拆分字符回车符

将keydata作为字符串* 1

keydata = Chr $（KeyAscii）

如果pc_draw_flag = True，那么

选择案例密钥数据

将“ 0”改为“ 9”

Shape2（Val（键数据））. BackColor =＆HFF00＆'形状控制显示为绿色

Text1.Text = Text1.Text和键数据

结束选择

如果结束

我想在vb的文本框中输入特定的字符串，例如

rate0

rate10

rate11

rate100

. .

我想提取数字部分（多行，分隔符是回车符）vb提取字符串中的数字，我想在键入时提取出来，

我在上面所做的只是提取单元号，向专家寻求帮助，并提供解决方案.

怀疑地板被系统破坏

房东的想法很奇怪. . .

私人子文本1_change（）

将Tmp（）视作字符串

tmp = split（text1.text，chr（13））

对于i = 0到ucase（tmp）

list1.additem getnum（tmp（i））

下一个

结束子

函数GetNum（以字符串形式显示）作为字符串'这是获取字符串的数字部分

将Vl视作字符串

对于i = 1到len（sp）

vl =中（sp，i）

如果是数字（vl），则

getnum = vl

退出

如果结束

下一个

结束功能

怀疑地板被系统破坏

私人子文本1_change（）

Dim Tmp

List1.Clear

Tmp =拆分（Text1.Text，Chr（13））

对于i = 0到UBound（Tmp）

List1.AddItem GetNum（CStr（Tmp（i）））

下一步

结束子

函数GetNum（作为字符串的Sp）作为字符串'这是获取字符串的数字部分

将Vim视作字符串

对于i = 1到Len（Sp）

Vl =中（Sp，i）

如果是IsNumeric（Vl），则

GetNum = Vl

退出

如果结束

下一步

结束功能

汗. . . . 果然，这总是错误的. . . . 这是经过测试的代码，拖动文本并列出

附加测试结果. .

怀疑地板被系统破坏

成功. . . 使用按键事件

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-163508-1.html