تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
لا تتم العملية بعد اضافة الكود
#1
هذا هو الكود
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TabControl1.SelectedTab Is TabPage1 Then
            If ListBox1.SelectedIndex > 0 Then
                Dim I = ListBox1.SelectedIndex - 1
                ListBox1.Items.Insert(I, ListBox1.SelectedItem)
                ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
                ListBox1.SelectedIndex = I
            ElseIf TabControl1.SelectedTab Is TabPage2 Then
                If ListBox2.SelectedIndex > 0 Then
                    Dim a = ListBox2.SelectedIndex - 1
                    ListBox2.Items.Insert(a, ListBox2.SelectedItem)
                    ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
                    ListBox2.SelectedIndex = a
                End If
            End If
        End If
    End Sub
يستغدم هذا الكود لى نقل الايتم التى داخل الست بوكس مكان اخرى يعمل فى الست بوكس 1 لاكن لا يعمل فى الست بوكس 2
الرد }}}}
تم الشكر بواسطة:
#2
PHP كود :
If TabControl1.SelectedTab Is TabPage1 Then
            
If ListBox1.SelectedIndex 0 Then
                Dim I 
ListBox1.SelectedIndex 1
                ListBox1
.Items.Insert(IListBox1.SelectedItem)
                
ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
                
ListBox1.SelectedIndex I
           End 
If
        ElseIf 
TabControl1.SelectedTab Is TabPage2 Then
            
If ListBox2.SelectedIndex 0 Then
                Dim a 
ListBox2.SelectedIndex 1
                ListBox2
.Items.Insert(aListBox2.SelectedItem)
                
ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
                
ListBox2.SelectedIndex a
            End 
If
        
End If 
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 0 19 منذ 1 ساعه مضت
آخر رد: elhon.tec
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 1 35 منذ 1 ساعه مضت
آخر رد: محمد كريّم
  حل مشكلة الكود الاتي - سهل- CLARO 3 84 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 64 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 99 22-11-16, 02:38 PM
آخر رد: thevirus
  اضافة عمود من نوع image ل bound datagridview noway 1 70 17-11-16, 12:08 PM
آخر رد: Genius Live
  كيف يمكن اضافة مجموعة حقول الي datagridview والتعديل عليها مباشرتا dark1459 2 71 15-11-16, 10:30 PM
آخر رد: السرور
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 202 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 100 10-11-16, 06:25 PM
آخر رد: أبو عمر
  اضافة الاصناف جديد بشرط %Eman% 5 232 09-11-16, 01:39 PM
آخر رد: walkady

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


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