الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه RANDOOM في 3 يونيو 2012 · 12 رد · 1,314 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

قمت بعمل كود اتصال بنا وشغل وكل شي تمام

لكن آريد اضافة

شيك بوكس , مثلاا يقوم المستخدم بتحديد

هواياته , بواسطه الشيك بوكس , وبعد الضفط على ارسال

يرسل لي القيم او الهوايات المختاره بواسطه المستخدم ,,

آرجوا المساعده من فضلكم

شكرااا لكم ,, :happy:

#2

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

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

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

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

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

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

تم تعديل هذه المشاركة بواسطة _أبو حذيفة_ في 3 يونيو 2012 في 18:50

1

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#3

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

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

 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

تم تعديل هذه المشاركة بواسطة RANDOOM في 3 يونيو 2012 في 20:20

#4

نعم .... قم بإضافة 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

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

تم تعديل هذه المشاركة بواسطة _أبو حذيفة_ في 3 يونيو 2012 في 21:33

1

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#5

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

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

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

:)

#6

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

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

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

لذلك أنصحك ب CheckBoxList

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

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

1

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#7

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

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

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

#8

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

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.

تم تعديل هذه المشاركة بواسطة حسام برهان في 4 يونيو 2012 في 22:15

#9

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

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

#10

أولاً لقد عدلت الكود السابق الذي أدرجته لأني نسيت إضافة اختبار حالة الاختيار لأدوات 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 في هذه الحالة.

تم تعديل هذه المشاركة بواسطة حسام برهان في 4 يونيو 2012 في 22:18

1
#11

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

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

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

#12

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

Response.Write(hoby)

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

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

1

الله أكبر الله أكبر الله أكبر لآ إله إلا الله الله أكبر الله أكبر ولله الحمد

#13

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

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

مواضيع مشابهة