Variablen über AddHandler an Sub übergeben mit Delegates?

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von jvbsl.

    Variablen über AddHandler an Sub übergeben mit Delegates?

    Hallo ihr Lieben,
    bin neu im Gebiet Visual Basic und habe gerade mein erstes Projekt am laufen, jedoch scheitere ich an einer stelle. Mein Problem ist,
    dass ich dynamisch aus einer textdatei bilder und dazugehörige namen und links auslesen lasse. Diese Bilder werden dann in einer Picturebox angezeigt. Nun will ich, dass man per Klick auf eine Picturebox den dazugehörigen Namen und den dazugehörigen Bild an ein bereits vorhandenes Label übergeben kann. Jedoch funktioniert es nicht, seht aber am besten selbst:

    VB.NET-Quellcode

    1. Private Sub standardfenster_OnLoad(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
    3. Me.Opacity = 0
    4. Dim fnum = FreeFile(), text As String, filelength
    6. FileOpen(fnum, Application.StartupPath & "\games.txt", OpenMode.Input)
    7. filelength = LOF(fnum)
    8. text = InputString(fnum, filelength)
    9. FileClose(fnum)
    12. Dim array() As String = Split(text, vbCrLf)
    13. Dim arraycount As Integer = UBound(array)
    14. Dim Pictures(arraycount) As PictureBox
    16. Dim o As Integer = 0
    18. For Each i As String In array
    20. If i <> "" Then
    22. i = Trim(i)
    23. Dim array3() As String
    24. array3 = Split(i, "|")
    27. Pictures(o) = New PictureBox
    28. Pictures(o).Name = array3(0)
    29. Pictures(o).Size = New System.Drawing.Size(144, 184)
    30. Pictures(o).SizeMode = PictureBoxSizeMode.StretchImage
    31. Pictures(o).BorderStyle = BorderStyle.None
    32. Pictures(o).ImageLocation = Application.StartupPath & "/img/" & array3(2)
    33. Pictures(o).Parent = FlowLayoutPanel1
    34. Pictures(o).Visible = True
    36. FlowLayoutPanel1.Controls.Add(Pictures(o))
    38. Dim deleg As New übergabe(AddressOf showprop)
    41. AddHandler Pictures(o).Click, AddressOf clickchange
    43. AddHandler Pictures(o).MouseDoubleClick, AddressOf gameinfochange_function(array3(0), array3(1), array3(2))
    45. o = o + 1
    47. End If
    48. Next i
    52. End Sub
    54. Delegate Sub gameinfo_delegate(ByRef gamename As String, ByRef pathlink As String, ByRef piclink As String)
    56. Sub gameinfochange_function(ByRef gamename As String, ByRef pathlink As String, ByRef piclink As String)
    58. Label2.Text = gamename
    60. End Sub


    Der AddressOf-Operand muss dem Namen einer Methode entsprechen (ohne Klammern)

    Ich hoffe ihr könnt mir helfen.
    Liebe Grüße
    TR

    schreibe die Daten doch in die Tag Eigenschaft der PictureBox, verwende AddressOf ganz normal auf die entsprechende Methode und verwende die sender Variable um an die Tag Eigenschaft zu kommen(DirectCast(sender,PictureBox)....)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    VB.NET-Quellcode

    1. Public Class Daten
    2. public text as string
    3. public wert As integer
    4. Sub new(text,wert)
    5. me.text = text
    6. me.wert =wert
    7. End Sub
    8. End Class
    9. 'Tag Zuweisung:
    10. PictureBox.Tag = New Daten("test",10)
    12. 'auslesen/änder:
    13. DirectCast(PictureBox.Tag,Daten).wert (= 11)
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

Facebook
Telefonspende