Projelerinizde birden fazla kontrol nesneleri vardır. Bazen bu nesnelerin tamamı üzerinde aynı işlem yapmanız gerekebilir. Bu durumda her bir kontrol nesnesi için ayrı ayrı kod yazmaktansa bir döngü ile istediğiniz işlemi yapmak daha mantıklıdır ve sizi kod kalabalığından kurtarır. Aşağıda ki kodları inceleyin. Anlaşılacaktır.
Private Sub UserForm_Activate() Dim obj As Control For Each obj In UserForm6.Controls If TypeName(obj) = "ComboBox" Then obj.Style = fmStyleDropDownList End If Next obj End Sub
Kolay gele…
İlk Yorumu Siz Yapın