VB.Net - Make A DropDown Menu

How To Make A Drop And Down Menu Using Visual Basic.Net

In This VB.Net Tutorial  We Will See How To Create A Drop-Down Menu Using Panels, Buttons, And Timers In Visual Basic.Net Programming Language.

Project Source Code:

Public Class drop_down_menu

    ' pl1 = panel1 height

    Dim pl1 As Integer = 60

    ' pl2 = panel2 height

    Dim pl2 As Integer = 60

    ' pl3 = panel3 height

    Dim pl3 As Integer = 60

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

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        ' 250 = panel height

        If pl1 > 240 Then

            Timer1.Stop()

        Else

            Me.Panel1.Size = New Size(Me.Panel1.Size.Width, pl1)

            pl1 += 10

        End If

    End Sub

    Private Sub Button1_MouseHover(sender As Object, e As EventArgs) Handles Button1.MouseHover

        ' on button1 mouse hover set panel2 and panel3 to the default height (60) 

        Me.Panel2.Size = New Size(Me.Panel2.Size.Width, pl2)

        Me.Panel3.Size = New Size(Me.Panel3.Size.Width, pl3)

        Timer1.Start()

    End Sub

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

        Timer1.Stop()

        pl1 = 60

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        If pl2 > 240 Then

            Timer2.Stop()

        Else

            Me.Panel2.Size = New Size(Me.Panel2.Size.Width, pl2)

            pl2 += 10

        End If

    End Sub

    Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick

        If pl3 > 240 Then

            Timer3.Stop()

        Else

            Me.Panel3.Size = New Size(Me.Panel3.Size.Width, pl3)

            pl3 += 10

        End If

    End Sub

    Private Sub Button8_MouseHover(sender As Object, e As EventArgs) Handles Button8.MouseHover

        ' on button8 mouse hover set panel1 and panel3 to the default height (60) 

        Me.Panel1.Size = New Size(Me.Panel1.Size.Width, pl1)

        Me.Panel3.Size = New Size(Me.Panel3.Size.Width, pl3)

        Timer2.Start()

    End Sub

    Private Sub Button8_MouseLeave(sender As Object, e As EventArgs) Handles Button8.MouseLeave

        Timer2.Stop()

        pl2 = 60

    End Sub

    Private Sub Button12_MouseHover(sender As Object, e As EventArgs) Handles Button12.MouseHover

        ' on button12 mouse hover set panel2 and panel1 to the default height (60) 

        Me.Panel2.Size = New Size(Me.Panel2.Size.Width, pl2)

        Me.Panel1.Size = New Size(Me.Panel1.Size.Width, pl1)

        Timer3.Start()

    End Sub

    Private Sub Button12_MouseLeave(sender As Object, e As EventArgs) Handles Button12.MouseLeave

        Timer3.Stop()

        pl3 = 60

    End Sub

End Class

//OutPut:

---

More VB.NET

➜ VB.Net Courses

➜ VB.Net Projects