تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف اوقف تفيذ امر هذا الكود
#1
سلام عليكم
جمعه مباركة ع جميع
ارد ايقاف تفيذ امر الكود ادانه وشكراً
كود :
 Private Sub LogInButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogInButton2.Click
       If (Me.TextBox1.Text = "") Then
           Interaction.MsgBox("Please put identifiers" & ChrW(10) & "الرجاء وضع نكات في القائمة المخصصة", MsgBoxStyle.Critical, "خطأ/" & ChrW(10) & "Error")
       Else
           Dim num As Integer = (Enumerable.Count(Of String)(Me.TextBox1.Lines) - 1)
           Dim i As Integer = 0
           Do While (i <= num)
               Me.ProgressBar1.Value = CInt(Math.Round(Conversion.Int(CDbl((CDbl((i * 100)) / CDbl(Enumerable.Count(Of String)(Me.TextBox1.Lines)))))))
               Form1.emad.Send(String.Concat(New String() {"<iq to='", Form1.room.Text, "@conference.nimbuzz.com' type='set' id='179'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='owner' jid='", Me.TextBox1.Lines(i), "@nimbuzz.com' /></query></iq>"}))
               wait()
               i += 1
           Loop
           Me.ProgressBar1.Value = 100
           Interaction.MsgBox("Everyone has been added" & ChrW(10) & "تم اضافة الجميع", MsgBoxStyle.ApplicationModal, "أنتهى" & ChrW(10) & "finish")
           Me.TextBox1.Text = ""

       End If

   End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 14 1,690 17-04-18, 07:49 PM
آخر رد: رمضان محمد
  كيف اجعل الكود يكتب التاريخ بجوار اسم قاعدة البيانات عند النسخ الاحتياطي السيد الجوهري 2 97 13-04-18, 12:43 AM
آخر رد: سعود
  [سؤال] كيفية حماية الكود على جهاز المبرمج [email protected] 3 138 04-04-18, 02:35 PM
آخر رد: tarek
  [سؤال] ما معنى هذا الرمز (c"*") في هذا الكود أحمد إبراهيم سعد 3 113 02-04-18, 03:13 AM
آخر رد: أحمد إبراهيم سعد
  [كود] تعديل الكود saad mahyoub 1 42 27-02-18, 08:19 PM
آخر رد: saad mahyoub
  [VB.NET] لماذ لا يعمل ProgressBar الا مرة واحده في هذا الكود + المشروع e-coder 4 42 26-02-18, 08:10 PM
آخر رد: bidaya
  [VB.NET] كيفية تحويل هذا الكود من textbox الي listbox e-coder 1 62 26-02-18, 07:42 PM
آخر رد: silverlight
  ارجو المساعده في هذا الكود emamtron2014 0 33 26-02-18, 03:39 AM
آخر رد: emamtron2014
  أرجو المساعده في هذا الكود emamtron2014 0 26 22-02-18, 10:03 PM
آخر رد: emamtron2014
  مطلوب مبرمج محترف يقوم بكتابة الكود التالي mohamedgadain61 0 32 17-02-18, 05:01 PM
آخر رد: mohamedgadain61

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


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