Login Register






SMTPMart - Buy Inbox SMTP | Leads | Shell | cPanel 100% Bonus on 1st deposit | Instant Refunds
ProxyByte $2/GB | Residential IPv4 - No Logs - 26M+ IPs - All unblocked
REFUNDING.GG | #1 REFUND SERVICE | SAME DAY REFUNDS | WORLDWIDE ORDERS | GET ITEMS 85% OFF
Thread Rating:
  • 0 Vote(s) - 0 Average


Anim TabControl Class filter_list
Author
Message
barukoru Offline
Junior Member
Eleven Years of Service
Posts: 13
Threads: 5
Reputation: 0

Points: 0NSP
Anim TabControl Class 08-15-2013, 10:13 PM #1
Code:
Public Class AnimTab
    Inherits TabControl
    Dim OldIndex As Integer

    Private _Speed As Integer = 9
    Property Speed As Integer
        Get
            Return _Speed
        End Get
        Set(ByVal value As Integer)
            If value > 20 Or value < -20 Then
                MsgBox("Speed needs to be in between -20 and 20.")
            Else
                _Speed = value
            End If
        End Set
    End Property

    Sub New()
        SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.ResizeRedraw, True)
    End Sub

    Sub DoAnimationScrollLeft(ByVal Control1 As Control, ByVal Control2 As Control)
        Dim G As Graphics = Control1.CreateGraphics()
        Dim P1 As New Bitmap(Control1.Width, Control1.Height)
        Dim P2 As New Bitmap(Control2.Width, Control2.Height)
        Control1.DrawToBitmap(P1, New Rectangle(0, 0, Control1.Width, Control1.Height))
        Control2.DrawToBitmap(P2, New Rectangle(0, 0, Control2.Width, Control2.Height))

        For Each c As Control In Control1.Controls
            c.Hide()
        Next

        Dim Slide As Integer = Control1.Width - (Control1.Width Mod _Speed)

        Dim a As Integer
        For a = 0 To Slide Step _Speed
            G.DrawImage(P1, New Rectangle(a, 0, Control1.Width, Control1.Height))
            G.DrawImage(P2, New Rectangle(a - Control2.Width, 0, Control2.Width, Control2.Height))
        Next
        a = Control1.Width
        G.DrawImage(P1, New Rectangle(a, 0, Control1.Width, Control1.Height))
        G.DrawImage(P2, New Rectangle(a - Control2.Width, 0, Control2.Width, Control2.Height))

        SelectedTab = Control2

        For Each c As Control In Control2.Controls
            c.Show()
        Next

        For Each c As Control In Control1.Controls
            c.Show()
        Next
    End Sub

    Protected Overrides Sub OnSelecting(ByVal e As System.Windows.Forms.TabControlCancelEventArgs)
        If OldIndex < e.TabPageIndex Then
            DoAnimationScrollRight(TabPages(OldIndex), TabPages(e.TabPageIndex))
        Else
            DoAnimationScrollLeft(TabPages(OldIndex), TabPages(e.TabPageIndex))
        End If
    End Sub

    Protected Overrides Sub OnDeselecting(ByVal e As System.Windows.Forms.TabControlCancelEventArgs)
        OldIndex = e.TabPageIndex
    End Sub

    Sub DoAnimationScrollRight(ByVal Control1 As Control, ByVal Control2 As Control)
        Dim G As Graphics = Control1.CreateGraphics()
        Dim P1 As New Bitmap(Control1.Width, Control1.Height)
        Dim P2 As New Bitmap(Control2.Width, Control2.Height)
        Control1.DrawToBitmap(P1, New Rectangle(0, 0, Control1.Width, Control1.Height))
        Control2.DrawToBitmap(P2, New Rectangle(0, 0, Control2.Width, Control2.Height))

        For Each c As Control In Control1.Controls
            c.Hide()
        Next

        Dim Slide As Integer = Control1.Width - (Control1.Width Mod _Speed)

        Dim a As Integer
        For a = 0 To -Slide Step -_Speed
            G.DrawImage(P1, New Rectangle(a, 0, Control1.Width, Control1.Height))
            G.DrawImage(P2, New Rectangle(a + Control2.Width, 0, Control2.Width, Control2.Height))
        Next
        a = Control1.Width
        G.DrawImage(P1, New Rectangle(a, 0, Control1.Width, Control1.Height))
        G.DrawImage(P2, New Rectangle(a + Control2.Width, 0, Control2.Width, Control2.Height))

        SelectedTab = Control2

        For Each c As Control In Control2.Controls
            c.Show()
        Next

        For Each c As Control In Control1.Controls
            c.Show()
        Next
    End Sub

End Class

Reply

F1L15K0 Offline
Junior Member
Eleven Years of Service
Posts: 28
Threads: 0
Reputation: 0

Points: 0NSP
RE: Anim TabControl Class 09-01-2013, 02:37 AM #2
put some pictures man! just a suggestion.

Reply

GreyPhantom Offline
Junior Member
Twelve Years of Service
Posts: 14
Threads: 0
Reputation: 0

Points: 3NSP
RE: Anim TabControl Class 10-28-2013, 01:46 PM #3
Nothing special with this class.

Reply

GreyPhantom Offline
Junior Member
Twelve Years of Service
Posts: 14
Threads: 0
Reputation: 0

Points: 3NSP
RE: Anim TabControl Class 10-28-2013, 01:46 PM #4
Nothing special with this class.

Reply

GreyPhantom Offline
Junior Member
Twelve Years of Service
Posts: 14
Threads: 0
Reputation: 0

Points: 3NSP
RE: Anim TabControl Class 10-28-2013, 01:46 PM #5
Nothing special with this class.

Reply

GreyPhantom Offline
Junior Member
Twelve Years of Service
Posts: 14
Threads: 0
Reputation: 0

Points: 3NSP
RE: Anim TabControl Class 10-28-2013, 01:46 PM #6
Nothing special with this class.

Reply

barukoru Offline
Junior Member
Eleven Years of Service
Posts: 13
Threads: 5
Reputation: 0

Points: 0NSP
RE: Anim TabControl Class 10-28-2013, 02:20 PM #7
Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each tc In {AnimTab1}
            With tc
                .SuspendLayout()
                .SizeMode = TabSizeMode.Fixed
                .ItemSize = New Size(0, 1)
                .Appearance = TabAppearance.Buttons
                .ResumeLayout()
            End With
        Next
    End Sub
    Public Class TabcontrolWithoutTabs
        Inherits TabControl

        Protected Overrides Sub WndProc(ByRef m As Message)
            If m.Msg = &H1328 Then
                m.Result = CType(1, IntPtr)
            Else
                MyBase.WndProc(m)
            End If
        End Sub

    End Class


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AnimTab1.SelectedIndex = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AnimTab1.SelectedIndex = 1
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        AnimTab1.SelectedIndex = 2
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        AnimTab1.SelectedIndex = 3
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        AnimTab1.SelectedIndex = 4
    End Sub
End Class
This code You must add to Your Form

Reply

barukoru Offline
Junior Member
Eleven Years of Service
Posts: 13
Threads: 5
Reputation: 0

Points: 0NSP
RE: Anim TabControl Class 10-28-2013, 02:20 PM #8
Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each tc In {AnimTab1}
            With tc
                .SuspendLayout()
                .SizeMode = TabSizeMode.Fixed
                .ItemSize = New Size(0, 1)
                .Appearance = TabAppearance.Buttons
                .ResumeLayout()
            End With
        Next
    End Sub
    Public Class TabcontrolWithoutTabs
        Inherits TabControl

        Protected Overrides Sub WndProc(ByRef m As Message)
            If m.Msg = &H1328 Then
                m.Result = CType(1, IntPtr)
            Else
                MyBase.WndProc(m)
            End If
        End Sub

    End Class


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AnimTab1.SelectedIndex = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AnimTab1.SelectedIndex = 1
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        AnimTab1.SelectedIndex = 2
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        AnimTab1.SelectedIndex = 3
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        AnimTab1.SelectedIndex = 4
    End Sub
End Class
This code You must add to Your Form

Reply

barukoru Offline
Junior Member
Eleven Years of Service
Posts: 13
Threads: 5
Reputation: 0

Points: 0NSP
RE: Anim TabControl Class 10-28-2013, 02:20 PM #9
Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each tc In {AnimTab1}
            With tc
                .SuspendLayout()
                .SizeMode = TabSizeMode.Fixed
                .ItemSize = New Size(0, 1)
                .Appearance = TabAppearance.Buttons
                .ResumeLayout()
            End With
        Next
    End Sub
    Public Class TabcontrolWithoutTabs
        Inherits TabControl

        Protected Overrides Sub WndProc(ByRef m As Message)
            If m.Msg = &H1328 Then
                m.Result = CType(1, IntPtr)
            Else
                MyBase.WndProc(m)
            End If
        End Sub

    End Class


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AnimTab1.SelectedIndex = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AnimTab1.SelectedIndex = 1
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        AnimTab1.SelectedIndex = 2
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        AnimTab1.SelectedIndex = 3
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        AnimTab1.SelectedIndex = 4
    End Sub
End Class
This code You must add to Your Form

Reply

barukoru Offline
Junior Member
Eleven Years of Service
Posts: 13
Threads: 5
Reputation: 0

Points: 0NSP
RE: Anim TabControl Class 10-28-2013, 02:20 PM #10
Code:
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each tc In {AnimTab1}
            With tc
                .SuspendLayout()
                .SizeMode = TabSizeMode.Fixed
                .ItemSize = New Size(0, 1)
                .Appearance = TabAppearance.Buttons
                .ResumeLayout()
            End With
        Next
    End Sub
    Public Class TabcontrolWithoutTabs
        Inherits TabControl

        Protected Overrides Sub WndProc(ByRef m As Message)
            If m.Msg = &H1328 Then
                m.Result = CType(1, IntPtr)
            Else
                MyBase.WndProc(m)
            End If
        End Sub

    End Class


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AnimTab1.SelectedIndex = 0
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        AnimTab1.SelectedIndex = 1
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        AnimTab1.SelectedIndex = 2
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        AnimTab1.SelectedIndex = 3
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        AnimTab1.SelectedIndex = 4
    End Sub
End Class
This code You must add to Your Form

Reply







Users browsing this thread: 1 Guest(s)