Private Sub Form_Load() For i = 1 To 10 List1.AddItem (i) Next i End Sub Private Sub List1_Click() Text1.Text = List1.List(List1.ListIndex) '怎么样把list一行一行内容循环到text,比如循环1,然后到2,然后到3,如此类推,怎么搞,谢谢各位大侠 End Sub
Private Sub List1_Click() Text1.Text = List1.List(List1.ListIndex) End Sub