15-11-2012, 23:08 (En son düzenleme: 15-11-2012, 23:14 yarendiyari.)
Değerli hocalarım ekte göndermiş olduğum örnekte düzenleme ve silme kilidi formda düzenlemeyi aktif etme , pasif etme, formu temizleme, formda bilgiyi silme ve kaydetme mevcut ve çok güzel bir uygulama hazırlamış olduğum formda bunu uygulamak istiyorum burada gezinti tuşlarının olmasını istemiyorum sadece Form Temizle. Form Düzenleme, Kaydetme, Form Sileme özelliklerinin olmasını istiyorum. Bunu basit bir şekilde nasıl yapabiliriz kodlar çok karışık ve yabancı açıklamalar var.
Sizlerden bunu basitleştirmek ve bunu hazırlamış olduğum formlara uygulamak yardımlarınızı bekliyorum. Bahsettiğim form örnekte ( fSubControl ) formudur.
selam
alternatif olsun diye fazla kodlardan kurtulmak amaçlı
nesnelerin metin,buton,liste kutusu,vs... (im) yede diğe adı tag larına belli bir değer atama ve bu değere göre alttaki kod ile kilitleme ve açma
mavi alan imi kırmızı alan ise im verilen değerdir im lerinde kontrol yazan tüm değerleri kilitler
Public Sub Text_Kilitle()
Dim Ctlr As Control
On Error Resume Next
For Each Ctlr In Me.Form.Controls
If Ctlr.Tag = "Kontrol" Then
Ctlr.Locked = True
End If
Next
End Sub