Breadcrumbs

[CleverBoy]

Guys i need help on how i can make custom control "User Control"
if you can make a tutorial or give me youtube link i will give you 5 credits
or if it was very advanced 10 credits

Thanks

[mandai]

See viewtopic.php?f=32&t=2553&p=16213#p16213

[CleverBoy]

but how i make a button with codes like if i want to change text

Code: Select all

MyCustomButton1.text = "Button1"

and other codes like

Code: Select all

MyCustomButton1.enabled = true
MyCustomButton1.BackColor = Color.Black
etc;;

How i do this ?

+ how i make them in properties



Uploaded with ImageShack.us

[mandai]

You can set the button's modifier to public.

[CleverBoy]

Thanks Mandai Alot you help me 50%
now how i set things in Properties like in the ScreanShot ?

-Sorry for my bad Eng

[mandai]

You can make a new property for the control with this:

Code: Select all

    Dim test As String = ""
    Public Property example() As String
        Get
            Return test
        End Get
        Set(ByVal value As String)
            test = value
        End Set
    End Property

[dj1437]

You will need a few resources, a up picture, down, and hover, then insert this code

Code: Select all

Imports System.Windows.Forms
Public Class The buttons name here
    Inherits Windows.Forms.Button
    Public Sub New()
        Me.Size = New System.Drawing.Point
        Me.FlatStyle = Windows.Forms.FlatStyle.Flat
        Me.FlatAppearance.BorderSize = 0
        Me.FlatAppearance.MouseDownBackColor = Drawing.Color.Transparent
        Me.FlatAppearance.MouseOverBackColor = Drawing.Color.Transparent
        Me.BackColor = System.Drawing.Color.Transparent
        Me.Text = ("ButtonNameHere")
        Me.ForeColor = Drawing.Color.White
        Me.BackgroundImage = My.Resources.Up
        Me.BackgroundImageLayout = ImageLayout.Stretch
    End Sub

    Private Sub Class1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Me.BackgroundImage = My.Resources.down
        Me.BackgroundImageLayout = ImageLayout.Stretch
    End Sub

    Private Sub Class1_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseHover
        Me.BackgroundImage = My.Resources.hover
        Me.BackgroundImageLayout = ImageLayout.Stretch
    End Sub

    Private Sub Class1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.MouseLeave
        Me.BackgroundImage = My.Resources.Regular
        Me.BackgroundImageLayout = ImageLayout.Stretch
    End Sub

    Private Sub Class1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Me.BackgroundImage = My.Resources.up
        Me.BackgroundImageLayout = ImageLayout.Stretch
    End Sub
End Class

once edited this peice of code and stuff go to build project and it will make a .dll of the things name, also you can edit this thing so that it can be a toolstrip, progressbar, statusstrip, tab control or many other things :P