إرسال إسم الشيك بوكس المختار إلى الاميل

لنفترض أنك ستأخذ هذه القيم من CheckBoxList وتضعها في Label مثلاً

 for (int i = 0; i <= CheckBoxList1.Items.Count - 1; i++)
    	{
        	if (CheckBoxList1.Items.Selected)
        	{
            	Label1.Text += CheckBoxList1.Items.Text + "<br />";
        	}
    	}

أما إن أردت وضعها في قاعدة البيانات أو إرسالها في إيميل كقيم فنفس الشيئ

حيث ستضعها في متغير بدل Label مع مراعاة أنك ستحذف "<br />" من النهاية "وظيفته إضافة سطر جديد بين كل قيمة وأخرى" واستبداله مثلاً بنقطة أو -

والله أعلى وأعلم.

بتوفيق الله تعالى .

بصرآحه لم افهم الطريقه بالظبط ,

لكن هل هناك طريقة لإرسال الشيك بوكس المختاره مثل طريقة التكست بوكس والقائمه المنسدله في هذآ الكود ,

 Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim mm As New MailMessage("sender@gmail.com", "ladynooona@gmail.com")
        mm.Subject = TextBox1.Text
        mm.Body = "price: " & TextBox1.Text & " Address :" & TextBox2.Text & "< shipping :" & DropDownList1.Text

نعم .... قم بإضافة CheckBoxList وضع فيها الهوايات .... ثم يكون شكل الكود هكذا

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    	Dim hoby As String
    	For i As Integer = 0 To CheckBoxList1.Items.Count - 1
        	If CheckBoxList1.Items(i).Selected Then
            	hoby += CheckBoxList1.Items(i).Text + "."
        	End If
    	Next
    	Dim mm As New MailMessage("sender@gmail.com", "ladynooona@gmail.com")
    	mm.Subject = TextBox1.Text
    	mm.Body = "price: " & TextBox1.Text & " Address :" & TextBox2.Text & "< shipping :" & DropDownList1.SelectedItem & "الهوايات :" & hoby

بتوفيق الله تعالى.

آخي شكرا لك لكن

انا سبق ووضعت الشيك بوكسس و قمت بتسميتهآ أريد طريقه للشيك بوكسس

وليست شيك بوك لست ..

:)

أخي Check Box List صممت لهذا الغرض ... يعني أنت ستضيف ما شئت من الهوايات مثلاً ولن تغير أو تضيف أي شيئ على الكود ... لأن الحلقة مهمتها أن تمر على كل القيم "الهوايات" التي وضعتها ... وهذه هي الطريقة العملية الجيدة

أما إذا أردت التعامل مع check box .... فلنفترض أنك أردت وضع 10 هوايات بحيث يختار المستخدم أيهما يشاء

عندها سيكون لديك 10 من العنصر checkbox .... والكود سيكون غير عملي وستسخدم فيه شروط كثيرة

لذلك أنصحك ب CheckBoxList

إذا كنت مازلت مُصر على إتباع الخطأ في البرمجة ... عندها ضع مشروعك حتى أعدل لك عليه

بتوفيق الله تعالى.

فعلا هو خطاء , وطريقتك جدا عمليه ,

لكن المشكله انو المشروع مشترك , ويجب علي بناءه على هذآ الخطاء ! =_="

هل بإمكاني ارسال المشروع على بريدك الإلكتروني؟

لقد أجريت تعديلاً على طريقة الأخ أبو حذيفة ليناسب ما تريد:

Dim hoby As String
        Dim control As Control

        hoby = ""

        For Each control In Me.Form.Controls
            If TypeOf control Is CheckBox Then
                If DirectCast(control, CheckBox).Checked Then
                    hoby += control.ID + "."
                End If
            End If
        Next

        Dim mm As New MailMessage("sender@gmail.com", "ladynooona@gmail.com")
        mm.Subject = TextBox1.Text
        mm.Body = "price: " & TextBox1.Text & " Address :" & TextBox2.Text & "< shipping :" & DropDownList1.SelectedItem & "الهوايات :" & hoby

بفرض أنَّه في هذه الصفحة لا توجد عناصر CheckBox سوى العناصر المسؤولة عن تحديد الهوايات لأنَّني أستخدم خلقة For Each للمرور على جميع عناصر CheckBox في الصفحة.

تنويه صغير:

إذا كان لديك عدد كبير من الهوايات، فأنصحك أن تستخدم النوع StringBuilder للمتغير hoby بدلاً من String.

لكن الشيك بوكس ليس له علاقه بالقائمه المنسدله ,

اعتقد انك ربطتهآ مع بعض .. صحيح ؟

أولاً لقد عدلت الكود السابق الذي أدرجته لأني نسيت إضافة اختبار حالة الاختيار لأدوات CheckBox في الصفحة.

بالتأكيد ليس له علاقة بالقائمة المنسدلة DropDownList، لقد افترضت أنه لديك عدة أدوات CheckBox في الصفحة وهي عبارة عن الهوايات التي ترغب من المستخدم أن يختار منها، في النهاية يعمل الكود المرفق على المرور على جميع الأدوات في الصفحة ويميز منها ما يخص CheckBox ويستخلص اسم الأداة التي اختارها المستخدم فقط، ويعمل على ضم أسماء جميع هذه الأدوات ضمن المتحول hoby كنص عادي.

جرب فتح صفحة جديدة وضع فيها عدة أدوات CheckBox مع عدة أزرار Button ثم أدرج الكود التالي في حدث التحميل Load للصفحة، بعد تحميل الصفحة اختر بعض من أدوات CheckBox التي أدرجتها ثم انقر أحد الأزرار لعمل PostBack، لاحظ كيف ستحصل على أسماء الـ CheckBox المختارة فقط:

Dim hoby As String
        Dim control As Control

        hoby = ""

        For Each control In Me.Form.Controls
            If TypeOf control Is CheckBox Then
                If DirectCast(control, CheckBox).Checked Then
                    hoby += control.ID + "."
                End If
            End If
        Next

        Response.Write(hoby)

لاحظ أنَّ هذا الكود سيعرض أسماء أدوات CheckBox فقط التي ستكون ضمن المتحول hoby في هذه الحالة.

الكود شغآآل تمام , شكرآآ لك :happy:

لكن هناك فقط عيب بسيط , وهو عند الاختيار

يظهر في اعلى الصفحه آسما الشيك بوكس الذي قمت بالتعليم عليهآ

فقط إحذفي آخر سطر من الكود ... هذا يعني

Response.Write(hoby)

مهمته هي كتابة محتويات المتغير hoby على الصفحة " حيث تتم كتابة ذلك أعلى الصفحة "

الأخ حسام وضعها لرؤية النتائج بدون إرسال الإيميل .....

شكرآ لكم جميعآأ على مساعدتكم :happy:

جزاكم الله خير