Create Custom Button using Class ?

[SB4]

Hello CG members,



I use this code to create the same Button in multiple Forms:

Dim btnClick As New Button
btnClick.Location = New Point(106, 150)
btnClick.Size = New Size(75, 23)
btnClick.BackColor = Color.Brown
btnClick.ForeColor = Color.White
btnClick.Text = "Ok"

I don't want to add the same code to all Forms. So i want to use Class to do the same work. How to do that ?



Best Regards,
SB4

[HanneSThEGreaT]

Create a new class ( Project, Add Class )

Type this into that class :

Public Class ClsButton
    Inherits Button
    Public Sub New()
        '  Dim btnClick As New Button
        Me.Location = New Point(106, 150)
        Me.Size = New Size(75, 23)
        Me.BackColor = Color.Brown
        Me.ForeColor = Color.White
        Me.Text = "Ok"
    End Sub

End Class

Once that is done, and your project is saved, the ClsButton component will be available in your Toolbox during Design time, and you could just drag it from there onto every form.

Have a look at the attachment

[SB4]

thanks HanneSThEGreaT


I test your file but it seems don't work with me I'm using Visual Stdio 2008.

I have question Why you type New after you define the sub Procedure ? the keyword Me refer to what ?


Best Regards,
SB4

[HanneSThEGreaT]

OK, in future you must please specify what version of VB you are using, as stated here :
http://www.codeguru.com/forum/showthread.php?t=403073


New, is used for the class' initialisation, where it is given default startup values.
Me refers to the current class, in this case, clsButton

[SB4]

Ok, i'm using Visual Basic.NET 2008 Pro / .NET Framework 3.5 SP1 How to modify the code to work

[HanneSThEGreaT]

I can't understand that this code is not presumably compatible with .NET 3.5. It is just a normal Class file, with code still compatible in all versions of .NET.
Post your program ( in .zip format ) here, as an attachment, so that we can have a closer look.