找一个vb代码
下面的代码允许任意数量的文本框赋值，不一定叫文本？，文本框可以随意命名:
私有子窗体_Load()
Dim t表示控件，n表示字符串，s表示字符串
打开app.path & amp" \config.txt "作为#1输入
而不是EOF(1)
线路输入#1，s
n = LCase(Trim(Left(s，InStr(1，s，" = "-1)))
对于我的每一次考验。控制
如果LCase(t.Name) = n并且t的类型是TextBox，那么t.Text = Right(s，Len(s) - InStr(1，s，" = ")
然后
行
关闭#1
末端接头