有关运用模块编制函数或过程的方法。

Question

PRIVATE SUB TestSub(L1 AS LISTBOX,L2 AS LISTBOX)
    Dim i, a As Integer
    Dim str As String
    a = L2.ListCount    
    Do While i <> a
          
      
        If L2.Selected(i) Then
            
            L1.AddItem L2.List(i)
            
            L2.RemoveItem i
            a = a - 1
            i = i - 1
            
        End If
        
        L2.Refresh
        i = i + 1
END SUB
在command2_clicK事件中 call testsub(L1,L2)
在command1_clicK事件中 call testsub(L2,L1)

Answer 1

上面的错了吧。
这样吧。
Sub ItemMove(FormList As ListBox, ToList As ListBox)
Dim index As Long
index = 0
Do
    If FormList.Selected(index) = True Then
        ToList.AddItem FormList.List(index)
        FormList.RemoveItem (index)
    Else
        index = index + 1
    End If
Loop Until index = FormList.ListCount
End Sub
用的时候 call ItemMove(list1,list2)
这样啊。快把代码复制过去吧。