Private Sub lb2_Click()
'add selection to txtCando and display in lb1
If IsNull(txtCanDo) Then txtCanDo = ";" 'add leading semicolon to first entry
txtCanDo = txtCanDo & lb2.Column(1) & ";"
lb1.AddItem lb2.Column(0) & ";" & lb2.Column(1)
'remove selection from lb2
lb2.RemoveItem (lb2.ListIndex)
End Sub
Liste Kutusundan Başka Liste Kutusuna Taşıyın
Bu Konudaki Yorumlar |
Liste Kutusundan Başka Liste Kutusuna Taşıyın - Yazar: accessman - 23/01/2020, 07:28
Cvp: Liste Kutusundan Başka Liste Kutusuna Sürükleyin - Yazar: accessman - 23/01/2020, 07:30
Cvp: Liste Kutusundan Başka Liste Kutusuna Sürükleyin - Yazar: berduş - 23/01/2020, 08:37
Cvp: Liste Kutusundan Başka Liste Kutusuna Taşıyın - Yazar: accessman - 23/01/2020, 11:51
Cvp: Liste Kutusundan Başka Liste Kutusuna Taşıyın - Yazar: accessman - 23/01/2020, 12:17
|
Konuyu Okuyanlar: 1 Ziyaretçi