VB 如何读取text数据到textbox

我使用一个command按纽为读取数据，通过代码读取text数据到textbox中，总共有十九个textbox控件，分布在两个窗体内，第一个窗体从text1(0)到text1(9),第二个窗体从text1(0)到text1(8)，怎么样编代码呀，谢谢各位帮我解答一下
按照你所说的不对哦，我没有学过VB，麻烦能不能说详细一点
我需要从text文本文件里读取数据，这两个代码都实现不了哦
还是没明白我的意思，我的意思是，我有一个读取数据按纽，我点击它之后，会弹出一个打开文件的对话框，选择一个text文本文件，该文件里的数据就按行填充在十九个textbox控件框中

private sub command1_click()
dim a as string
commondialog1.filename=""
commondialog1.filter="*.txt|*.txt"
commondialog1.showopen
a=commondialog1.filename
open a as input #1
do while eof(#1)
tezt1.text=line input #1
text2.text=line input #1
......
loop
end sub

Private Sub Command1_Click() for i = 0 to 8 Text1.Text = Form2.Text1(i).Text Text1.Text = Form3.Text1(i).Text next End Sub 举个例子而已！

private sub commandbutton4_click()
'设置text1.multiline属性为true
  open app.path & "\command set\ftp命令详解.txt" for input as #1
  dim tmpstr() as string, i as integer, j as integer
  do while not eof(1)
  redim preserve tmpstr(i)
  line input #1, tmpstr(i)
  for j = 0 to ubound(tmpstr) - 1
  if tmpstr(j) = tmpstr(ubound(tmpstr)) then
  redim preserve tmpstr(i - 1)
  i = i - 1
  exit for
  end if
  next j
  i = i + 1
  loop

close   '加个关闭文件就行了.
  text1.text = join(tmpstr, vbnewline)
end sub

要用全局public定义两个窗体的变量，在form1里面添加如下定义 public a，b,c..... as single'定义十个变量 private sub command1_click() a=text1(0).text b=text1(1).text . . '将十个变量赋值 end sub 在form2里面添加如下定义 public aa，bb,cc..... as single'定义十个变量 private sub command1_click() a=text1(0).text b=text1(1).text . . '将十个变量赋值 end sub 两个窗体内的变量不能相同。 此时就可以随意调用变量了 不过调用时要加上form1. 比如在form1里调用form2的数就用 aa=form2.aa

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息