Phone Book Application Program In Visual Basic 2008/2010/.NET - VB Tutorials - Basics Projects

For Phone Book Application Program you need 2 Forms

Form1: Will be used to search contacts.



Form2: Will be used to add new contacts.



Form1: Add a textbox, a list-box, a label and 2 buttons:

More Visual basic Codes:
Creating Your First project in Visual Basic 2008/2010/.NET
Creating a Log In Application Program In Visual Basic 2008
Analog Clock In Visual Basic 2008/2010/.NET




Double click on textbox1 and the following code:


Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesTextBox1.TextChanged
        Dim item As String = TextBox1.Text.ToString()
        Dim index As Integer = ListBox1.FindString(item)

        If index = -1 Then
            ListBox1.SelectedIndex = ListBox1.SelectedIndex
        Else
            ListBox1.SetSelected(index, True)
        End If
    End Sub
Add New Contact button code:


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Form2.Show()

    End Sub

Click on Project menu, then click on the last menu, (in this project: Simple Phone Book Properties)


 


Then click on Settings tab.
Add Names under Name Column, and System.Collections.Specialized.StringCollection under Type:

Add the following code to Form1.Load event:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            For Each Name As String In My.Settings.Names
                ListBox1.Items.Add(Name)
            Next
        Catch ex As Exception

        End Try

    End Sub
Add the following code to Remove Contact Button:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ListBox1.SelectedIndex < 0 Then
        Else
            Dim ask As MsgBoxResult
            ask = MsgBox("Are you sure you want to remove " & ListBox1.SelectedItem & " ?", MsgBoxStyle.YesNo)
            If ask = MsgBoxResult.Yes Then
                My.Settings.Names.Remove(ListBox1.SelectedItem)
                My.Settings.Save()
                ListBox1.Items.Clear()
                For Each Name As String In My.Settings.Names
                    ListBox1.Items.Add(Name)
                Next
            ElseIf ask = MsgBoxResult.No Then

            End If
        End If
    End Sub

Form2: Add 2 textboxes, 2 labels and 2 buttons:

Cancel Button Code:



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
Save Button Code: 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If My.Settings.Names Is Nothing Then
            If TextBox1.Text = "" Or TextBox2.Text = "" Then
                MsgBox("Must Fill all Fields")
            Else
                My.Settings.Names.Add(TextBox1.Text + " - " + TextBox2.Text)
                My.Settings.Save()
                Me.Close()
            End If
        Else
            If TextBox1.Text = "" Or TextBox2.Text = "" Then
                MsgBox("Must Fill all Fields")
            Else
                My.Settings.Names.Add(TextBox1.Text + " - " + TextBox2.Text)
                My.Settings.Save()
                Me.Close()

            End If

        End If
        TextBox1.Clear()
        TextBox2.Clear()
        Form1.ListBox1.Items.Clear()
        For Each Name As String In My.Settings.Names
            Form1.ListBox1.Items.Add(Name)
        Next
    End Sub

Related

Visual Basic 2008 2941309177230505182

Post a Comment

  1. Really Nice Information,Thank You Very Much For Sharing.Web Designing Company

    ReplyDelete
  2. We value our Readers Experience and Feedback.

    ReplyDelete

SPAMMING will not be Appreciated.

emo-but-icon

Hot in week

Recent

Comments

Our Channel

Contact Us

Name

Email *

Message *

Follow by Email

item