Navigation bar
  Home Print document Start Previous page
 157 of 234 
Next page End  

Gravitybox Schedule Primer
Page 155 
1998-2004 Gravitybox Software LLC
Figure 16.3
A contact has much associated information. After the user modifies the properties on
the screen, he may press the Ok button to save the information. In the save routine the
text boxes on the screen are used to set the contact object’s properties with the new
values.
Private Sub cmdButton_Click(Index As Integer)
  ReDim ParOut(1)
  Select Case Index
    
    Case 0: 'Ok
      Contact.Address = txtAddress.Text
      Contact.Anniversary = IIf(IsNull(dtAnniversary.Value), _
                           0, dtAnniversary.Value)
      Contact.Birthday = IIf(IsNull(dtBirthDate.Value), 0, _
                           dtBirthDate.Value)
      Contact.Company = txtCompany.Text
      Contact.Email = txtEMail.Text
      Contact.HomePageAddress = txtHomePageAddress.Text
      Contact.Name = txtName.Text
      Contact.Notes = txtNotes.Text
      Contact.PhoneBusiness = txtPhoneBusiness.Text
      Contact.PhoneBusinessFax = txtPhoneBusinessFax.Text
      Contact.PhoneHome = txtPhoneHome.Text
      Contact.PhoneMobile = txtPhoneMobile.Text
      Contact.Category = txtCategories.Text
      ParOut(0) = True
    
    Case 1: 'Cancel
      ParOut(0) = False
http://www.purepage.com