[Vertu]

[IMG]http://www.[censored].net/uploads/1d26029562.gif[/IMG]
ow to do that WITHOUT using any images?

We just need 1 Button (of course), 2 events for calling our function, and our same Function from before (which is here slightly modified).

Here is the Function, I call it this time PaintGradient.

Code

Public Sub PaintGradient(ByVal aControl As Control, ByVal Color1 As Color, ByVal Color2 As Color, _
    Optional ByVal mode As System.Drawing.Drawing2D.LinearGradientMode = Drawing2D.LinearGradientMode.Vertical)

        Dim bmp As New Bitmap(aControl.Width, aControl.Height)
        Dim g As Graphics = Graphics.FromImage(bmp)
        Dim Rect1 As New RectangleF(0, 0, aControl.Width, aControl.Height)

        Dim lineGBrush As New System.Drawing.Drawing2D.LinearGradientBrush(Rect1, Color1, Color2, mode)
        g.FillRectangle(lineGBrush, Rect1)

        aControl.BackgroundImage = bmp
        g.Dispose()
    End Sub

Now we will use 2 events from our Button, MouseEnter and MouseLeave

Code

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
        PaintGradient(Button1, Color.LightGoldenrodYellow, Color.YellowGreen)
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
        Button1.BackgroundImage = Nothing
    End Sub

That's it, you are done. :lol:

[Cody8295]

ow to do that WITHOUT using any images?

Technically this is using images. Hence the bitmap.

[no1me]

why not

PHP Code


<?php 
Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
  PaintGradient(Button1, Color.LightGoldenrodYellow, Color.YellowGreen)
    End Sub
    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
  PaintGradient(Button1, Color.LightGoldenrodYellow, Color.Green)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  PaintGradient(Button1, Color.LightGoldenrodYellow, Color.Yellow)
    End Sub 


[Vertu]

Technically this is using images. Hence the bitmap.

Ok,just i you dint need to load from resources

@no1me

That works too 🤗

[Cody8295]

Ok,just i you dint need to load from resources

@no1me

That works too 🤗

You don't need to if you use and imagelist with local images.

---

[Kōtei]

This is nice, thank you no1me for the code modification, making it simpler and such.

[Marketplace]

I love this. I hope you make more tutorials like how to make custom background, progress bars, etc.

And can't you do:

Code

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
  Button1.BackColor = Color.LightGoldenrodYellow
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
  Button1.BackColor = Color.Empty
    End Sub

[Aeonhack Archivist]

I love this. I hope you make more tutorials like how to make custom background, progress bars, etc.

And can't you do:

Code

Private Sub Button1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseEnter
  Button1.BackColor = Color.LightGoldenrodYellow
    End Sub

    Private Sub Button1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.MouseLeave
  Button1.BackColor = Color.Empty
    End Sub

All your code is doing is applying a single color. The other codes are filling with a gradient.