Alright I already set up the phonebook form. I just need to input the codes for buttons ADD, DELETE, & FIND. Can someone please help, much appreciated.
CODE
Public Class Form1
Inherits System.Windows.Forms.Form
Dim aname() As String
Dim room() As String
Dim Phone() As String
Dim index As Integer
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
index = 0
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
aname(index) = txtname.Text
room(index) = txtroom.Text
Phone(index) = txtphone.Text
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Integer
For x = 1 To 1
Dim aname() As String
ListBox1.Items.Add("Mike")
ListBox1.Items.Add("Amber")
ListBox1.Items.Add("George")
ListBox1.Items.Add("Nicole")
ListBox1.Items.Add("Chris")
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim x As Integer
Dim num As Integer
Dim find As Integer
Dim flag As Integer
flag = 0
find = Val(TextBox4.Text)
For x = 0 To (index - 1)
If (find = aname(x)) Then
flag = 1
num = x
End If
Next
If (flag = 1) Then
ListBox1.Items.Add("Item Found")
ListBox1.Items.Add(aname(num))
ListBox1.Items.Add(room(num))
ListBox1.Items.Add(Phone(num))
End If
End Sub
End Class
| 