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 ?
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.
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
- For ButtonNumber = 1 To 8
- Str = "FunktionsButton" & ButtonNumber
- Me.Controls("fButton" & ButtonNumber).Text = XMLSet.Element("doc").Element(Str).Element("Alias").Value
- Me.Controls("fButton" & ButtonNumber).Visible = XMLSet.Element("doc").Element(Str).Element("ButtonEnabled").Value
- 'fButton1.Icon = Application.StartupPath & "\IGC_1.png"
- Select Case XMLSet.Element("doc").Element(Str).Element("ButtonIcon").Value
- Case 0
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_0)
- Case 1
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_1)
- Case 2
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_2)
- Case 3
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_3)
- Case 4
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_4)
- Case 5
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_5)
- Case 6
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_6)
- Case 7
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_7)
- Case 8
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_8)
- Case 9
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_9)
- Case 10
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_10)
- Case 11
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_11)
- Case 12
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_12)
- Case 13
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_13)
- Case 14
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_14)
- Case 15
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_15)
- Case 16
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_16)
- Case 17
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_17)
- Case 18
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_18)
- Case 19
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_19)
- Case 20
- Icon_zuweisen(ButtonNumber, My.Resources.IGC_20)
- Case Else
- Icon_zuweisen(ButtonNumber, Nothing)
- End Select
- 'Me.Controls("fButton" & ButtonNumber).Visible = XMLSet.Element("doc").Element(Str).Element("ButtonIcon").Value
- Next
- Public Function Icon_zuweisen(ByVal Btn As Int32, ByVal Icn As Image)
- Select Case Btn
- Case 1
- fButton1.Icon = Icn
- Case 2
- fButton2.Icon = Icn
- Case 3
- fButton3.Icon = Icn
- Case 4
- fButton4.Icon = Icn
- Case 5
- fButton5.Icon = Icn
- Case 6
- fButton6.Icon = Icn
- Case 7
- fButton7.Icon = Icn
- Case 8
- fButton8.Icon = Icn
- End Select
- Return True
- 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.