تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
محتاجة كود لأرسال رسائل نصية لأرقام موجوده داخل DataGrid بدلا Texbox البرنامج مرفق
#1
السلام عليكم اخواني 

احتاج كود للتالي :


اولا :
تحديد الكل من خلال الضغط ع  Button تحديد الكل 
تحديد ألكل ............ True يسهل عمليه تحديد جميع الارقام بضغطه واحدة




ثانيا :

عند الضغط على ارسال رساله يتم الارسال لجميع الأرقام الموجودة داخل الحقل Number في حاله ان تم تحديد الرقم من خلال الحقل Selected يتم ارساله الرساله للأرقم الموجودة داخل الداتا جيردفيو بدلا من استخدام حقل الأرقام المسمى بي txtNumbers

في حال تحقق شرط التحديد True

سابقا كنت استخدم  الحقل txtNumbers
 لارسال الرسائل ......... وكتابة الارقم بشكل كلي داخل الحقل

اتمنى ان حد يساعدني بكود يسهل لي عمليه الارسال من داخل الدتا جيرد فيو وشكرا اخواني

الصورة توضح الشرح .... تم ارفاق المشروع


الملفات المرفقة صورة/صور
   

.rar   Sms.rar (الحجم : 194.19 ك ب / التحميلات : 37)
الرد }}}}
تم الشكر بواسطة:
#2
للتحديد السريع
PHP كود :
       For r 0 To d.Rows.Count - (IIf(d.AllowUserToAddRows21))
 
           d.Rows(r).Cells(1).Value 1
        Next 

الرقم 1 هو رقم العمود  لكن حسب الصورة حيكون رقمه 2
d = datagridview
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: رهف العريفي
#3
مشكور اخي سعود جزاك الله خير

كيف اقدر ارسل رساله لجميع الارقام المسجلة واستخدام ال DataGridviwe الحقل Number بدلا من ال Textbox وكتابة الرقم بشكل فردي
الرد }}}}
تم الشكر بواسطة:
#4
(14-05-16, 08:22 AM)رهف العريفي كتب : مشكور اخي سعود جزاك الله خير

كيف اقدر ارسل رساله لجميع الارقام المسجلة واستخدام ال DataGridviwe  الحقل Number  بدلا من ال Textbox  وكتابة الرقم بشكل فردي

هل الدالة  تستقبل ارقام عديدة وتتعامل معهم بشكل خاص؟؟
ام المطلوب رقم واحد لكل عملية ارسال؟؟

على كل حال قبل الارسال هذا الكود انظر رايك فيه
PHP كود :
       'NumberDataGridView
        For r = 0 To NumberDataGridView.Rows.Count - (IIf(NumberDataGridView.AllowUserToAddRows, 2, 1))
            If NumberDataGridView.Rows(r).Cells(2).Value <> 0 Then
                '
يوجد حقل على الاقل محدد بشبيكة البيانات

                
'مربع الرسالة فقط لعرض التي تم تحديدها
                ' 
 MsgBox(NumberDataGridView.Rows(r).Cells(1).Value)
 
           Else
                
'لا يوجد شيء محدد في شبيكة البيانات
                ' 
MsgBox("لم يتم تحديد شيء")

 
           End If
 
       Next 
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: رهف العريفي
#5
المطلوب ارسال رساله لجميع الأرقام الموجودة داخل الحقل والتعامل معاهم بالترتيب بدأ من اولا رقم مسجل الى اخر رقم مسجل

الحين اذا جيت ارسل رساله لازم اكتب الرقم بال txtNumbers ثم ارسال

ومن ثم امسح الرقم واقوم بكتابة الرقم البعده ومن ثم امسح الرقم واقوم بكتابة الرقم الي بعده وهكذا انا اريد ان تكون العملية تلقائية بتحديد الارقام داخل حقل الداتا جيرد فيو وارسال نفس الرساله لها بشكل تلقائي بدلا من عمليه حذف الرقم وكتابة الرقم الذي يليه

المطلوب بضغطه ذر واحدة اقدر اتعامل مع جميع الارقام الي انا اخترتها كأنها انكتبت على txtNumbers لحالها
الرد }}}}
تم الشكر بواسطة: العزابي
#6
اذا الكود اللي كتبته يفي بالغرض لكن لابد من استخدام  مسار مستقل للارسال ولنستخدم backgroundworker
على كل حال هذا هو الاجراء:
PHP كود :
       'NumberDataGridView
        For r = 0 To NumberDataGridView.Rows.Count - (IIf(NumberDataGridView.AllowUserToAddRows, 2, 1))
            If NumberDataGridView.Rows(r).Cells(2).Value <> 0 Then
                '
يوجد حقل على الاقل محدد بشبيكة البيانات
                
'مربع الرسالة فقط لعرض التي تم تحديدها
                ' 
 MsgBox(NumberDataGridView.Rows(r).Cells(1).Value)

 
               'الان يتم الارسال مباشرة دون الاسناد لمربع النص المخصص للارقام
                Dim t As String = SendMessage(TxtUserName.Text, TxtPassword.Text, ConvertToUnicode(txtMessage.Text), TxtSender.Text, NumberDataGridView.Rows(r).Cells(1).Value)
                ShowResult(t)
            Else
                '
لا يوجد شيء محدد في شبيكة البيانات
                
' MsgBox("لم يتم تحديد شيء")
            End If
        Next 
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
تم الشكر بواسطة: العزابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله في حفظ أعدات البرنامج طـلال 6 69 منذ 10 ساعة مضت
آخر رد: zaer
  تغير حجم شاشات البرنامج عند العمل على شاشات اخرى nassery99 3 80 16-10-17, 12:42 PM
آخر رد: silverlight
  مشكلة تظهر في البرنامج بسبب الداتا بيس اكسس khaled12345 2 66 16-10-17, 07:41 AM
آخر رد: khaled12345
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 153 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [سؤال] ظهور البرنامج عند الضغط على رابط ابو روضة 4 93 14-10-17, 10:55 PM
آخر رد: ابو روضة
  ظهور البرنامج عند نسخ رابط ابو روضة 8 175 12-10-17, 02:47 PM
آخر رد: ابو روضة
  [سؤال] رسالة خطأ بعد تنصيب البرنامج على جهاز آخر aftfm 1 60 09-10-17, 06:57 PM
آخر رد: Adrees
  [سؤال] استعراض حالة عمل البرنامج ابو روضة 7 191 08-10-17, 11:22 AM
آخر رد: ابو روضة
  سورس إظهار معلومات البرنامج fouadhdfouad 5 97 07-10-17, 07:00 PM
آخر رد: fouadhdfouad
  [VB.NET] كود يعمل ع next داخل الفورم ahmed shikoo 2 84 07-10-17, 03:50 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم