Vb.Net Animasyonlu Menü

[denemex123x]

Hepinize selamlar animasyonlu menü nasıl yapılır onu göstereceğim.

Formu alttaki resim gibi ayarlayın.

Yukardaki label'e uygulamanızının adının baş harflerini yazın.

Gerekenler:
2 adet Timer
1 adet Label
1 adet Button
1 adet Panel

NOT: Uzunlukları istediğiniz gibi ayarlayabilirsiniz.

Kodlar:
Button1
If Button1.Text = "->" Then
Timer1.Enabled = True
End If
If Button1.Text = "<-" Then
Timer2.Enabled = True
End If

Timer1 (Intervali 25 yapın)
Panel1.Width += 1
Panel1.Width += 1
If Panel1.Width = 148 Then ' Panel1 in yeni uzunluğunu alınca yapacağı işlemler
Timer1.Enabled = False
Label1.Text = "LifeQuenn"
Button1.Text = "<-"
Button1.Location = New Point(92, 423) ' Menü büyültme , küçültme tuşunun eski konumu
End If

Timer2 (Intervali 25 yapın)
Panel1.Width -= 1
Panel1.Width -= 1
If Panel1.Width = 66 Then ' Panel1 in eski uzunluğunu alınca yapacağı işlemler.-
Timer2.Enabled = False
Label1.Text = "LQ"
Button1.Text = "->"
Button1.Location = New Point(9, 421) ' Menü büyültme , küçültme tuşunun yeni konumu

 

[dear Dai]

yeni başlayanlar kullanabilir yararlı

 

[wjörn]

teşekkürler yararlı konu.

 

[Trigon]

While döngüsüde kullanılabilirdi
Örnek :

        While p0 < 223
            p0 += 1
            Panel3.Width = p0
        End While

 

[alieren55123]

teşekkürler yararlı bilgi

 

[By ŞaHaNe]

Teşekkürler eline sağlık

 

[EasyyHax]

teşekkürler eline sağlık <3

 

[denemex123x]

teşekkürler eline sağlık <3

bişey değil <3

 

[emirpng]

Teşekkürler

 

[Cromeflex]

While döngüsüde kullanılabilirdi
Örnek :

        While p0 < 223
            p0 += 1
            Panel3.Width = p0
        End While

While ile daha mantıklı

 

[mowen1]

While döngüsüde kullanılabilirdi
Örnek :

        While p0 < 223
            p0 += 1
            Panel3.Width = p0
        End While

çok mantıklı

 

[SirTogyFerguson]

Teşekkürler ellerine sağlık

 

[kado0201]

teşekkürler yararlı

 

[xxv333]

teşekkürler deniyelim hemen

 

[3bcreno]

teşekkürler yararlı bilgi

 

[Z1pperNt]

Hey, it's pretty easy to do, cool, I'm going to practice

 

[nevocan35]

Teşekkür ederim

 

[abdoghyad]

Bu iyi konu için teşekkürler

 

[Bloodkinq23]

Yararli çok sağol dostum emeğe saygı

 

[cromber]

yararlı bilgi teşekkürler