[سؤال] استفسار حول اضافة - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [سؤال] استفسار حول اضافة (/showthread.php?tid=16942) |
استفسار حول اضافة - عبدالرحمن المكاوي - 23-08-16 السلام عليكم ----------------------------- عندي اضافة جديد اريد اضافتها داخل مشروع وهي اني اريد توقيف البرنامج في بعض الاحيان وكان لدي كود لكني لم اجد فاريد تطبيق هذه الطريقة فكود نبدء اولا انا رفعت ملف علي استضافة في داخل هذه الاستضافة ساضع رقم اما 1 و 2 اريد البرنامج عندما يتم فتحه ان يره ماذا بداخل هذا الملف اذ كان رقم 1 موجود يفتح البرنامج عادي واذ كان رقم 2 موجود ياتي له برسالة " جاري عمل صيانة الان " ويتم اغلاق البرنامج اريد الكود ضروري جدا شباب RE: استفسار حول اضافة - silverlight - 23-08-16 لا اعلم من أين سوف تقرأ الملف لكن لو افترضنا ان لديك ملف علي الكمبيوتر فيه البيانات التي تحدثت عنها أي أن الملف سيكون به سطران السطر الأول به رقم 1 و السطر الثاني به رقم 2 أو ان الملف سيكون به سطرا واحدا فقط و هذا السطر به القيمة 1 يمكنك استخدام الكود بالشكل التالي PHP كود : Friend Function GetLineText(ByRef LineText As String, valueToRead As String) As String حل اخر و هو انك بعد ان تحصل علي المصفوفة التي تحتوي علي كل سطر موجود بالملف ممكن تعمل Loop علي جميع الاسطر بالشكل التالي PHP كود : For Each s As String In lines RE: استفسار حول اضافة - أسامة السالمي - 23-08-16 ما أعرف الطريقة اللي بتجلب فيها البيانات،، لكن إذا كنت تستطيع أن توصل هذه القيمة الى (Label) فيمكنك استخدام الكود التالي: PHP كود : Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load RE: استفسار حول اضافة - عبدالرحمن المكاوي - 23-08-16 (23-08-16, 03:40 PM)أسامة السالمي كتب : ما أعرف الطريقة اللي بتجلب فيها البيانات،، شكرا اخي وهذا الكود للافادة بعد التعديل Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label6.Text = New System.Net.WebClient().DownloadString("رابط الملف المرفوع") If Label6.Text = "2" Then MsgBox("يوجد مشكلة في البرنامج جاري حلها ") Me.Close() End If End Sub |