Nachträgliches Ändern von Icons bei Buttons

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Andy112.

    Nachträgliches Ändern von Icons bei Buttons

    Hallo Zusammen,

    ich hätte eine kurze Frage und zwar habe ich eine Form erstellt wo 54 Buttons drauf sind die jeweils einen Ausgang einer SPS steuern.
    Nun dachte ich mir ich weise beim Start den Buttons jeweils ein unterschiedliches Icon zu. ( Dies funktioniert auch super ). Da ich bisher nur 5 verschieden Icons verwendet habe mir aber gerne die möglichkeit der Nachträglichen Änderung eines Icons einbauen wollte dachte ich mir Ich lege einfach 16 weiter Icons an und bei bedarf tausche ich diese im Anwendungsordner aus und bennen sie einfach gleich.

    Leider hab ich mittlerweile auch rausgefunden dass dies nicht machbar ist.

    Wüsstet ihr eine Möglichkeit dies zu Bewerkstelligen ?

    Quellcode

    1. For ButtonNumber = 1 To 8
    2. Str = "FunktionsButton" & ButtonNumber
    3. Me.Controls("fButton" & ButtonNumber).Text = XMLSet.Element("doc").Element(Str).Element("Alias").Value
    4. Me.Controls("fButton" & ButtonNumber).Visible = XMLSet.Element("doc").Element(Str).Element("ButtonEnabled").Value
    5. 'fButton1.Icon = Application.StartupPath & "\IGC_1.png"
    6. Select Case XMLSet.Element("doc").Element(Str).Element("ButtonIcon").Value
    7. Case 0
    9. Icon_zuweisen(ButtonNumber, My.Resources.IGC_0)
    10. Case 1
    11. Icon_zuweisen(ButtonNumber, My.Resources.IGC_1)
    12. Case 2
    13. Icon_zuweisen(ButtonNumber, My.Resources.IGC_2)
    14. Case 3
    15. Icon_zuweisen(ButtonNumber, My.Resources.IGC_3)
    16. Case 4
    17. Icon_zuweisen(ButtonNumber, My.Resources.IGC_4)
    18. Case 5
    19. Icon_zuweisen(ButtonNumber, My.Resources.IGC_5)
    20. Case 6
    21. Icon_zuweisen(ButtonNumber, My.Resources.IGC_6)
    22. Case 7
    23. Icon_zuweisen(ButtonNumber, My.Resources.IGC_7)
    24. Case 8
    25. Icon_zuweisen(ButtonNumber, My.Resources.IGC_8)
    26. Case 9
    27. Icon_zuweisen(ButtonNumber, My.Resources.IGC_9)
    28. Case 10
    29. Icon_zuweisen(ButtonNumber, My.Resources.IGC_10)
    30. Case 11
    31. Icon_zuweisen(ButtonNumber, My.Resources.IGC_11)
    32. Case 12
    33. Icon_zuweisen(ButtonNumber, My.Resources.IGC_12)
    34. Case 13
    35. Icon_zuweisen(ButtonNumber, My.Resources.IGC_13)
    36. Case 14
    37. Icon_zuweisen(ButtonNumber, My.Resources.IGC_14)
    38. Case 15
    39. Icon_zuweisen(ButtonNumber, My.Resources.IGC_15)
    40. Case 16
    41. Icon_zuweisen(ButtonNumber, My.Resources.IGC_16)
    42. Case 17
    43. Icon_zuweisen(ButtonNumber, My.Resources.IGC_17)
    44. Case 18
    45. Icon_zuweisen(ButtonNumber, My.Resources.IGC_18)
    46. Case 19
    47. Icon_zuweisen(ButtonNumber, My.Resources.IGC_19)
    48. Case 20
    49. Icon_zuweisen(ButtonNumber, My.Resources.IGC_20)
    50. Case Else
    51. Icon_zuweisen(ButtonNumber, Nothing)
    52. End Select
    54. 'Me.Controls("fButton" & ButtonNumber).Visible = XMLSet.Element("doc").Element(Str).Element("ButtonIcon").Value
    55. Next
    58. Public Function Icon_zuweisen(ByVal Btn As Int32, ByVal Icn As Image)
    59. Select Case Btn
    60. Case 1
    61. fButton1.Icon = Icn
    62. Case 2
    63. fButton2.Icon = Icn
    64. Case 3
    65. fButton3.Icon = Icn
    66. Case 4
    67. fButton4.Icon = Icn
    68. Case 5
    69. fButton5.Icon = Icn
    70. Case 6
    71. fButton6.Icon = Icn
    72. Case 7
    73. fButton7.Icon = Icn
    74. Case 8
    75. fButton8.Icon = Icn
    76. End Select
    78. Return True
    79. End Function


    Ich hab auch schon ausprobiert den Pfad anzugeben und in der Function anstatt ByVal Icn As Image als Object leider ohne erfolg.


    Vielen Dank schonmal und ein angenehmes Wochenende.

    Sorry - der Code ist komplett unbrauchbar.
    Wert-Lesen aus dem XDocument ok, aber zuweisen des Button-Icons ist total planlos.

    Andy112 schrieb:

    Nun dachte ich mir ich weise beim Start den Buttons jeweils ein unterschiedliches Icon zu. ( Dies funktioniert auch super ).
    Das wäre doch ein Ansatz - wie sieht denn da der Code aus, der super funktioniert?

    ErfinderDesRades schrieb:

    Sorry - der Code ist komplett unbrauchbar.
    Wert-Lesen aus dem XDocument ok, aber zuweisen des Button-Icons ist total planlos.
    ;(
    @ErfinderDesRades inwiefern meinst du des mit Planlos ? :?:
    denn dieser Code funktioniert ja Super , Problem daran ist nur es können nur Icons verwendet werden die auch im Project als Ressource sind. Nur würde ich gern halt Icons verwenden die im Anwendungsordner als Icons gespeichert sind ?

    @Andy112 Bei mir (WinForm) haben Buttons keine Property Icon.
    Die Property Image kannst Du so ändern:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    3. Button1.Image = Image.FromFile("C:\Temp\Image1.jpg")
    4. End Sub
    6. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    7. Button1.Image = Image.FromFile("C:\Temp\Image2.jpg")
    8. End Sub
    9. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende