VB 如何将textbox的text属性的值转化为Variant？

Question

如何将textbox的text属性的值转化为Variant 然后我需要将它存到一个变量上面。。关键是如何转换？

谢谢指点！

Answer 1

问题不是text如何转换成variant，关键是你要将读取的text值存放到什么变量上。
文本框的text属性的值也就是你从键盘输入的“内容”，这个内容的长度本身不确定，因此存放到内存中所占的字节数也不固定。可是，variant类型变量所占内存字节数是固定的8个字节。
所以，你要考虑的是你打算存的那个变量的类型该如何设计。
例如：
（1）假设text中获取的值是数字，可以如下操作
dim a as integer,b as single
a=val(text1.text):b=val(text2,text)
(2)假设从text中只获取文本（汉字或非数字字符）且文本长度不固定，可以如下操作
dim s as string '此处s是不定长字符串
s=text1.text
若文本长度固定可以如下操作：
dim s as string*10 '此处的s只能存放10个字节的字符，即使输入的长度比10个长，赋值时也只读取前10个字符。

Answer 2

dim A 'A 是变体变量
A=text1.text
再把A赋给你想赋值的地方即可！

Answer 3

同意楼上看法。
不过依我看dim a 也可以省略，具体的情况你调试一下就知道了。
Private Sub Command1_Click()
a = Text1.Text
Print a
End Sub
加一个command1和textbox