منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سورس كود ابي تعديل بسيط اخذ من ListView وضعها في textbox
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

اريد تعديل بسيط 

اريد عند الضغط على زر عرض الاجابه تأتي الاجابه في التكست بوكس ويتم اخذها من answer 

answer اللي هو اسم ملف الصوره


او

اريد الاجابه تلقائي ظاهره في ال textbox عند الانتقال من صوره الى صوره

السورس كود

http://www.up-00.com/?UD5B



اليوزر: Admin

الباسورد : Admin


[b]باانتظاركم [/b]
للررررررررفع يااخوااان حصلت كود عرض الاجابه لكن اريد كود التحديد والتظليل ضروري

اريد عند الضغط على زر next والانتقال للصوره الاخرى يتم التحديد والتظليل في listview
للررررررررفع يااخوان ضروري
اخوي سعود قدرت اجيب الاجابه بالتكست بوكس بس لازم احدد 
انا اريد التحديد والتظليل تلقائي
اريد كود التحديد والتظليل تلقائي من listview

اريد عند الضغط على زر next والانتقال للصوره الاخرى يتم التحديد والتظليل في listview

------------------------------------------------

كذلك حصلت كودين بخصوص التحديد والتظليل وثنينهم الكودين يؤدون نفس القرض لكن هناك مشكله بسيطه 
فعلا يبدا ينزل من الاول الى الاخير لكن اذا وصل الاخير يظل ثابت ولا يرجع يعيد من البدايه

اريد عندما يصل الى اخر شي وعند الضغط على الزر يرجع يحدد ويظلل من البدايه

شوفو عند الوصول الى اخر شي يظل ثابت اريد عند الضغط يرجع من البدايه

هذول الكودين ياليت التعديل على اي واحد فيهم


كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim idx = Me.ListView1.FocusedItem.Index
   If idx < Me.ListView1.Items.Count - 1 Then idx = idx + 1
   Me.ListView1.SelectedItems.Clear()
   Me.ListView1.Items(idx).Selected = True
   Me.ListView1.Items(idx).Focused = True
   Me.ListView1.Focus()
End Sub

وهذا الثاني

كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       ListView1.Focus()
       If ListView1.FocusedItem.Index < ListView1.Items.Count - 1 Then
           ListView1.Items(ListView1.FocusedItem.Index + 1).Selected = True
           ListView1.Items(ListView1.FocusedItem.Index + 1).Focused = True
       End If
   End Sub