Visual Basic bilenler bir bakabilir mi buttonla alakalı bir sorum var.

kasastura1' Alıntı:

Arkadaşlar bana şöyle birşey lazım Button1 diye bir butonumuz var diyelim buna tıkladığımızda çalıştı başka yere tıklayınca bile o seçili kalıyor, bana lazım olan 1 kez tıklanması . 1 kez tıkladığımızda çalışsın sonra seçilirliği kalksın yani maviliği. Nasıl yapabilirim?

Genişletmek için tıkla ...

http://i.hizliresim.com/rQnGom.gif

Genişletmek için tıkla ...

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button4.Enabled = True
        Button3.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Button5.Enabled = True
        Button4.Enabled = False
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Button6.Enabled = True
        Button5.Enabled = False
    End Sub
End Class

XSPEEDX' Alıntı:

Önce 6 buton olduğunu varsayalım 1.button hariç hepsinin enabled'ini false yap.. ve alttaki kodları tek tek yerleştir.. Alttaki kodları formun içine yerleştir..

Gif yükledim... sadece 1.butonun enabled'ini true yap birde istersen aynı enabled gibi gözükmelerini istemiyorsan.. visible = false kullanabilirsin..

Kod:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button4.Enabled = True
        Button3.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Button5.Enabled = True
        Button4.Enabled = False
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Button6.Enabled = True
        Button5.Enabled = False
    End Sub
End Class

Genişletmek için tıkla ...