تقييم الموضوع :
  • 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 
"الناس نيام فإذا ماتوا إنتبهوا"
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود عدم اضافة اكترمن 0 فى التكست بوكس نبيل فتحى 5 98 أمس, 09:49 PM
آخر رد: سعود
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 36 13-10-17, 06:39 PM
آخر رد: e-coder
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 6 900 11-10-17, 08:48 PM
آخر رد: رمضان محمد
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 60 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 132 08-10-17, 11:30 PM
آخر رد: dubai.eig
  اضافة 0 قبل العلامه العشريه فى التكست بوكس نبيل فتحى 6 116 08-10-17, 03:21 AM
آخر رد: نبيل فتحى
  مساعده فى اضافة "0" قبل" ." نبيل فتحى 0 39 06-10-17, 01:57 AM
آخر رد: نبيل فتحى
  [سؤال] عند اضافة حالة جديدة naden 2 92 01-10-17, 12:54 AM
آخر رد: naden
  استشارة في الكود hikmat 1 54 28-09-17, 01:33 AM
آخر رد: wale90
  مساعدة في الكود hikmat 0 40 27-09-17, 10:08 AM
آخر رد: hikmat

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


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