VB.NET Yana Doğru Açılıp Kapanan Form Yapma (1 kişi)

Çirkin KraL

Admin
Destek Ekibi
Kurumsal Üye
Site Kurucu
Repo Ekibi
Apple Expert
Katılım
9 Eki 2019
Mesajlar
769
Tepkime puanı
1,612
Puanları
353
Yaş
32
Konum
samsun
Web sitesi
www.trappledestek.com
2 adet button ekliyoruz
2 adet timer ekliyoruz

600 400 oranlarını değiştirerek ayarlayabilirsiniz.

Kod:
Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Width += 5
        If Me.Width = 600 Then
            Timer1.Enabled = False
            Button1.Enabled = True
            Button2.Enabled = True
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Me.Width -= 5
        If Me.Width = 400 Then
            Timer2.Enabled = False
            Button1.Enabled = True
            Button2.Enabled = True
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Button1.Enabled = False
        Button2.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer2.Enabled = True
        Button1.Enabled = False
        Button2.Enabled = False
    End Sub
End Class

7315

7316

7317


7318
 

Bu konuyu okuyanlar konu

Üst