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

بسم الله الرحمن الرحيم

السلام عليكم ورحمةالله وبركاته

بعد هذا الموضوع غارت الـListBox وقالت لابد لي من موضوع فقلت ابشري(على اساس انها تخاطب كأنثى Smile

)

ههههههههههههههههه

باين اني سويت المثال على استعجال من امري

في زر البحث يوجد كود غير مناسب واضح طبعا.

PHP كود :

Public Class Form1
    Private Sub Btndel_Click(sender As Object, e As EventArgs) Handles Btndel.Click
        If ListBox1.SelectedIndex < 0 Then Beep() : Exit Sub
        Dim index As Integer = ListBox1.SelectedIndex
        ListBox1.Items.RemoveAt(index)
    End Sub

    Private Sub Btnedit_Click(sender As Object, e As EventArgs) Handles Btnedit.Click
        If ListBox1.SelectedIndex < 0 Then Beep() : Exit Sub
        If TextBox1.Text.Trim = "" Then Beep() : Exit Sub

        Dim index As Integer = ListBox1.SelectedIndex
        ListBox1.Items(index) = TextBox1.Text
    End Sub

    Private Sub Btnsearch_Click(sender As Object, e As EventArgs) Handles Btnsearch.Click
        If ListBox1.SelectedIndex < 0 Then Beep() : Exit Sub
        Dim index As Integer = ListBox1.FindString(TextBox1.Text)
        If index > -1 Then
            ListBox1.SelectedIndex = index
        Else
            MsgBox("الاسم غير موجود", MsgBoxStyle.Information, "")
        End If
    End Sub

    Private Sub BtnAdd_Click(sender As Object, e As EventArgs) Handles BtnAdd.Click
        If TextBox1.Text.Trim = "" Then Beep() : Exit Sub
        If ListBox1.FindString(TextBox1.Text) > -1 Then MsgBox("الاسم موجود", MsgBoxStyle.Information, "") : TextBox1.Clear() : Exit Sub
        ListBox1.Items.Add(TextBox1.Text)
        ListBox1.SelectedIndex = -1
        TextBox1.Select()
        TextBox1.Focus()
        TextBox1.Clear()
    End Sub
End Class 

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

سعود