列表框的问题

Question

把第一个列表框选中的内容转到第二个列表框里面Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next i
End SubPrivate Sub List1_DblClick()
For j = 0 To Screen.FontCount - 1
If List1.Selected(j) Then
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End If
Next j
End Sub

Answer 1

我想说的是Next后不要加个i或j，这不是个编程好习惯。

Answer 2

小生认为解决这个问题因该修改下面的代码
List2.AddItem List1.Text
改为List2.这里有个属性记不住了好象是Index然后跟上(j)就可以找到选中的那一行了

Answer 3

我想说的是Next后不要加个i或j，这不是个编程好习惯。
你为什么要这样讲?
应该后边加I或J的啊,知道是进行的哪层循环啊!

Answer 4

把第一个列表框选中的内容转到第二个列表框里面
?????看你的这个想法???
你程序中要完成的居然是当双击时将LIST1中的内容全部转到LIST2中.

Answer 5

Private Sub Form_Load()
For i = 0 To Screen.FontCount - 1
List1.AddItem Screen.Fonts(i)
Next i
End SubPrivate Sub List1_DblClick()
List2.AddItem List1.Text
List1.RemoveItem List1.ListIndex
End Sub

Answer 6

Private Sub Form_Load()
  For i = 0 To Screen.FontCount
    List1.AddItem Screen.Fonts(i)
  Next
End SubPrivate Sub List1_Click()
  List2.AddItem List1.Text
  List1.RemoveItem List1.ListIndex
  
End Sub