حذف يك يا چند داده از listbox از طريق زدن دكمه delete

[Amir Ghasemiyan]

سلام اساتيد عزيز

بازم سوال دارم

يك ليست باكس دارم. ميخوام بعضي از آيتم هاشو حذف كنم. يك كد پيدا كردم كه با درگ و دراپ حذف ميكنه . اين آدرسشه Delete Item By Dragging Out Of Listbox

ولي ميخوام با زدن دكمه delete اين كار انجام بشه.
يك كد هم براي اين پيدا كردم ولي جواب نميده.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim intindex As Integer
    If KeyCode = vbKeyDelete Then
        ' Code to delete selected item in listbox
    End If
End Sub

ممنون ميشم دوستان راهنماييم كنين

[~M*E*H*D*I~]

میخوای فقط از لیست باکس حذف بشه یا از سورس کلا حذف شه؟

[MEYTI]

اگه فقط بخوای از لیست باکس حذف بشه از کد زیر استفاده کن
درضمن باید لیست باکست باید از طریق کد نویسی پر شده باشه نه از طریق rowsource

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 46 Then
  
 ' MsgBox ("del")
  For intindex = ListBox1.ListCount - 1 To 0 Step -1

If ListBox1.Selected(intindex) Then

ListBox1.RemoveItem intindex

End If

Next
    End If
End Sub

[Amir Ghasemiyan]

میخوای فقط از لیست باکس حذف بشه یا از سورس کلا حذف شه؟

فقط ميخوام از ليست باكس حذف بشه

اگه فقط بخوای از لیست باکس حذف بشه از کد زیر استفاده کن
درضمن باید لیست باکست باید از طریق کد نویسی پر شده باشه نه از طریق rowsource

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 46 Then
  
 ' MsgBox ("del")
  For intindex = ListBox1.ListCount - 1 To 0 Step -1

If ListBox1.Selected(intindex) Then

ListBox1.RemoveItem intindex

End If

Next
    End If
End Sub

ممنون مهدي جان. از اين كد استفاده كردم جواب نداد.

اگه بگم براي چه كاري ميخوام شايد راه بهتري به نظرتون برسه.
ميخوام با زدن يك دكمه فايل اتچ كنم. از نظر تعداد مشكلي ندارم فقط همين كه نميتونم از ليست حذف كنم.

[Amir Ghasemiyan]

دوستان عزيز مشكل با كمك استاد وطن پرست حل شد

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = 46 Or KeyCode = 8 Then
        Dim intindex
        For intindex = Me.ListBox1.ListCount - 1 To 0 Step -1
            If Me.ListBox1.Selected(intindex) Then Me.ListBox1.RemoveItem intindex
        Next
    End If
End Sub

[MEYTI]

متوجه نشدم اتچ فایل چه ربطی به حذف کردن از لیست باکس داره ؟
اگه میتونی فایلتو بذار

[Amir Ghasemiyan]

متوجه نشدم اتچ فایل چه ربطی به حذف کردن از لیست باکس داره ؟
اگه میتونی فایلتو بذار

خب ديگه ربط داره
وقتي اتچ ميكني آدرس فايل اتچ شده رو تو تكست باكس يا ليست باكس يا هر چي كه تعريف ميكني ميذاره.

درضمن مهدي عزيز، كد شما هم دقيقا درسته. من از همين كد استفاده كرده بودم ولي با خط اول متفاوت. براي همين به اشتباه گفتم كد شما رو قبلا استفاده كردم و جواب نگرفتم. شرمنده عزيز

[mokaram]

اگه فقط بخوای از لیست باکس حذف بشه از کد زیر استفاده کن
درضمن باید لیست باکست باید از طریق کد نویسی پر شده باشه نه از طریق rowsource

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 46 Then
  
 ' MsgBox ("del")
  For intindex = ListBox1.ListCount - 1 To 0 Step -1

If ListBox1.Selected(intindex) Then

ListBox1.RemoveItem intindex

End If

Next
    End If
End Sub

دوستان اگه بخوایم از سورس هم حذف کنیم باید چه کدی بنویسیم؟

[Nima]

مشکل حذف از لیست باکس