Merhaba arkadaşlar Ekte ki örnekte "Frm_Police_Kayıt" formundaki animasyonlu butonlara tıklama olayı eklemek istiyorum ama formun kodlarında mause clik olayına farklı yöntem le kod girilmiş . Bunu nasıl istediğim gibi düzenleye bilirim. Bide bu animasyon yüzünden formadaki bütün resimler hareket ediyor onları nasıl sabitli ye bilirim. Yardımlarınız için şimdiden teşekkürler.
Bu konuda bana yardımcı olabilecek yok mu ?
MouseTikla isimli fonksiyon yok gibi gözüküyor programda.
Biraz daha açabilir misiniz. Sayın ALPEKİ99..
Private Sub Acilis()
Dim ctl As Control
For Each ctl In Me.Controls
If ctl.ControlType = acImage Then
ctl.OnMouseMove = "=MouseOn([" & ctl.Name & "])"
ctl.OnClick = "=MouseTikla([" & ctl.Name & "])"
End If
Next
Set Yeni = Nothing
Set Eski = Nothing
lblAciklama.Visible = False
End Sub
burada farenin simge üzerine gelmesi ve tıklama ile ilgili kodlar mevcut.
If ctl.ControlType = acImage Then
ctl.OnMouseMove = "=MouseOn([" & ctl.Name & "])"
ctl.OnClick = "=MouseTikla([" & ctl.Name & "])"
End If
ctl.OnMouseMove ve ctl.OnClick kısımları ile tıklama olayı ve farenin üzerine gelmesi halinde yapacağı işler için kod yazılmış. Sizin programda MouseOn isimli bir fonksiyon varken MouseTikla diye bir fonksiyon göremedim. Kodları aldığınız yerden eksik almış olabilirsiniz.
Aldığım program ektedir.İlginiz için teşekkür ederim..