AccessTr.neT

Tam Versiyon: Kontrollere Toplu Kod Yazmak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8
soru başlığı ne kadar doğru oldu bilmiyorum ama yapmak istediğim şey şu arkadaşlar
42 tane MSComctlLib.ListViewCtrl.2 sınıfından ListViewCtrl controlu var
bunların isimleri txt01.......txt42 
herbirine aşağıdaki iki kod yazılacak

Private Sub txt01_ItemClick(ByVal Item As Object)
    veri = Me.txt01.Object.SelectedItem
End Sub

Private Sub txt01_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Call güncelle("txt01", veri)
End Sub


************

Private Sub txt42_ItemClick(ByVal Item As Object)
    veri = Me.txt42.Object.SelectedItem
End Sub

Private Sub txt42_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    Call güncelle("txt42", veri)
End Sub



15-20 dk da kopyala yapıştır yaparım problem değil ama bunun daha pratik bir yolu var mı

https://accesstr.net/konu-liste-kutulari...b%C4%B1rak

burada bu kontroller ve kodlar var
Bu iş işte clacc işi Img-grin
bir el atsan feraz 
senin şu arka plan renkleri ile ilgili kodlar vardı onu uygulayamadım
https://accesstr.net/attachment.php?aid=29713 dosyası işinize yarayabilir
cactüs cafe programında herbiri için tek tek yamışlar benim aradığım ferazın 
https://accesstr.net/konu-access-textbox...s-ile.html
yapmış olduğuna benzer bir uygulama
Cactus cafede etiketlerin tıklanma olayını incelerseniz tıklama olayı olmamasına rağmen girişteki kodlarla hepsine görev atanmis
Sayfalar: 1 2 3 4 5 6 7 8