Retrieve Name of Image Control

[quddusaliquddus]

Hi all :D,

I am currently stuck at the point in the following code where its bold. I am trying to extract the name of the instance of myImage depending on whether I've clicked it or not:

Class Window1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click

Dim myImage As New Image()
myImage.Width = 32

Dim myBitmapImage As New BitmapImage()
myBitmapImage.BeginInit()
myBitmapImage.UriSource = New Uri("Sade.jpg", UriKind.Relative)
myBitmapImage.DecodePixelWidth = 32
myBitmapImage.EndInit()

Dim BlankTile As New BitmapImage()
BlankTile.BeginInit()
BlankTile.UriSource = New Uri("BlankTile.jpg", UriKind.Relative)
BlankTile.DecodePixelWidth = 32
BlankTile.EndInit()

Dim Col As Integer = UniformGrid1.Columns

NameScope.SetNameScope(UniformGrid1, New NameScope())

For i = 1 To UniformGrid1.Rows

For j = 1 To UniformGrid1.Columns

Dim myImage1 As New Image
myImage1.Width = 32

Dim X, Y As Integer

X = j
Y = i

myImage1.SetValue(myImage1.NameProperty, "T" & Y.ToString("D3") & X.ToString("D3"))
myImage1.Name = "T" & Y.ToString("D3") & X.ToString("D3")

UniformGrid1.Children.Add(myImage1)

UniformGrid1.RegisterName("T" & Y.ToString("D3") & X.ToString("D3"), UniformGrid1.Children.Item(Item(i, j, Col)))

myImage1.Source = BlankTile

AddHandler myImage1.MouseUp, AddressOf TileClicked


Next

Next

Dim Tile As New Image
Tile = UniformGrid1.FindName("T001001")
Tile.Source = myBitmapImage

Tile = UniformGrid1.FindName("T005005")
Tile.Source = myBitmapImage

End Sub

Private Sub TileClicked(ByVal sender As Object, ByVal e As RoutedEventArgs)

MessageBox.Show(Me.Name.ToString)

End Sub

Function Item(ByVal Row As Integer, ByVal Column As Integer, ByVal NoOfColumns As Integer) As Integer

Return ((Row - 1) * NoOfColumns) + Column - 1

End Function

End Class


Basically the messagebox displays nothing. How can I extract the name of the myImage control that has been clicked?

[quddusaliquddus]

Solution

Private Sub TileClicked(ByVal sender As Object, ByVal e As RoutedEventArgs)

Dim Img As New Image

Img = e.Source

MessageBox.Show(Img.Name)

End Sub