[الـ ـجارح]

السلام عليكم

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

اريد عند الضغط على زر عرض الاجابه تأتي الاجابه في التكست بوكس ويتم اخذها من 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