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 [COLOR="Red"]Img1_Click  'img2_click, img3_click etc[/COLOR]
  If Deck(SuitNr) = 0 Then
    CheckCard
    [COLOR="Red"]img1.Image = Cards.RetrieveImage 'img2, img3 etc[/COLOR]
    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]

You've been most helpfull...

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

specci48

 

[Erel]

This tutorial should also be helpful: http://www.b4x.com/forum/showthread.php?t=907