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

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 contact’s property window is displayed. This allows
the user to modify information about the contact.
http://www.purepage.com