VB.Net Dashboard Design complete code solution

VB.Net Dashboard Design

this dashboard contains a menu on the left side where you can display the application name / logo and buttons to allow the users to go ti different sections int the application.

VB.Net Dashboard Design - Menu

here you can show to the user the application keys analytics.

we will use panels and labels ( and use on mouse enter/leave event to make the design ).

you can use flatuicolorpicker.com to get some color ideas.

VB.Net Dashboard Design - Analytics

at the bottom of the dashboard we will show the best selling products on the store ( application ) with a price tag.


we will use panels and labels.

VB.Net Dashboard Design - Products

plus to the bestselling products the bottom of the dashboard also conatins messages / notifications.

VB.Net Dashboard Design - Notifications

– Source Code

Public Class Dashboard

    Private Sub Button1_MouseEnter(sender As Object, e As EventArgs) Handles Button1.MouseEnter

        Button1.BackColor = Color.FromArgb(67, 83, 98)

    End Sub

    Private Sub Button1_MouseLeave(sender As Object, e As EventArgs) Handles Button1.MouseLeave

        Button1.BackColor = Color.Transparent

    End Sub

    Private Sub Button2_MouseEnter(sender As Object, e As EventArgs) Handles Button2.MouseEnter

        Button2.BackColor = Color.FromArgb(67, 83, 98)

    End Sub

    Private Sub Button2_MouseLeave(sender As Object, e As EventArgs) Handles Button2.MouseLeave

        Button2.BackColor = Color.Transparent

    End Sub

    Private Sub Button3_MouseEnter(sender As Object, e As EventArgs) Handles Button3.MouseEnter

        Button3.BackColor = Color.FromArgb(67, 83, 98)

    End Sub

    Private Sub Button3_MouseLeave(sender As Object, e As EventArgs) Handles Button3.MouseLeave

        Button3.BackColor = Color.Transparent

    End Sub

    Private Sub Button4_MouseEnter(sender As Object, e As EventArgs) Handles Button4.MouseEnter

        Button4.BackColor = Color.FromArgb(67, 83, 98)

    End Sub

    Private Sub Button4_MouseLeave(sender As Object, e As EventArgs) Handles Button4.MouseLeave

        Button4.BackColor = Color.Transparent

    End Sub

    ‘ create vars to get the panels color
    Dim pProds As Color
    Dim pPrchs As Color
    Dim pRvn As Color

    Private Sub Dashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        pProds = Panel_Products.BackColor
        pPrchs = Panel_Purchases.BackColor
        pRvn = Panel_Revenue.BackColor

        ‘ display the logo
        PictureBox1.ImageLocation = “../../images/1BCB.png”

        ‘ display the products
        Panel_PR1.BackgroundImage = Image.FromFile(“../../images/product_1.png”)
        Panel_PR2.BackgroundImage = Image.FromFile(“../../images/product_2.png”)
        Panel_PR3.BackgroundImage = Image.FromFile(“../../images/product_3.png”)

    End Sub

    Private Sub Panel_Products_MouseEnter(sender As Object, e As EventArgs) Handles Panel_Products.MouseEnter, Label_Products.MouseEnter

        Panel_Products.BackColor = Color.White
        Label_Products.ForeColor = pProds

    End Sub

    Private Sub Panel_Products_MouseLeave(sender As Object, e As EventArgs) Handles Panel_Products.MouseLeave, Label_Products.MouseLeave

        Panel_Products.BackColor = pProds
        Label_Products.ForeColor = Color.White

    End Sub

    Private Sub Panel_Purchases_MouseEnter(sender As Object, e As EventArgs) Handles Panel_Purchases.MouseEnter, Label_Purchases.MouseEnter

        Panel_Purchases.BackColor = Color.White
        Label_Purchases.ForeColor = pPrchs

    End Sub

    Private Sub Panel_Purchases_MouseLeave(sender As Object, e As EventArgs) Handles Panel_Purchases.MouseLeave, Label_Purchases.MouseLeave

        Panel_Purchases.BackColor = pPrchs
        Label_Purchases.ForeColor = Color.White

    End Sub

    Private Sub Panel_Revenue_MouseEnter(sender As Object, e As EventArgs) Handles Panel_Revenue.MouseEnter, Label_Revenue.MouseEnter

        Panel_Revenue.BackColor = Color.White
        Label_Revenue.ForeColor = pRvn

    End Sub

    Private Sub Panel_Revenue_MouseLeave(sender As Object, e As EventArgs) Handles Panel_Revenue.MouseLeave, Label_Revenue.MouseLeave

        Panel_Revenue.BackColor = pRvn
        Label_Revenue.ForeColor = Color.White

    End Sub
End Class

Dashboard Design In Visual Basic .Net

freshersonline

Also read : Starlink should be fully mobile by the end of 2021
Also read : Can I invest in Cryptocurrency?

freshersonline

VB.Net Dashboard Design
#VBNet #Dashboard #Design

Leave a Comment