Kontrollere Toplu Kod Yazmak

form masa giriş de 25 adet tıklanma olayı yazılmış

yanlış dosyaymış aşağıdakini inceler misiniz?[attachment=31258]

(23/01/2020, 16:52)accessman yazdı: bir el atsan feraz 
senin şu arka plan renkleri ile ilgili kodlar vardı onu uygulayamadım

Akşama doğru bakabilirim.

Class ile Textbox yapmıştım o kadlar yapılır basitçe.Denemek gerek.

Form load kısım kodlarnı for each değilde normal for dngüsüyle yapılır.

Alttaki mantık uygulanır böylece tag yada ad olayınına gerek kalmaz.Kafadan yazdım kodu telefondan böyle mantık yani.
Textbox kodlarındaki array kullanılmayacak bu durumda.

For i = 1 to 50
Set değişken.class= me.controls("txt" & i)
Next

bu dediğini buna nasıl uyarlayacağız

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

(23/01/2020, 17:58)accessman yazdı: bu dediğini buna nasıl uyarlayacağız

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

"txt42" bu kısma classın içine alınan control adı yazılacak.

Call güncelle(textad, veri) gibi.
Yani textad yazdışımığım yere kod ile otomatik gelecek adlar hangisiyle işlem yaşılıyorsa.