20-04-20, 06:24 AM
السلام عليكم ورحمة الله وبركاته
تفضل الكود مشروح
تفضل الكود مشروح
كود :
Dim kk As Integer = 0 ' تعريف متغير رقمي ليحمل رقم الاندكس للعنصر
Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
kk = ListBox1.SelectedIndex ' اسناد الاندكس الخاص بالعنصر المختار الى المتغير الرقمي
TextBox1.Text = ListBox1.SelectedItem ' عرض العنصر في مربع النص
End Sub
' في زر بوتون يضاف بعد التعديل
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.RemoveAt(kk) ' حذف العنصر القديم
ListBox1.Items.Insert(kk, TextBox1.Text) ' اضافة العنصر بعد التعديل بدلالة رقم الاندكس
End Subاعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات
