How to make Stylish and Animated Tabbed forms | with source code (VB.Net & C#)

By -
How to make stylish and animated tabbed forms in vb.net & c#.
Lets start:

Step : 1
Create 3 forms,

  1. Main form
  2. FormTopTabs
  3. FormLeftTabs


Step: 2
On main form create only two buttons
One for FormTopTabs
One for FormLeftTabs
tabbed-form-vb.net-c#
Step: 3
Create controls:
Create a left panel where you can put your tabbed button.
Create a panel on top where you can show your tab form name
Create a main panel where the tabbed form are open
tabbed-form-vb.net-c#


tabbed-form-vb.net-c#



Final Step: Codes
Codes for Main Form:


Public Class MainForm

     Private Sub MetroButton1_Click(sender As Object, e As EventArgs) Handles MetroButton1.Click
        Form1.Show()
    End Sub

     Private Sub MetroButton2_Click(sender As Object, e As EventArgs) Handles MetroButton2.Click
        Form2.Show()
    End Sub


Codes for FormTopTabs

Imports BunifuAnimatorNS

Public Class Form2

     Dim btn As Button = Nothing
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BunifuFlatButton1.Width = Panel4.Width / 20 : BunifuFlatButton1.Text = "Tab-1"
        BunifuFlatButton2.Width = Panel4.Width / 20 : BunifuFlatButton2.Text = "Tab-2"
        BunifuFlatButton3.Width = Panel4.Width / 20 : BunifuFlatButton3.Text = "Tab-3"
        BunifuFlatButton4.Width = Panel4.Width / 20 : BunifuFlatButton4.Text = "Tab-4"
        BunifuFlatButton5.Width = Panel4.Width / 20 : BunifuFlatButton5.Text = "Tab-5"
        BunifuFlatButton6.Width = Panel4.Width / 20 : BunifuFlatButton6.Text = "Tab-6"
        BunifuFlatButton7.Width = Panel4.Width / 20 : BunifuFlatButton7.Text = "Tab-7"
        BunifuFlatButton8.Width = Panel4.Width / 20 : BunifuFlatButton8.Text = "Tab-8"
        BunifuFlatButton9.Width = Panel4.Width / 20 : BunifuFlatButton9.Text = "Tab-9"
        BunifuFlatButton10.Width = Panel4.Width / 20 : BunifuFlatButton10.Text = "Tab-10"
        BunifuFlatButton11.Width = Panel4.Width / 20 : BunifuFlatButton11.Text = "Tab-11"
        BunifuFlatButton12.Width = Panel4.Width / 20 : BunifuFlatButton12.Text = "Tab-12"
        BunifuFlatButton13.Width = Panel4.Width / 20 : BunifuFlatButton13.Text = "Tab-13"
        BunifuFlatButton14.Width = Panel4.Width / 20 : BunifuFlatButton14.Text = "Tab-14"
        BunifuFlatButton15.Width = Panel4.Width / 20 : BunifuFlatButton15.Text = "Tab-15"
        BunifuFlatButton16.Width = Panel4.Width / 20 : BunifuFlatButton16.Text = "Tab-16"
        BunifuFlatButton17.Width = Panel4.Width / 20 : BunifuFlatButton17.Text = "Tab-17"
        BunifuFlatButton18.Width = Panel4.Width / 20 : BunifuFlatButton18.Text = "Tab-18"
        BunifuFlatButton19.Width = Panel4.Width / 20 : BunifuFlatButton19.Text = "Tab-19"
        BunifuFlatButton20.Width = Panel4.Width / 20 : BunifuFlatButton20.Text = "Tab-20"
    End Sub

     Private Sub MetroButton1_Click(sender As Object, e As EventArgs) Handles MetroButton1.Click
        Me.Close()
    End Sub

     Private Sub BunifuFlatButton1_Click(sender As Object, e As EventArgs) Handles BunifuFlatButton1.Click, BunifuFlatButton2.Click, BunifuFlatButton3.Click, BunifuFlatButton4.Click, BunifuFlatButton5.Click, BunifuFlatButton6.Click, BunifuFlatButton7.Click, BunifuFlatButton8.Click, BunifuFlatButton9.Click, BunifuFlatButton10.Click, BunifuFlatButton11.Click, BunifuFlatButton12.Click, BunifuFlatButton13.Click, BunifuFlatButton14.Click, BunifuFlatButton15.Click, BunifuFlatButton16.Click, BunifuFlatButton17.Click, BunifuFlatButton18.Click, BunifuFlatButton19.Click, BunifuFlatButton20.Click
        Dim transition1 As BunifuTransition = New BunifuTransition()
        Dim clickedButton = TryCast(sender, Bunifu.Framework.UI.BunifuFlatButton)
        Label1.Text = clickedButton.Text

         Dim testString As String = Label1.Text
        ' Returns "World!".
        Dim subString As String = Microsoft.VisualBasic.Right(testString, 1)
        If CInt(subString) = 1 Then
            Label2.BackColor = Color.Azure
            Panel5.BackColor = Color.Azure
        ElseIf CInt(subString) = 2 Then
            Label2.BackColor = Color.AntiqueWhite
            Panel5.BackColor = Color.AntiqueWhite
        ElseIf CInt(subString) = 3 Then
            Label2.BackColor = Color.Beige
            Panel5.BackColor = Color.Beige
        ElseIf CInt(subString) = 4 Then
            Label2.BackColor = Color.Brown
            Panel5.BackColor = Color.Brown
        ElseIf CInt(subString) = 5 Then
            Label2.BackColor = Color.CadetBlue
            Panel5.BackColor = Color.CadetBlue
        Else
            Label2.BackColor = Color.CornflowerBlue
            Panel5.BackColor = Color.CornflowerBlue
        End If
        Label2.Text = "PREVIEW OF " & testString
        If Tab1_Panel.Visible = True Then Tab1_Panel.Visible = False
        If Tab1_Panel.Visible = False Then
            transition1.ShowSync(Tab1_Panel, False, BunifuAnimatorNS.Animation.ScaleAndRotate)
        End If

     End Sub
End Class


Codes for FormLeftTabs

Imports BunifuAnimatorNS

 Public Class Form1

     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        BunifuFlatButton1.Height = Panel2.Height / 20 : BunifuFlatButton1.Text = "Tab-1"
        BunifuFlatButton2.Height = Panel2.Height / 20 : BunifuFlatButton2.Text = "Tab-2"
        BunifuFlatButton3.Height = Panel2.Height / 20 : BunifuFlatButton3.Text = "Tab-3"
        BunifuFlatButton4.Height = Panel2.Height / 20 : BunifuFlatButton4.Text = "Tab-4"
        BunifuFlatButton5.Height = Panel2.Height / 20 : BunifuFlatButton5.Text = "Tab-5"
        BunifuFlatButton6.Height = Panel2.Height / 20 : BunifuFlatButton6.Text = "Tab-6"
        BunifuFlatButton7.Height = Panel2.Height / 20 : BunifuFlatButton7.Text = "Tab-7"
        BunifuFlatButton8.Height = Panel2.Height / 20 : BunifuFlatButton8.Text = "Tab-8"
        BunifuFlatButton9.Height = Panel2.Height / 20 : BunifuFlatButton9.Text = "Tab-9"
        BunifuFlatButton10.Height = Panel2.Height / 20 : BunifuFlatButton10.Text = "Tab-10"
        BunifuFlatButton11.Height = Panel2.Height / 20 : BunifuFlatButton11.Text = "Tab-11"
        BunifuFlatButton12.Height = Panel2.Height / 20 : BunifuFlatButton12.Text = "Tab-12"
        BunifuFlatButton13.Height = Panel2.Height / 20 : BunifuFlatButton13.Text = "Tab-13"
        BunifuFlatButton14.Height = Panel2.Height / 20 : BunifuFlatButton14.Text = "Tab-14"
        BunifuFlatButton15.Height = Panel2.Height / 20 : BunifuFlatButton15.Text = "Tab-15"
        BunifuFlatButton16.Height = Panel2.Height / 20 : BunifuFlatButton16.Text = "Tab-16"
        BunifuFlatButton17.Height = Panel2.Height / 20 : BunifuFlatButton17.Text = "Tab-17"
        BunifuFlatButton18.Height = Panel2.Height / 20 : BunifuFlatButton18.Text = "Tab-18"
        BunifuFlatButton19.Height = Panel2.Height / 20 : BunifuFlatButton19.Text = "Tab-19"
        BunifuFlatButton20.Height = Panel2.Height / 20 : BunifuFlatButton20.Text = "Tab-20"
    End Sub

     Private Sub BunifuFlatButton1_Click(sender As Object, e As EventArgs) Handles BunifuFlatButton1.Click, BunifuFlatButton2.Click, BunifuFlatButton3.Click, BunifuFlatButton4.Click, BunifuFlatButton5.Click, BunifuFlatButton6.Click, BunifuFlatButton7.Click, BunifuFlatButton8.Click, BunifuFlatButton9.Click, BunifuFlatButton10.Click, BunifuFlatButton11.Click, BunifuFlatButton12.Click, BunifuFlatButton13.Click, BunifuFlatButton14.Click, BunifuFlatButton15.Click, BunifuFlatButton16.Click, BunifuFlatButton17.Click, BunifuFlatButton18.Click, BunifuFlatButton19.Click, BunifuFlatButton20.Click
        Dim transition1 As BunifuTransition = New BunifuTransition()
        Dim clickedButton = TryCast(sender, Bunifu.Framework.UI.BunifuFlatButton)
        Label1.Text = clickedButton.Text

         Dim testString As String = Label1.Text
        ' Returns "World!".
        Dim subString As String = Microsoft.VisualBasic.Right(testString, 1)
        If CInt(subString) = 1 Then
            Label2.BackColor = Color.Azure
            Panel5.BackColor = Color.Azure
        ElseIf CInt(subString) = 2 Then
            Label2.BackColor = Color.AntiqueWhite
            Panel5.BackColor = Color.AntiqueWhite
        ElseIf CInt(subString) = 3 Then
            Label2.BackColor = Color.Beige
            Panel5.BackColor = Color.Beige
        ElseIf CInt(subString) = 4 Then
            Label2.BackColor = Color.Brown
            Panel5.BackColor = Color.Brown
        ElseIf CInt(subString) = 5 Then
            Label2.BackColor = Color.CadetBlue
            Panel5.BackColor = Color.CadetBlue
        Else
            Label2.BackColor = Color.CornflowerBlue
            Panel5.BackColor = Color.CornflowerBlue
        End If
        Label2.Text = "PREVIEW OF " & testString
            If Tab1_Panel.Visible = True Then Tab1_Panel.Visible = False
            If Tab1_Panel.Visible = False Then
            transition1.ShowSync(Tab1_Panel, False, BunifuAnimatorNS.Animation.Leaf)
        End If

     End Sub

   
End Class





Comments

Post a Comment

Popular posts from this blog

How to Connect Android to Multiple WiFi Hotspots

By -
Image
Using Android, it’s easy to connect to multiple Wi-Fi networks, so you’ll never have to connect to the web when you arrive home as the device is already connected. W ith Android, it’s incredibly easy to set up separate home and work Wi-Fi connections, so whenever you walk through the door your Android device will automatically connect without even asking. Explore the Market and you’ll find exciting third-party apps that add even more functionality to your smartphone. Follow us over the next two pages as we explore the various Wi-Fi options built in to the Android OS, and take a look at some free apps intended to make life even easier. Discover some great apps that automate connecting to free Wi-Fi Networks. You may also like this: Phone my PC Setup for Android 1 ● Turn On Wi-Fi As you read this there’s a high chance that multiple Wi-Fi connections are available all around you. To find out if that’s the case, tap the Menu key on your Android device, choose
Read more

Commets, Varialbles & Special Keywords

By -
Image
Comments Javascript supports two types of comments. Double-slashes (//) tell javascript to ignore everything to the end of the line. You will see them used most often to describe what is happening on a particular line. var x=5; // Everything from the // to end of line is ignored(*) var thingamajig=123.45; // 2 times the price of a whatsit. "Blockquotes" begin a comment block with a slash-asterisk (/*) and Javascript will ignore everything from the start of the comment block until it encounters an asterisk-slash (*/). Blockquotes are useful for temporally disabling large areas of code, or describing the purpose of a function, or detailing the purpose and providing credits for the script itself.  function whirlymajig(jabberwocky) {    /* Here we take the jabberwocky and insert it in the gire-gimble, taking great care to observe the ipsum lorum!   For bor-rath-outgrabe! We really should patent this! */    return (jabberwocky*2); } You should
Read more