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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] ممكن حل مشكلة الكود MOSTAFA.KAMEL 1 68 أمس, 09:37 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 29 أمس, 02:27 PM
آخر رد: abo_alaa315
  اضافة صور فى subitem Mohamed20 6 132 21-01-17, 03:01 PM
آخر رد: Mohamed20
  [VB.NET] مشكلة في اضافة ايميلات لـlistbox 3asfa~mdmra 4 68 19-01-17, 12:14 AM
آخر رد: 3asfa~mdmra
  [VB.NET] يرجى التعديل على الكود dubai.eig 4 78 18-01-17, 05:25 PM
آخر رد: dubai.eig
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 178 15-01-17, 02:11 PM
آخر رد: abudawoodd
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 417 04-01-17, 01:12 AM
آخر رد: Namer
  [VB.NET] هل الكود هذا صحيح dubai.eig 10 217 01-01-17, 10:15 PM
آخر رد: مساعدة
  اين اكتب هذا الكود anis_derna 3 140 28-12-16, 12:18 PM
آخر رد: thevirus
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 72 26-12-16, 05:13 AM
آخر رد: معتز الجازوي

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


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