30/10/2008, 19:40
30/10/2008, 20:25
31/10/2008, 00:04
31/10/2008, 02:30
06/09/2009, 11:42
Bu uygulamadaki resimlere tıklandığında hiçbir olay olmadığını görmüşsünüzdür. Bu nedenle bu çalışmayı uygulamanızda kullanmak istediğinizde maalesef resimlere tıklanmadığından kullanamamışsınızdır. Ben bununla ilgili sayın Bilgisayarcı'ya da bilgi vererek ve iznini de alarak bir çalışma yapmıştım. Bu çalışmada resimlerin üzerinde bulundukları etikete tıklama yordamını kullandım ve sağ üstteki Nlb isimli etiketin caption bilgisinden yararlandım. Bunun için
kodlarını yazdım. Görüldüğü gibi ilk üç resim için komut yazdım ve diğerlerini sizin yapmanız için yol gösterdim. Ayrıca ben msgbox ile gösterdim, siz orayı silip kodunuzu yazacaksınız. Mesela form açtırabilirsiniz.
Sağ üstteki nlb'nin referans olarak kullanılabileceği fikri Bilgisayarcı'ya aitti. Teşekkürler.
Bu arada nlb = NeLaBu
AL GAZI VER GAZI EGEMEN))
Kod:
Private Sub lblAna_Click()
If nlb.caption <> "" Then
Select Case nlb.caption
Case "rsm1"
MsgBox "rsm1'e basıldı"
nlb.caption = ""
Case "rsm2"
MsgBox "şimdi de rsm2'ye basıldı"
nlb.caption = ""
Case "rsm3"
MsgBox "aha da rsm3'e basıldı"
nlb.caption = ""
End Select
End If
End Subkodlarını yazdım. Görüldüğü gibi ilk üç resim için komut yazdım ve diğerlerini sizin yapmanız için yol gösterdim. Ayrıca ben msgbox ile gösterdim, siz orayı silip kodunuzu yazacaksınız. Mesela form açtırabilirsiniz.
Sağ üstteki nlb'nin referans olarak kullanılabileceği fikri Bilgisayarcı'ya aitti. Teşekkürler.
Bu arada nlb = NeLaBu
AL GAZI VER GAZI EGEMEN
))06/09/2009, 14:19