Question

VB怎么获取文本框里的字符串

Answer 1

先定义一个变量，然后将变量设置为文本框的内容即可。

代码如下(以获取Text1控件为例)：

Dim Str1 As String '定义字符变量
Private Sub Text1_Change() '当TEXT1字符改变时
Str1 = Text1.Text '设置为文本框的字符串
End Sub

Answer 2

Dim string1 As String
Private Sub Text1_Change()
string1 = Text1.Text
End Sub
就这样。

Answer 3

可以试一下mid函数。
返回 Variant (String)，其中包含字符串中指定数量的字符。

语法

Mid(string, start[, length])

Mid 函数的语法具有下面的命名参数：

部分 说明
string 必要参数。字符串表达式，从中返回字符。如果 string 包含 Null，将返回 Null。
start 必要参数。为 Long。string 中被取出部分的字符位置。如果 start 超过 string 的字符数，Mid 返回零长度字符串 ("")。
length 可选参数；为 Variant (Long)。要返回的字符数。如果省略或 length 超过文本的字符数（包括 start 处的字符），将返回字符串中从 start 到尾端的所有字符。

说明

欲知 string 的字符数，可用 Len 函数

本示例使用 Mid 语句来得到某个字符串中的几个字符。

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" 建立一个字符串。
FirstWord = Mid(MyString, 1, 3) ' 返回 "Mid"。
LastWord = Mid(MyString, 14, 4) ' 返回 "Demo"。
MidWords = Mid(MyString, 5) ' 返回 "Funcion Demo"。

Answer 4

Dim a as string
'假设文本框名称为T1
a=t1.text
这样a变量的字符串内容便成为了文本框里面的了