Chaper 6: Try It Out question

ericzimma · August 30th, 2006, 03:16 PM

I can't figure question 7 in the Try It Out "Creating Dynamic Buttons." The question reads: "Edit the Add Person Click event handler in the main form code to set the AddMode property to TRUE."

Any ideas?

EZ

Steve LeMaster · August 30th, 2006, 09:20 PM

The project in the book does not function correctly. Nor does the downloadable version from this site. You are right at the chapter where everything goes awry.

I have been going back and forth, via email, about this and so far have been unsuccessful.

Code:

Private Sub btnAddPerson_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddPerson.Click
        objPersonalDetails = New PersonalDetails
        Dim objPerson As New Person("Glenda", "Brown")
        With objPerson
            .BirthDate = "1965-12-02"
            .Address = "333 Green Valley Way, Los Angeles, CA"
            .HomePhone = "(811) 8888 7777"
        End With
        objPersonalDetails.Person = objPerson
        Me.Text = "Personal Organizer - Viewing " + _
        objPersonalDetails.Person.DisplayName
        objPersonalDetails.AddMode = True

        If pnlMain.Controls.Contains(objPersonList) Then
            pnlMain.Controls.Remove(objPersonList)
            objPersonList = Nothing
        End If

        pnlMain.Controls.Add(objPersonalDetails)
        objPersonalDetails.Dock = DockStyle.Fill

Don't forget this in PersonalDetails.vb, though:

Code:

Public Class PersonalDetails
    Private mPerson As Person
    Private mAddMode As Boolean

    Public Property AddMode() As Boolean
        Get
            Return mAddMode
        End Get
        Set(ByVal value As Boolean)
            mAddMode = value
            If mAddMode = True Then
                SetUpButtons()
            Else
                RemoveButtons()
            End If
        End Set
    End Property

ericzimma · August 31st, 2006, 12:09 PM

Thank you very much Steve.
I guess I shouldn't bother to finish this project.

EZ

Steve LeMaster · August 31st, 2006, 12:41 PM

Well, I wouldn't say forget it; you may very well get it to compile correctly.

Unfortunately, I, as well as others, can't get it to compile like advertised. At the very least it may be worth trying to figure out why it doesn't work and post it here.

krecco · May 14th, 2007, 08:02 AM

Try cahanging position of the buttons in the PersonalDetails.vb - Private Sub SetUpButtons() :

        With mSaveButton
            .Name = "btnSave"
            .Text = "Shrani"
            .Anchor = AnchorStyles.Bottom + AnchorStyles.Right
            .Top = Me.Height - (.Height + 30) //was +5
            .Left = Me.Width - (.Width + 100) // was +5
        End With

mCancleButton:

            .Top = Me.Height - (.Height + 30)
            .Left = Me.Width - (.Width + 200)

MisterH · March 25th, 2008, 05:32 AM

One error I found was with the code below;

Private Sub btnAddPerson_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAddPerson.Click
        objPersonalDetails = New PersonalDetails
        Dim objPerson As New Person("Glenda", "Brown")
        With objPerson
            .BirthDate = "1965-12-02"
            .Address = "333 Green Valley Way, Los Angeles, CA"
            .HomePhone = "(811) 8888 7777"
        End With

The error concerns assigning the birth date and the line should read;
            .BirthDate = CType("1965-12-02", Date)

Just about to tackle the AddMode section so I will see how it goes.

MisterH · March 26th, 2008, 06:37 AM

Had all sorts of problems getting the AddMode to work. In the end I copied in the code from the downloads and corrected the known errors, adjusted the txtNotes height and now it all seems to work. Haven't managed to find why my manual entry wouldn't work :) ...it appeared to be the same.:(