label olay yordamını prosedurde tanımlamak

30/03/2015, 17:59

aydın3838

selam
örnek kod olarak alttaki kodda label lerin tag larını döngüye alarak olay yordamlarına prosedür ekleniyor
Access de bu yapılıyor fakat basic 6 da nasıl yapılır
bilgilendirirseniz sevinirim
saygılarımla

Kod:
Public Sub anamenu()
Dim ctlana As Control
Lblsayisi = 0
For Each ctlana In Me.Controls
If Left(ctlana.Name, 3) = "ana" Then
Lblsayisi = Lblsayisi + 1
ctlana.OnMouseMove = "=anaduzenle(" & ctlana.Tag & ")"
baslik.OnClick = "=anacalistir()"
End If
Next
End Sub
yeni aklıma gelen bir şey
örneğin Access de label1.onclick ="[olay yordamı]" nı nasıl basic te yaparım
01/04/2015, 23:15

alpeki99

Kod:
support.microsoft.com/en-us/kb/190670


burada örnek kodlar verilmiş.