Phone Book In Visual Basic

Posted on 2007-11-29
Last Modified: 2016-08-29
I am trying to create a phone book program in Visual Basic. I have so many phone numbers, I thought this would be a neat way to handle the overflow lol. I want it to read the information from a text file with the following data:  First name, last name, home phone, cell phone, and e-mail address (with each item of data on its own line, so that each person listed will have five lines with no blank lines between individuals)  If any data is missing or does not exist its corresponding line is to be blank.

I want it to be where the data can be searched in many different ways.  An individual may be called up by sequence number, and the user is also to be able to browse the names with First, Last, Next, and Previous buttons.  And I'm guessing a find button to find the next occurrence which matches the text entered in the search text box.

So far I have whats below, but I don't really know if I am on the right track for what I want... Can someone please help me :)


Imports System.IO

Imports str = Microsoft.VisualBasic

Public Class Form1

    Dim InpFileName As String, FileOpenFlag As Integer

    Dim FirstName(25), LastName(25), HomePhone(25), CellPhone(25), Email(25) As String

    Dim Count, Index As Integer

    Dim DataFile As StreamReader

    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click

        ' Get name of file to read and open file

        Dim dgrResult As DialogResult

        Dim dlgOpen As New OpenFileDialog

        If FileOpenFlag > 0 Then DataFile.Close()

        ' Set properties and open file dialog

        dlgOpen.InitialDirectory = "F:"

        dlgOpen.Filter = "Text Files|*.txt|Word Files|*.doc|All Files|*.*"

        dgrResult = dlgOpen.ShowDialog()

        ' If file name OK then open file for reading

        If dgrResult = DialogResult.OK Then

            InpFileName = dlgOpen.FileName      ' Get filename

            DataFile = File.OpenText(InpFileName)

            FileOpenFlag = 1

            Count = 0




            TxtFirstName.Text = "File not specified"

        End If

    End Sub

    Private Sub ReadData()

        ' Read all the items in the file

        Dim Temp As String

        If FileOpenFlag > 0 Then

            Do While DataFile.Peek <> -1

                Temp = DataFile.ReadLine

                If Temp.Trim <> "" Then

                    Count = Count + 1

                    FirstName(Count) = Temp.Trim

                    LastName(Count) = Temp.Trim

                    HomePhone(Count) = DataFile.ReadLine

                    CellPhone(Count) = DataFile.ReadLine

                    Temp = DataFile.ReadLine

                    Email(Count) = DataFile.ReadLine

                    Temp = DataFile.ReadLine


                    Exit Do

                End If


            If Count > 0 Then

                Index = 1


            End If

        End If

    End Sub

    Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click

        If IsNumeric(txtItemNumber.Text) Then

            Index = CInt(txtItemNumber.Text)

            If Index > 0 And Index <= Count Then



                Index = 0


                TxtFirstName.Text = "Invalid number"

            End If

        End If

    End Sub

    Private Sub DisplayData()

        txtItemNumber.Text = CStr(Index)

        TxtFirstName.Text = FirstName(Index)

        txtlastname.Text = LastName(Index)

        txtphone.Text = HomePhone(Index)

        txtphone2.Text = CellPhone(Index)

        txtemail.Text = Email(Index)

    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click

        If Index < Count Then

            Index = Index + 1


        End If

    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click

        If Index > 1 Then

            Index = Index - 1


        End If

    End Sub

    Private Sub btnFind_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFind.Click

        Dim FindString, CurrentString As String

        Dim FindLength As Integer, N As Integer

        FindString = txtFind.Text

        FindString = FindString.Trim

        FindString = FindString.ToUpper

        FindLength = FindString.Length

        If Index < Count Then

            For N = Index + 1 To Count

                CurrentString = FirstName(N).Trim

                CurrentString = CurrentString.ToUpper

                CurrentString = str.Left(CurrentString, FindLength)

                If FindString = CurrentString Then

                    Index = N


                    Exit For


                    If N = Count Then

                        MessageBox.Show("End of list; search text not found")

                    End If

                End If



            MessageBox.Show("End of list; search text not found")

        End If

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

        If FileOpenFlag > 0 Then DataFile.Close()

    End Sub

End Class

Open in new window

Question by:ashblynn02
  • 4
  • 2
LVL 84

Accepted Solution

Scott McDaniel (Microsoft Access MVP - EE MVE ) earned 500 total points
ID: 20381025
Are you storing these in Text files? Something like this is really begging for a database to house these items. A properly designed database would allow you to store the Person with an unlimited number of Contact items. I'd suggest something like this;

.. tPeople
etc etc

.. tContacts

Now add your People, then add all Contacts for each Person, relating tContact with tPeople by storing the value of tPeople.lPeopleID in tContacts.lPeopleID ... you could use any database for this (Access would work fine, if you have it, otherwise MySQL or SQL Server Express).

Author Comment

ID: 20382593
Yes I am storing these in text files... the above code I have everything there they are just not going in the right boxes for some reason. but everything matches up to what I have on the form (txtfirstname, ect.)

I will try to do what you are saying. I am new with VB so I'm not 100% for sure what I am doing, but I will try to play around with it and do it that way. It seems pretty easy!!!

Thanks :)
LVL 84
ID: 20391061
Yes, VB is pretty user-friendly, for the most part. Difficult to say why your data isn't going to the correct places, but still - this type of application is almost custom-made for a database backend. Textfiles are fine, and very portable, but they can make working with the data difficult, and you can end up with a real mish-mash of info. With a database, you'll have well structure data that is stored correctly, so you can easily search for information. For example, if you use Textfiles, and you have several contacts with a LastName of Smith, how would you locate those IF you have the info stored in separate textfiles? You could open each file and check it, but that can become unwieldy after a while and can cause some serious performance hits. With a database, you issue a simple query and the db reports back to you all Contacts with a LastName='Smith', quickly and easily!
Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!


Author Comment

ID: 20392165
What if I do want to keep it with just text files though?? I have my whole address book in text files so I thought it would be easiest just to keep it that way... I can attach my file that I have so far so you can see what actually is going on if that would be the easist?

Thanks again for your help!

Author Comment

ID: 20392190

Author Comment

ID: 20393331
I figured that part out thanks :)

Featured Post

Maximize Your Threat Intelligence Reporting

Reporting is one of the most important and least talked about aspects of a world-class threat intelligence program. Here’s how to do it right.

Join & Write a Comment

Suggested Solutions

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now