AccessTr.neT

Tam Versiyon: Metin Kutusu Birleştirmek Ve Text Özelliği
Ş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 9
(21/03/2020, 11:40)berduş yazdı: [ -> ]doğrudan belli özelliğe sahip isimlendirmede yapılabilir,
Not:feraz bey anlaşılır olabilmesi için koda açıklama eklenebirilir şu kutucuklar şu işlemde kullanılacak diye
İllede array abey Img-grin
Dim Kontrol As Control
For Each Kontrol In Me

        Select Case Kontrol.ControlType  'Tüm kontrolleri gözden geçirelim..
        Case acTextBox, acComboBox, acCheckBox, acOptionGroup

if(instr(Kontrol.tag,"personel") then arrayPersonel.add Kontrol
if(instr(Kontrol.tag,"haftasonu") then arrayHaftasonu.add Kontrol
if(instr(Kontrol.tag,"calisan") then arrayCalisan.add Kontrol


        End Select
Next Kontrol
(21/03/2020, 09:32)berduş yazdı: [ -> ]
(21/03/2020, 07:08)accessman yazdı: [ -> ]Aktif control bunun yerine mi kullanılmış
evet aslında activecontrol.name yerin ctl.name de kullanılabilirdi yada
Private Sub Form_Load()
Dim ctl As Control
    For Each ctl In Me
        If ctl.Tag = "degistiginde" Then
            ctl.OnChange = "=Degisti()"
        End If
    Next ctl

End Sub

Public Function Degisti()
Dim ctl As Control
Me.Metin0 = ""
    For Each ctl In Me
        If ctl.Tag = "degistiginde" Then
            If ctl.Name = ActiveControl.Name Then _
               Me.Metin0 = Me.Metin0 & "|" & IIf(Len(Nz(Trim(ctl.Text))) = 0, ".", Trim(ctl.Text)) Else _
               Me.Metin0 = Me.Metin0 & "|" & Nz(Trim(ctl), ".")
        End If
       
    Next ctl
Me.Metin0 = Mid(Me.Metin0, 2)

End Function
gibi de
Bu kod güzel çalışıyor.Ben hangi control nesnelerine tıklarsam onun arka plan (backcolor) yeşil olsun diye uğraştım gotfocus ile hata verip durdu.Bu kodlara göre nasıl yapılacak seçilenin arka plan rengi yeşil.

Koşullu biçimlendirme yada class ile değil bu kodlara göre nasıl olabilir?
sorun odaklanamayacak nesnelerden kaynaklanıyor olabilir mesela etiketler böyledir ama başa on error resume next koyarak yada odaklanmayan nesnelerin controlType<>100, bu sadece etiket için, engellenebilir
bu örnekte seçenek kutularının odaklanma özelliği olduğu içim olay atanmış ama seçenek kutularının ard alan özelliği olmadığından tıklayınca hata veriyor
Vba kod ile 100 tane 1cm çaplı çemberi bir kutunun içinde birbirine değdikçe uzaklaşacak şekilde bir kod yazabilir miyiz
Neden olmasın ama ben yapabileceğimi sanmıyorum, beni aşar o nedenle  olabilirliğine dair verdigim cevap da şüpheli aslında.
Ama şu var her nesnenin merkezinin öbürüne mesafesini hesaplamak zor değil ona göre işlem yapilabilir
Ve yine konunun dışına çıkılmaya başlandı.
Sayfalar: 1 2 3 4 5 6 7 8 9