vb中读取文本框中输入的数字

呵呵，VB是允许这样的。没有加定义限制就可以那样用。别把人想那么差。

你的意思不太明确啊。有两种解释啊。

1:文本框只输入数字然后引用。

dim

x

as

integer

'你可以把x引用到本窗体内的任意处

private

sub

command1_click()

x=val(text1)

end

sub

2:文本框中可能还有别的字符，如"ada"之类的，提取出文本中的数字

一楼的即可

你可以用注册表 *** 作的语句将内容保存到注册表，等下次加载窗体时再用语句从注册表中取出值．

使用方法如下：

SaveSetting(AppName As String, Section As String, Key As String, Setting As String)

GetSetting(AppName As String, Section As String, Key As String, [Default]) As String

savesetting 将一个值存储到注册表里

SaveSetting "工程主题","主键名","键名","键值"

GetSetting "工程主题","主键名","键名","默认键值" '默认键值,当获取为空,或不成功时返回默认值

这个函数的返回值就是获取的注册表的键值

你可以将以上语句运行一次就知道了

运行后到注册表的HKEY_CURRENT_USER\Software\VB and VBA Program Settings键值下

例如：

savesettings "MyApp","ID","Localid",text1text

取出时用语句：

text1=getsettings ("MyApp","ID","Localid")

每一行？

将文本以VBCRLF为标记打散为数组即可。

dim

x

as

string

x=text1text

dim

y()

as

string

y=split(x,vbcrlf)

此时y就是包含了每行内容的数组了。接下来就可以按行来读取内容了。

Dim

i

As

Integer,

r,

s

As

String

s

=

Text1Text

r

=

Split(s,

Chr(13)

+

Chr(10))

For

i

=

0

To

UBound(r)

Print

r(i);

Next

i

这段代码肥

文本框

的每一行作为元素放在数组R中，并在窗体上显示出来。

Dim s As String

s = Text1Text //获取文本框的植

s= Label1Caption //获取标签的字符

s= Combo1Text //获取下拉匡的值

s = Option1Caption //获取单选按钮的标签字符

s = OpText6Text = Check1Caption//获取单选按钮的值（布尔值，选中为True 未选中为False）

s = Check1Caption //获取复选按钮的标签字符

s= Check1Value ////获取复选按钮的状态值（0为未选中，1为选中，2为选中并且为灰色不可编辑状态）

以上就是关于vb中读取文本框中输入的数字全部的内容，包括:vb中读取文本框中输入的数字、vb如何保存和读取文本框里的内容、VB怎样取出文本框每一行的值等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！