Skip to main content

AccessTr.neT


Kontrollere Toplu Kod Yazmak

Kontrollere Toplu Kod Yazmak

#7
form masa giriş de 25 adet tıklanma olayı yazılmış
Cevapla
#8
yanlış dosyaymış aşağıdakini inceler misiniz?
.rar Catus Cafe MSG BOX_hy4_1.rar (Dosya Boyutu: 141,37 KB | İndirme Sayısı: 0)
Cevapla
#9
(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.
Cevapla
#10
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
Cevapla
#11
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
Cevapla
#12
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task