Animasyon Clik Olayı

1 2
11/05/2011, 15:00

ekselanss

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.
11/05/2011, 22:41

ekselanss

Bu konuda bana yardımcı olabilecek yok mu ?
11/05/2011, 23:40

alpeki99

MouseTikla isimli fonksiyon yok gibi gözüküyor programda.
12/05/2011, 00:00

ekselanss

Biraz daha açabilir misiniz. Sayın ALPEKİ99..
12/05/2011, 00:05

alpeki99


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.
12/05/2011, 00:19

ekselanss

Aldığım program ektedir.İlginiz için teşekkür ederim..
1 2