Edit by ErfinderDesRades: (Thema verschoben)
Für ein Tut ist der Code doch sehr suboptimal.
Aber er zeigt immerhin, wie man eigene Controls codet, wie einfach man SystemIcons zugreifen und in Bitmaps umwandeln kann.
Hallo,
Ich zeige euch wie ihr einen Button mit Systemicons Erstellen könnt und auf Button Klick immer ein Anderes SystemIcon erscheint.
Der Code für den Button:
Das ist der Button!
Jetzt den Button zur Form adden per code oder Designer.
Per Code:
Und Dann per Klick anderes Icon:
Fertig.
Ihr könnt ihn überall benutzen.
Bei Einkompilierung in DLL dann Namesnennung!
Danke!
Für ein Tut ist der Code doch sehr suboptimal.
Aber er zeigt immerhin, wie man eigene Controls codet, wie einfach man SystemIcons zugreifen und in Bitmaps umwandeln kann.
![:thumbup:](https://www.vb-paradise.de/wcf/images/smilies/thumbup.png)
Hallo,
Ich zeige euch wie ihr einen Button mit Systemicons Erstellen könnt und auf Button Klick immer ein Anderes SystemIcon erscheint.
Der Code für den Button:
VB.NET-Quellcode
- Public Class IcButton
- Inherits Button
- Public Enum Icons As Integer
- Shield
- Information
- WinLogo
- ErrorIC
- Warning
- NoImage
- End Enum
- Private _m As Icons
- ''' <summary>
- ''' Gibt zurück ob das Angegebene Icon das ist was Angegeben war. Returnt Boolean!
- ''' </summary>
- ''' <param name="ic"></param>
- ''' <returns></returns>
- ''' <remarks></remarks>
- Public Function IsIt(ic As Icons) As Boolean
- If _m = ic Then
- Return True
- Else
- Return False
- End If
- End Function
- ''' <summary>
- ''' Setzt das angegebene Icon als Standart!
- ''' </summary>
- ''' <param name="ic"></param>
- ''' <remarks></remarks>
- Public Sub SetIt(ic As Icons)
- Icon = ic
- End Sub
- Public Property Icon As Icons
- Get
- Try
- Dim i As String = Image.ToString
- If i = "" Or i = " " Then
- Return Icons.NoImage
- Else
- Return _m
- End If
- Catch ex As Exception
- Return Icons.NoImage
- End Try
- End Get
- Set(value As Icons)
- _m = value
- TextImageRelation = Windows.Forms.TextImageRelation.ImageBeforeText
- If _m = Icons.ErrorIC Then
- Image = SystemIcons.Error.ToBitmap
- ElseIf _m = Icons.Information Then
- Image = SystemIcons.Information.ToBitmap
- ElseIf _m = Icons.Warning Then
- Image = SystemIcons.Warning.ToBitmap
- ElseIf _m = Icons.Shield Then
- Image = SystemIcons.Shield.ToBitmap
- ElseIf _m = Icons.WinLogo Then
- Image = SystemIcons.WinLogo.ToBitmap
- ElseIf _m = Icons.NoImage Then
- Image = Nothing
- End If
- End Set
- End Property
- End Class
Das ist der Button!
Jetzt den Button zur Form adden per code oder Designer.
Per Code:
VB.NET-Quellcode
Und Dann per Klick anderes Icon:
VB.NET-Quellcode
- If IcButton1.IsIt(IcButton.Icons.ErrorIC) Then
- IcButton1.SetIt(IcButton.Icons.Information)
- ElseIf IcButton1.IsIt(IcButton.Icons.Information) Then
- IcButton1.SetIt(IcButton.Icons.NoImage)
- ElseIf IcButton1.IsIt(IcButton.Icons.NoImage) Then
- IcButton1.SetIt(IcButton.Icons.Shield)
- ElseIf IcButton1.IsIt(IcButton.Icons.Shield) Then
- IcButton1.SetIt(IcButton.Icons.Warning)
- ElseIf IcButton1.IsIt(IcButton.Icons.Warning) Then
- IcButton1.SetIt(IcButton.Icons.WinLogo)
- ElseIf IcButton1.IsIt(IcButton.Icons.WinLogo) Then
- IcButton1.SetIt(IcButton.Icons.ErrorIC)
- End If
Fertig.
Ihr könnt ihn überall benutzen.
Bei Einkompilierung in DLL dann Namesnennung!
Danke!
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ErfinderDesRades“ ()