vb6.0 text里的数字怎么拆分在其他text

这个比较简单。以=号为标志进行分割，取后面的数字即可。下面提供一段示例：
新建一个窗体，添加一个文本框控件Text1，将Text1的MultiLine属性设置为True。然后将以下代码粘贴到代码区即可。但文件目录要更换成你的文本文件所在的目录和文件名。
Option Explicit'请将Text1的MultiLine属性设置为TruePrivate Sub Form_Load()Dim TLine As StringDim I As LongText1Text = ""Open "d:\文本文档txt" For Input As #1Do While Not EOF(1) Line Input #1, TLine '读一行文本文件里的数据 I = InStr(1, TLine, "=") '找=号位置 TLine = Trim(Mid(TLine, I + 1)) '取等号后面的字符，并将前面空格去掉 Text1Text = Text1Text & TLine & vbCrLfLoopClose #1 End Sub

text2text=split(text1text,vbcrlf)(1) '输出第二项
text2text=split(text1text,vbcrlf)(2) '输出第3项
其中vbcrlf是回车换行符
split（）函数是把字符串转换为数组，vbcrlf是分隔符。

VB的换行符为“vbcrlf”，所以你只需要Text1Text = "再见" & vbcrlf & "我还没学好如何自动关闭按ALT+F4退出吧\\"即可。

如果你要把一个控件设为不可用，你可以在代码中加以控制。ButtonEnable = False（不但无法使用，而且鼠标也无法点上去）；ButtonReadOnly = True(无法使用，但鼠标能点上去，可以获取焦点)；ButtonVisible = False(不显示)

---