Ben Ofis XP (2002) kullanıyorum o yüzden 2003 olarak atamıyorum maalesef.
EK'te gönderdiğim gibi çalışıyor dosyam. Bana gerekli olan kısım Form2'deki Image'lardan herhangi birisine tıklandığında hangi Image üzerine tıklandığını makro tarafında anlayabilmek. Bunu anlayabilirsem dosyamın geri kalanını zaten tamamlamakta sorun yok.
Teşekkür ederim.
Yine çok uğraştım ve cevabı kendim buldum, ilginize teşekkürler arkadaşlar.
Denemek isteyen varsa daha önce gönderdiğim EK'teki dosyaya bu kodları yazarak deneyebilirsiniz.
Module'ün en üst tarafına;
Global hl As Integer
Dosyaya Module ekleyip bu kodları yazıyorsunuz;
Public Sub ImageYon(F As Form)
Dim ctl As Control
For Each ctl In F.Controls
Select Case ctl.ControlType
Case acImage
If Left(ctl.Name, 7) = "MyImage" Then
hh = ctl.Name
hj = Replace(hh, "MyImage", "")
ctl.OnClick = "=MouseClick([" & ctl.Name & "])"
End If
End Select
Next
Call Cagir
End Sub
Public Function MouseClick(ctl As Control)
sf = ctl.Name
hl = Replace(sf, "MyImage", "")
End Function
Örnekteki Form2'nin Load olayına da;
Private Sub Form_Load()
ImageYon Me
End Sub
db1_yeni.zip
(Dosya Boyutu: 29,53 KB | İndirme Sayısı: 10)
Cevapla
Son Düzenleme: 26/02/2010, 15:18, Düzenleyen: ErtiAV.