Breadcrumbs

[bjm0008]

Here's a cool slide effect I made.
( My form's height is 74 )
I Don't want anybody telling me you can use cases instead of two buttons, I'm well aware of that.

Code: Select all

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Do Until Me.Height = 200
            Me.Height = Me.Height + 1
        Loop
        Button1.Hide()
        Button1.Enabled = False
        Button2.Show()
        Button2.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Do Until Me.Height = 74
            Me.Height = Me.Height - 1
        Loop
        Button2.Hide()
        Button2.Enabled = False
        Button1.Show()
        Button1.Enabled = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Button2.Visible = False
        Button2.Enabled = False
    End Sub
End Class

There are a couple variables that you can change to fit your need. The -Do until me.height = "Your Height Here" in the first button.
And the -Do until me.height = "The height you began with"

[CodenStuff]

I like this, very good .

[CodemaN]

clapper; clapper; clapper; clapper; clapper; clapper;

[TheET]

Wow good

[TheET]

check this out:
viewtopic.php?f=66&t=460

[bjm0008]

Thanks for all the positive feedback, and ken.ao's tutorial is very nice. Borderless, movable forms; great for custom themes.

[Nery]

[bjm0008]

Nery, repost the picture.
I can't see it. (Theres a red "X" in a white box with the word image next to it)

[Nery]

I can see the picture fine...

Picture Link: download/file.php?id=186

[Robby]

wow really good

Keep it up