Checkbox if kullanımı

serox02.03.20158 cevap3.527 görüntüleme

2013'den beri11 mesaj

#1
02.03.2015 00:21

iyi çalışmalar arkadaşlar. çalışmakta olduğum projede bir yerde takıldım. belki basit bir problem ama bi formül bulamadım.
kısaca açıklayayım;
label3 de yazan rakam eğer 10 dan büyükse checkbox seçili olacak. ancak problem şu istenildiği takdirdede kullanıcı checkboxdaki işareti kaldırabilmeli. ancak bu konuda başarılı olamadım. formülü yazdığımda otomatik işaretleniyor ancak kullanıcı işareti kaldıramıyor. yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim

button1 de kullandığım formül;
If (Label3.Text > 10) Then
CheckBox1.Checked = True
End If

Cevaplar

darkshades1

2013'den beri7 mesaj

#2
02.03.2015 07:52

demek istedğin olay bu mu

serox Konuyu açan

2013'den beri11 mesaj

#3
02.03.2015 08:24

evet tam olarakda bu. tek fark benim butonum form1 de checkbox ım form 2 de. yani birebir aynı.

darkshades1

2013'den beri7 mesaj

#4
02.03.2015 09:14

bende herhangi bir sorun olmuyor kodlarını gözden geçirmeni tavsiye ederim

serox Konuyu açan

2013'den beri11 mesaj

#5
02.03.2015 09:24

defalarca denedim. eminim çok basit bir yerde hata yapıyorum ama göremedim bir türlü. kodları tam yazıyorum. birde siz kontrol ederseniz sevinirim

label3 ü değiştirecek kod:
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
Form2.Label3.Text = Val(Form2.Label1.Text) * Val(12) + Val(Form2.Label2.Text) - Val(1)
End Sub

checkbox1 için kod:
Private Sub CheckBox1_CheckedChanged_2(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If (Label3.Text > 10) Then
CheckBox1.Checked = True
End If
End Sub

darkshades1

2013'den beri7 mesaj

#6
02.03.2015 09:49

checkbox'ın işareti her değiştiğinde eğer label3deki rakam 10dan büyükse checkbox işaretlenir bunu eğer
CheckBox1.CheckedChanged'e atarsanız işareti kaldıramazsınız size tavsiyem eğer label3 sürekli değişiyor ve değişen rakam 10dan büyük olursa checkbox işaretlenmesini istiyorsanız

bunu deneyin

Private Sub Label3_TextChanged(sender As Object, e As EventArgs) Handles Label3.TextChanged
        If (Label3.Text > 10) Then
            CheckBox1.Checked = True
        End If
    End Sub

serox Konuyu açan

2013'den beri11 mesaj

#7
02.03.2015 10:00

anladım yalnız şu şekilde bir uyarı almaktayım.
Additional information: "Label3" dizesinden 'Double' türüne yapılan dönüştürme geçerli değil.

darkshades1

2013'den beri7 mesaj

#8
02.03.2015 10:12

eğer label3 de sayı yazmazsa hatayla karşılaşırsın hata almak istemiyorsan

 Private Sub Label3_TextChanged(sender As Object, e As EventArgs) Handles Label3.TextChanged       
         Try

            If (Label1.Text > 10) Then
                CheckBox1.Checked = True
            End If

        Catch ex As Exception

        End Try
    End Sub

serox Konuyu açan

2013'den beri11 mesaj

#9
02.03.2015 10:28

ilginiz için çok teşekkür ederim. label3 text i sayı ile değiştirip kodu dediğiniz şekilde yazdığım zaman sorunum çözüldü.

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.