08-04-20, 06:17 PM
بسم الله الرحمن الرحيم
السلام عليكم ورحمةالله وبركاته
بعد هذا الموضوع غارت الـListBox وقالت لابد لي من موضوع فقلت ابشري(على اساس انها تخاطب كأنثى)
ههههههههههههههههه
باين اني سويت المثال على استعجال من امري
في زر البحث يوجد كود غير مناسب واضح طبعا.
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