CheckBox hakkında yardım.

06-12-2009, 15:44:17

Üyeliği durduruldu

arkadaşlar resimde görüldüğü gibi yapmak istediğim şu şecilenleri string olan "dil" değişkeninde tutmak istiyorum

    Private Sub chk_ingilizce_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chk_ingilizce.CheckedChanged, chk_almanca.CheckedChanged, chk_rusca.CheckedChanged, chk_fran.CheckedChanged, chk_ital.CheckedChanged, chk_yun.CheckedChanged

    End Sub

komut bu kısma yazılacak if le yapmaya çalışdım ama sorun çıkdı.yardımlarınızı bekliyorum

dil : vb.net

06-12-2009, 15:53:58

#2

PcxMasteR

string dil = "";
if (checkBox1.Checked==true )
{
dil = "İngilizce";
}
if (checkBox2.Checked==true )
{
dil = dil + " Fransızca";
}
if (checkBox3.Checked==true )
{
dil = dil+ " Almanca";
}
MessageBox.Show(dil);

Biraz Hamallık gibi gelebilir ama mantık olarak bu uygun gelebilir.. düşünce sağlar sana..

06-12-2009, 15:59:36

#3

~~srQan~~

Üyeliği durduruldu

adam önce fransızcaya sonra ingilizceye tıklarsa ? sağol ama düşünüyorum bu yönde

06-12-2009, 16:17:52

#4

~~srQan~~

Üyeliği durduruldu

teşekkürler dediğin gibi yaptım başka bir mantık gelmedi aklıma yarın hocayada sorcam başka mantığı varsa buraya yazarım.

not : komudu butona yazdım checkboxlara yazınca sorun olabiliyor.

Dim dil As String = ""  
        If chk_ingilizce.Checked = True Then
            dil = dil & "ingilizce "
        End If
        If chk_almanca.Checked = True Then
            dil = dil & "almanca "
        End If
        If chk_rusca.Checked = True Then
            dil = dil & "rusça "
        End If
        If chk_fran.Checked = True Then
            dil = dil & "fransızca "
        End If
        If chk_ital.Checked = True Then
            dil = dil & "italyanca "
        End If
        If chk_yun.Checked = True Then
            dil = dil & "yunanca "
        End If
        MsgBox(dil)

If chk_ingilizce.Checked = False And chk_almanca.Checked = False And chk_rusca.Checked = False And chk_fran.Checked = False And chk_ital.Checked = False And chk_yun.Checked = False Then
            dil = "yabancı dili yok"
        End If

06-12-2009, 16:21:00

#5

aytaccici

Kimlik doğrulama veya yönetimden onay bekliyor.

Buyrun sanırım size yardımcı olur ...

<%@ Page Language="VB" AutoEventWireup="true" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
    Sub Page_Load()
        If Not Page.IsPostBack Then
            Response.Write("Herhangi Bir Checkbox Secilmedi")
        End If
        Dim secilen As String
        secilen = " "
        If CheckBox1.Checked Then secilen = secilen + CheckBox1.Text
        If CheckBox2.Checked Then secilen = secilen + CheckBox2.Text
        If CheckBox3.Checked Then secilen = secilen + CheckBox3.Text
        If CheckBox4.Checked Then secilen = secilen + CheckBox4.Text
        If CheckBox5.Checked Then secilen = secilen + CheckBox5.Text
        If CheckBox6.Checked Then secilen = secilen + CheckBox6.Text
        Response.Write(secilen)
    End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Checkbox</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:CheckBox ID="CheckBox1" runat="server" Text="İngilizce" />
        <asp:CheckBox ID="CheckBox2" runat="server" Text="Almanca" />
        <asp:CheckBox ID="CheckBox3" runat="server"  Text="İtalyanca"/><br />
        <asp:CheckBox ID="CheckBox4" runat="server" Text="Fransızca" />
        <asp:CheckBox ID="CheckBox5" runat="server" Text="İspanyolca" />
        <asp:CheckBox ID="CheckBox6" runat="server" Text="Türkçe" /></div>
        <asp:Button ID="Button1" runat="server" Text="Gönder" />
    </form>
</body>
</html>

06-12-2009, 16:23:57

#6

~~srQan~~

Üyeliği durduruldu

aytaccici adlı üyeden alıntı: mesajı görüntüle

Buyrun sanırım size yardımcı olur ...

<%@ Page Language="VB" AutoEventWireup="true" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
    Sub Page_Load()
        If Not Page.IsPostBack Then
            Response.Write("Herhangi Bir Checkbox Secilmedi")
        End If
        Dim secilen As String
        secilen = " "
        If CheckBox1.Checked Then secilen = secilen + CheckBox1.Text
        If CheckBox2.Checked Then secilen = secilen + CheckBox2.Text
        If CheckBox3.Checked Then secilen = secilen + CheckBox3.Text
        If CheckBox4.Checked Then secilen = secilen + CheckBox4.Text
        If CheckBox5.Checked Then secilen = secilen + CheckBox5.Text
        If CheckBox6.Checked Then secilen = secilen + CheckBox6.Text
        Response.Write(secilen)
    End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Checkbox</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:CheckBox ID="CheckBox1" runat="server" Text="İngilizce" />
        <asp:CheckBox ID="CheckBox2" runat="server" Text="Almanca" />
        <asp:CheckBox ID="CheckBox3" runat="server"  Text="İtalyanca"/><br />
        <asp:CheckBox ID="CheckBox4" runat="server" Text="Fransızca" />
        <asp:CheckBox ID="CheckBox5" runat="server" Text="İspanyolca" />
        <asp:CheckBox ID="CheckBox6" runat="server" Text="Türkçe" /></div>
        <asp:Button ID="Button1" runat="server" Text="Gönder" />
    </form>
</body>
</html>

teşekkürler halledildi aynı mantıkdayız zaten.

06-12-2009, 16:33:45

#7

kafilem

    Dim s As String

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

    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        s = s & CheckBox1.Text
        MsgBox(s)

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        s = s & CheckBox2.Text
        MsgBox(s)
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        s = s & CheckBox3.Text
        MsgBox(s)
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        s = s & CheckBox4.Text
        MsgBox(s)
    End Sub

06-12-2009, 20:03:27

#8

Elroy

bütün checkboxları seçin. Shift + Tıklama ile.
sonra properties events kısmından checked changed evente tıklayın. artık işaretdiğiniz her checkbox için bu eventte yazacağınız kodlar çalışır.

checkedchaned eventinde: (C# ile yazcam)
{
checkBox cb=sender as Checkbox; //VB CType diye bişey vardı galiba
string yazi= cb.Text;
if(cb.Checked)
{
dil += yazi;
}
else //unchecked ise yazıdan dili kaldırmak lazım
{
dil = dil.Contains(yazi) ? dil.Replace(yazi,""):dil;
}
}

string dil="dil ";