sadece ilgili liste kutularının güncellenmesi için şunları ekledim (ok ile işaretli satırlar)
Public veri As String
Public sourceListViewNumber As Integer <--------
Public targetListViewNumber As Integer <--------
Private Sub opt_ItemClick(ByVal Item As MSComctlLib.ListItem)
sourceListViewNumber = CInt(Mid(adbul, 2)) <--------
veri = opt.SelectedItem
End Sub
Private Sub opt_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
targetListViewNumber = CInt(Mid(adbul, 2)) <--------
Form_Form2.güncelle adbul, veri
End Sub
For i = 0 To ii
If (sourceListViewNumber = i Or targetListViewNumber = i) Then <--------
Call FillEmployees("L" & Format(i, "00"))
End If <--------
Next
Kontrollere Toplu Kod Yazmak
Konuyu Okuyanlar: 1 Ziyaretçi