RickRongen
Gebruiker
- Lid geworden
- 15 okt 2011
- Berichten
- 27
Ik heb een Costum Control gemaak van een button met deze code:
Ik krijg steeds in de disigner deze code erbij terwijl ik dit niet wil:
Ik weet hoe dit komt maar niet hoe ik het kan voorkomen
Ik heb een workaround waarbij ik het erna opnieuw doe maar ik heb liever dat het meteen goed is.
Heeft iemand enig idee?
Alvast bedankt!
Code:
inherits Button
Dim bgImg() As Bitmap
Public Sub Recreate()
FlatStyle = Windows.Forms.FlatStyle.Flat
Font = Resources.Font 'Font("Lucida Sans Unicode", 11, FontStyle.Regular)
AutoSize = True
FlatAppearance.BorderColor = Color.White
FlatAppearance.CheckedBackColor = Color.White
FlatAppearance.MouseDownBackColor = Color.White
FlatAppearance.MouseOverBackColor = Color.White
BackgroundImageLayout = ImageLayout.Stretch
bgImg = CreateImages() 'Maak 3 bitmaps voor de 3 staten van de knop(normal, hover en click)
BackgroundImage = bgImg(0)
FlatAppearance.BorderSize = 0
End Sub
Ik krijg steeds in de disigner deze code erbij terwijl ik dit niet wil:
Code:
'
'Button1
'
Me.Button1.BackgroundImage = CType(resources.GetObject("Button1.BackgroundImage"), System.Drawing.Image)
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Lucida Sans Unicode", 11.0!)
...
Ik heb een workaround waarbij ik het erna opnieuw doe maar ik heb liever dat het meteen goed is.
Heeft iemand enig idee?
Alvast bedankt!