How to use "Sender" in click-events?

[Stellaferox]

Hi,

I've got a program with a bunch of images on which can be clicked. All subs have the same structure with just one difference: the name of the image. Can this be reduced to ONE sub in which the Sender-feature is used?
example:

Sub Img1_Click  'img2_click, img3_click etc
  If Deck(SuitNr) = 0 Then
    CheckCard
    img1.Image = Cards.RetrieveImage 'img2, img3 etc
    If CardNr = Target Then 
      frmCards.Close
      ShowCards
    End If
  End If
End Sub

thnx
Marc

[specci48]

Hi Stellaferox,

first add an identical event to all your images like

AddEvent("img1", Click, "Image_Click")
AddEvent("img2", Click, "Image_Click")
AddEvent("img3", Click, "Image_Click")

Then you can

Sub Imgage_Click
  If Deck(SuitNr) = 0 Then
    CheckCard
    Control(Sender).Image = Cards.RetrieveImage
    If CardNr = Target Then 
      frmCards.Close
      ShowCards
    End If
  End If
End Sub

specci48

[Stellaferox]

Hi Specci48,

You've been most helpfull...
Thanks very much!!!
Marc

[specci48]

Originally Posted by Stellaferox

You've been most helpfull...

That's the aim of all users of this forum...

specci48

[Erel]

This tutorial should also be helpful: Runtime controls manipulation