bunu siteden bir arkadaşın eklediği örnekten aldım üç modülü tek modülde birleştirdim ama ingilizce hepsi büyük harf fonksiyonu eksik kullanılışı ise
Private Sub kucukeng_AfterUpdate()
kucukeng = TumuKucuk_Eng(kucukeng)
End Sub
Merhaba.
Accessi kaptma olayını engelleyen ek yüklüyorum.
Hayırlı olsun
Accessi kaptma olayını engelleyen ek yüklüyorum.
Hayırlı olsun
Hazırladığım class ile seçilen textboxun arkaplan rengini değiştirme örneğini ekliyorum.
Umarım birilerinin işine yarar.
![[Resim: 1EWoaosG.gif]](https://s1.imagebanana.com/file/200118/1EWoaosG.gif)
Class modül kodlar;
Form Kodlar;
Umarım birilerinin işine yarar.
![[Resim: 1EWoaosG.gif]](https://s1.imagebanana.com/file/200118/1EWoaosG.gif)
Class modül kodlar;
Kod:
Public WithEvents opt As TextBox
Public Property Set BenimOptionButton(Txttext As TextBox)
Set opt = Txttext
opt.OnEnter = "[Event Procedure]"
opt.OnExit = "[Event Procedure]"
End Property
Private Sub opt_Enter()
Dim TxtCtl As Control
For Each TxtCtl In Forms("FormTextbox")
TxtCtl.BackColor = vbWhite
Next
opt.BackColor = vbGreen
End Sub
Private Sub opt_Exit(Cancel As Integer)
opt.BackColor = vbWhite
End SubOption Compare Database
Private Kontrol As New Collection
Private Sub Form_Load()
Dim i As Byte
Dim TxtOpt As ClsTextbox
Dim ctl As Control
Dim arr
arr = Array("textbox1", "textbox3", "textbox5")
For i = LBound(arr) To UBound(arr)
For Each ctl In Me.Controls
If ctl.ControlType = acTextBox Then
If ctl.Name = arr(i) Then
Set TxtOpt = New ClsTextbox
Set TxtOpt.BenimOptionButton = ctl
Kontrol.Add TxtOpt
GoTo var:
End If
End If
Next
var:
ctl.BackColor = vbWhite
Next
Erase arr
End Sub
Portföyünüzü takip edebileceğiniz basit bir program.
Hoşgeldin, Ziyaretçi
Forum İstatistikleri
Kimler Çevrimiçi
Şu anda 49 aktif kullanıcı var.
AdsenseBot, AhrefsBot, Bing Bot, Facebook Spider, Google Bot, SemrushBot, Trendiction, YandexBot, majestic12
(0 Üye - 40 Ziyaretçi)
Son Yazılanlar
Mutfak Takip
Yorum
3
•
Okunma
104
Access Html Gantt Chart
Yorum
2
•
Okunma
164
Site Ve Apartman Yönetim ...
Yorum
23
•
Okunma
8.160