![]() ![]() ![]() ![]() ![]() Gravitybox Schedule Primer
Page 154
1998-2004 Gravitybox Software LLC
Figure 16.2
Private Sub LoadForm()
Dim oContact As CContactEl
Dim oListItem As ListItem
Call oContacts.Load(ThisUser)
Call frmMDI.SetStatus(oContacts.Count & " Items")
Call lvwContact.ListItems.Clear
For Each oContact In oContacts
Set oListItem = lvwContact.ListItems.Add(, _
oContact.UniqueKey, oContact.Name, _
, "Contact")
Call FormatListItem(oListItem, oContact)
Next
End Sub
The LoadForm method of this screen will load the contacts collection and populate the
Contacts control. The user may select a contact by double-clicking or pressing the
<Enter> key. When this occurs the contacts property window is displayed. This allows
the user to modify information about the contact.
|