在线等答案 vb 怎么遍历窗体上的Text1.text的名字显示在list上

Dim c As Control
For Each c In Me.Controls
If TypeOf c Is TextBox Then
List1.AddItem (c.Name)
End If
Next

最新版本如上。是这样的么？

遍历创题上Text1.Text的名字？它的名字不是Text1么？
你是不是要读取Text1.Text里面每一行，每一行都显示在List上？
按照这个问题的回答：

（你可以使用API，但是使用文件方式可能更加简单）

Sub ShowOnList(SourceText As TextBox, ToList As ListBox)
Dim Inputstr As String
Dim TimeAt As String
TimeAt = Hex(Year(Date)) & Hex(Month(Date)) & Hex(Day(Date)) & Hex(Hour(Time)) & Hex(Minute(Time)) & Hex(Second(Time)) '生成唯一标识
Open "C:\tmp" & TimeAt & ".tmp" For Output As #1
Print #1, SourceText.Text
Close #1
Open "C:\tmp" & TimeAt & ".tmp" For Input As #1
Do Until EOF(1)
Line Input #1, Inputstr
ToList.AddItem Inputstr
Loop
Close #1
Kill "C:\tmp" & TimeAt & ".tmp"
End Sub

使用：

ShowOnList Text1, Lis