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

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


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




ثانيا :

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

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

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

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

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


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

.rar   Sms.rar (الحجم : 194.19 ك ب / التحميلات : 77)
الرد }}}
تم الشكر بواسطة:
#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 
الرد }}}
تم الشكر بواسطة: العزابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مرفق سورس كود ارسال ملفات الى الواتس بدون API new_programer 2 88 17-04-24, 03:07 PM
آخر رد: Taha Okla
  استخدام فونت جديد في البرنامج Emam emam 5 95 14-04-24, 01:29 PM
آخر رد: عبد العزيز البسكري
  عدم القدرة على إغلاق البرنامج وظهور رسالة the operation could not be completed صالح عبدالله 2 63 12-04-24, 06:03 AM
آخر رد: صالح عبدالله
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 8 6,463 12-04-24, 04:07 AM
آخر رد: أبو جودة
  معرفة رصيدي للهاتف النقال المتصل بالكمبيوتر وارسال رسائل نصية منه AHMED213 1 152 03-04-24, 08:08 AM
آخر رد: sdz
  تغيير المسار الي مسار البرنامج في تقرير ميكروسوفت atefkhalf2004 2 107 02-04-24, 05:05 PM
آخر رد: atefkhalf2004
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 156 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 118 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 248 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 212 09-01-24, 10:51 PM
آخر رد: صالح عبدالله

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


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