منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] تصحيح كود فقط - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=3227)

تصحيح كود فقط - shado1796 - 17-06-14

السلام عليكم ورحمة الله وبركاته

يا اخوان لماذا لا يعمل هذا الكود ؟

PHP كود :
If Not String.IsNullOrEmpty(ListView1.Items.Count > 0) Then
        Else
            MessageBox.Show("يرجى التأكد من تحديد الطلب", "رسالة خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub

        End If 

اريد اذا لم يتم تحديد سطر من اسطر اداة Listview يظهر خطأ لكنه لم يضبطالكود ماهو السبب ؟

RE: تصحيح كود فقط - vbnet - 17-06-14

(17-06-14, 03:28 AM)shado1796 كتب : ...
PHP كود :
If Not String.IsNullOrEmpty(ListView1.Items.Count > 0) Then
Else
    MessageBox.Show("يرجى التأكد من تحديد الطلب", "رسالة خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Exit Sub
End If 
اريد اذا لم يتم تحديد سطر من اسطر اداة Listview يظهر خطأ لكنه لم يضبطالكود ماهو السبب ؟

.....

كود :
If ListView1.SelectedItems.Count = 0 Then
    MessageBox.Show("يرجى التأكد من تحديد الطلب", "رسالة خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Exit Sub
End If

.....

RE: تصحيح كود فقط - shado1796 - 17-06-14

(17-06-14, 03:43 AM)vbnet كتب : .....

كود :
If ListView1.Items.Count = 0 Then
    MessageBox.Show("يرجى التأكد من تحديد الطلب", "رسالة خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Exit Sub
End If

.....

اريد العكس اخي الحين عندما توجد بيانات ولا أؤشر عليها واقوم بالامر تظهر مشكلة وانا اريدها عندما لا احدد شئ تظهر الرسالة


RE: تصحيح كود فقط - shado1796 - 17-06-14

(17-06-14, 04:11 AM)vbnet كتب : .....

عفوا - استعجلت في الكتابة... تم تعديل الكود

.....

يعطيك الف عافية ما قصرت


RE: تصحيح كود فقط - a_almisery - 17-06-14

تــفضل اخــي ...

PHP كود :
If ListView1.SelectedItems.Count > 0 Then
            MsgBox("Done Select ")
        Else
            MsgBox(" Not Selecet")
        End If