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

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



تعديل هذا الكود - أسامة - 25-02-14

اريد مثلآ اضافه من الرقم CF157 الى الرقم 2579001 فى Lisbox جربت هذا الكود
كود :
Dim i As Integer
        Dim a = i < 257901 AndAlso i > CF157
        ListBox1.Items.Add(a)
لم ينجح الامر


RE: تعديل هذا الكود - تركي قرمزلي - 27-02-14

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


RE: تعديل هذا الكود - أسامة - 27-02-14

(27-02-14, 01:26 PM)تركي قرمزلي كتب : السلام عليكم و رحمة الله و بركاته
CF157 ليست رقم ؟؟؟
السلام عليكم و رحمة الله و بركاته

ارقام و حروف


RE: تعديل هذا الكود - تركي قرمزلي - 28-02-14

السلام عليكم و رحمة الله و بركاته
أظن أنك لا تستطيع مقارنة متغير من نوع عددي بسلسلة نصية
أيضا هذه الجملة خاطئة

كود :
Dim a = i < 257901 AndAlso i > CF157

أرجو التوضيح من ميتغاك في هذا الكود و سنحاول مساعدتك بمشيئة الرحمان
السلام عليكم و رحمة الله و بركاته


RE: تعديل هذا الكود - أسامة - 28-02-14

(28-02-14, 01:09 AM)تركي قرمزلي كتب : السلام عليكم و رحمة الله و بركاته
أظن أنك لا تستطيع مقارنة متغير من نوع عددي بسلسلة نصية
أيضا هذه الجملة خاطئة

كود :
Dim a = i < 257901 AndAlso i > CF157

أرجو التوضيح من ميتغاك في هذا الكود و سنحاول مساعدتك بمشيئة الرحمان
السلام عليكم و رحمة الله و بركاته

اخى اريض اضافه بعض الارقم و الحروف فى ListBox من كذا الى كذا من غير مكتب كل Items
هل ممكن جعل اضافه فى Listbox مثلآ رقم وى حرف AB1 الى 1000 يتم اضافه فى Listbox


RE: تعديل هذا الكود - Genius Live - 28-02-14

(28-02-14, 03:23 AM)أسامة كتب : اخى اريض اضافه بعض الارقم و الحروف فى ListBox من كذا الى كذا من غير مكتب كل Items
هل ممكن جعل اضافه فى Listbox مثلآ رقم وى حرف AB1 الى 1000 يتم اضافه فى Listbox

أخي اسامة مازال مرادك غير واضح
ضع مثال للتكرار الذي تريه هل هو مثل AB1,AB2,AB3,AB4,...AB1000 هل هذا ماتريد أم ماذا HuhHuhHuh

RolleyesRolleyesRolleyes


RE: تعديل هذا الكود - أسامة - 28-02-14

(28-02-14, 07:03 AM)Genius Live كتب :
(28-02-14, 03:23 AM)أسامة كتب : اخى اريض اضافه بعض الارقم و الحروف فى ListBox من كذا الى كذا من غير مكتب كل Items
هل ممكن جعل اضافه فى Listbox مثلآ رقم وى حرف AB1 الى 1000 يتم اضافه فى Listbox

أخي اسامة مازال مرادك غير واضح
ضع مثال للتكرار الذي تريه هل هو مثل AB1,AB2,AB3,AB4,...AB1000 هل هذا ماتريد أم ماذا HuhHuhHuh

RolleyesRolleyesRolleyes

اجل اخى


RE: تعديل هذا الكود - sooriaty03 - 02-03-14

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

من بعد إذن إخوتي

فتستطيع أن تقوم بذلك بعمل حلقة تكرارية وتضيف العناصر إلى أداة الـ ListBox بالشكل التالي:

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'حلقة نكرارية من 1 وحتى 1000
        For I = 1 To 1000
            'إضافة العنصر إلى الأداة بعد دمجه مع الحرفين
            'A and B
            ListBox1.Items.Add("AB" & I.ToString)
        Next
    End Sub

بالتوفيق


RE: تعديل هذا الكود - أسامة - 03-03-14

(02-03-14, 11:19 AM)sooriaty03 كتب : السلام عليكم ورحمة الله وبركاته

من بعد إذن إخوتي

فتستطيع أن تقوم بذلك بعمل حلقة تكرارية وتضيف العناصر إلى أداة الـ ListBox بالشكل التالي:

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'حلقة نكرارية من 1 وحتى 1000
        For I = 1 To 1000
            'إضافة العنصر إلى الأداة بعد دمجه مع الحرفين
            'A and B
            ListBox1.Items.Add("AB" & I.ToString)
        Next
    End Sub

بالتوفيق
شكرآ جزاك الله كل خير