+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاجة كود لأرسال رسائل نصية لأرقام موجوده داخل DataGrid بدلا Texbox البرنامج مرفق (/showthread.php?tid=15796)
محتاجة كود لأرسال رسائل نصية لأرقام موجوده داخل DataGrid بدلا Texbox البرنامج مرفق - رهف العريفي - 14-05-16
السلام عليكم اخواني
احتاج كود للتالي :
اولا :
تحديد الكل من خلال الضغط ع Button تحديد الكل
تحديد ألكل ............ True يسهل عمليه تحديد جميع الارقام بضغطه واحدة
ثانيا :
عند الضغط على ارسال رساله يتم الارسال لجميع الأرقام الموجودة داخل الحقل Number في حاله ان تم تحديد الرقم من خلال الحقل Selected يتم ارساله الرساله للأرقم الموجودة داخل الداتا جيردفيو بدلا من استخدام حقل الأرقام المسمى بي txtNumbers
في حال تحقق شرط التحديد True
سابقا كنت استخدم الحقل txtNumbers
لارسال الرسائل ......... وكتابة الارقم بشكل كلي داخل الحقل
اتمنى ان حد يساعدني بكود يسهل لي عمليه الارسال من داخل الدتا جيرد فيو وشكرا اخواني
الصورة توضح الشرح .... تم ارفاق المشروع
RE: محتاجة كود لأرسال رسائل نصية لأرقام موجوده داخل DataGrid بدلا Texbox البرنامج مرفق - سعود - 14-05-16
للتحديد السريع
PHP كود :
For r = 0 To d.Rows.Count - (IIf(d.AllowUserToAddRows, 2, 1))
d.Rows(r).Cells(1).Value = 1
Next
الرقم 1 هو رقم العمود لكن حسب الصورة حيكون رقمه 2
d = datagridview
RE: محتاجة كود لأرسال رسائل نصية لأرقام موجوده داخل DataGrid بدلا Texbox البرنامج مرفق - رهف العريفي - 14-05-16
مشكور اخي سعود جزاك الله خير
كيف اقدر ارسل رساله لجميع الارقام المسجلة واستخدام ال DataGridviwe الحقل Number بدلا من ال Textbox وكتابة الرقم بشكل فردي
RE: محتاجة كود لأرسال رسائل نصية لأرقام موجوده داخل DataGrid بدلا Texbox البرنامج مرفق - سعود - 14-05-16
(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
RE: محتاجة كود لأرسال رسائل نصية لأرقام موجوده داخل DataGrid بدلا Texbox البرنامج مرفق - رهف العريفي - 14-05-16
المطلوب ارسال رساله لجميع الأرقام الموجودة داخل الحقل والتعامل معاهم بالترتيب بدأ من اولا رقم مسجل الى اخر رقم مسجل
الحين اذا جيت ارسل رساله لازم اكتب الرقم بال txtNumbers ثم ارسال
ومن ثم امسح الرقم واقوم بكتابة الرقم البعده ومن ثم امسح الرقم واقوم بكتابة الرقم الي بعده وهكذا انا اريد ان تكون العملية تلقائية بتحديد الارقام داخل حقل الداتا جيرد فيو وارسال نفس الرساله لها بشكل تلقائي بدلا من عمليه حذف الرقم وكتابة الرقم الذي يليه
المطلوب بضغطه ذر واحدة اقدر اتعامل مع جميع الارقام الي انا اخترتها كأنها انكتبت على txtNumbers لحالها
RE: محتاجة كود لأرسال رسائل نصية لأرقام موجوده داخل DataGrid بدلا Texbox البرنامج مرفق - سعود - 14-05-16
اذا الكود اللي كتبته يفي بالغرض لكن لابد من استخدام مسار مستقل للارسال ولنستخدم 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