![]() ![]() ![]() ![]() ![]() 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 objects 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
|