Platforms to show: All Mac Windows Linux Cross-Platform
/MacCocoa/Addressbook/Addressbook Constants
Required plugins for this example: MBS MacBase Plugin, MBS MacCocoa Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCocoa/Addressbook/Addressbook Constants
This example is the version from Tue, 30th Jul 2012.
Project "Addressbook Constants.xojo_binary_project"
FileTypes
Filetype text
End FileTypes
Class Window1 Inherits Window
Control ListBox1 Inherits ListBox
ControlInstance ListBox1 Inherits ListBox
End Control
EventHandler Sub Open()
a=new ABAddressbookMBS
Add a.kABAddressCityKey,"kABAddressCityKey"
Add a.kABAddressCountryCodeKey,"kABAddressCountryCodeKey"
Add a.kABAddressCountryKey,"kABAddressCountryKey"
Add a.kABAddressHomeLabel,"kABAddressHomeLabel"
Add a.kABAddressProperty,"kABAddressProperty"
Add a.kABAddressStateKey,"kABAddressStateKey"
Add a.kABAddressStreetKey,"kABAddressStreetKey"
Add a.kABAddressWorkLabel,"kABAddressWorkLabel"
Add a.kABAddressZIPKey,"kABAddressZIPKey"
Add a.kABAIMHomeLabel,"kABAIMHomeLabel"
Add a.kABAIMInstantProperty,"kABAIMInstantProperty"
Add a.kABAIMWorkLabel,"kABAIMWorkLabel"
Add a.kABAnniversaryLabel,"kABAnniversaryLabel"
Add a.kABAssistantLabel,"kABAssistantLabel"
Add a.kABBirthdayProperty,"kABBirthdayProperty"
Add a.kABBrotherLabel,"kABBrotherLabel"
Add a.kABCalendarURIsProperty,"kABCalendarURIsProperty"
Add a.kABChildLabel,"kABChildLabel"
Add a.kABCreationDateProperty,"kABCreationDateProperty"
Add a.kABDepartmentProperty,"kABDepartmentProperty"
Add a.kABEmailHomeLabel,"kABEmailHomeLabel"
Add a.kABEmailProperty,"kABEmailProperty"
Add a.kABEmailWorkLabel,"kABEmailWorkLabel"
Add a.kABFatherLabel,"kABFatherLabel"
Add a.kABFirstNamePhoneticProperty,"kABFirstNamePhoneticProperty"
Add a.kABFirstNameProperty,"kABFirstNameProperty"
Add a.kABFriendLabel,"kABFriendLabel"
Add a.kABGroupNameProperty,"kABGroupNameProperty"
Add a.kABHomeLabel,"kABHomeLabel"
Add a.kABHomePageLabel,"kABHomePageLabel"
Add a.kABHomePageProperty,"kABHomePageProperty"
Add a.kABICQHomeLabel,"kABICQHomeLabel"
Add a.kABICQInstantProperty,"kABICQInstantProperty"
Add a.kABICQWorkLabel,"kABICQWorkLabel"
Add a.kABJabberHomeLabel,"kABJabberHomeLabel"
Add a.kABJabberInstantProperty,"kABJabberInstantProperty"
Add a.kABJabberWorkLabel,"kABJabberWorkLabel"
Add a.kABJobTitleProperty,"kABJobTitleProperty"
Add a.kABLastNamePhoneticProperty,"kABLastNamePhoneticProperty"
Add a.kABLastNameProperty,"kABLastNameProperty"
Add a.kABMaidenNameProperty,"kABMaidenNameProperty"
Add a.kABManagerLabel,"kABManagerLabel"
Add a.kABMiddleNamePhoneticProperty,"kABMiddleNamePhoneticProperty"
Add a.kABMiddleNameProperty,"kABMiddleNameProperty"
Add a.kABModificationDateProperty,"kABModificationDateProperty"
Add a.kABMotherLabel,"kABMotherLabel"
Add a.kABMSNHomeLabel,"kABMSNHomeLabel"
Add a.kABMSNInstantProperty,"kABMSNInstantProperty"
Add a.kABMSNWorkLabel,"kABMSNWorkLabel"
Add a.kABNicknameProperty,"kABNicknameProperty"
Add a.kABNoteProperty,"kABNoteProperty"
Add a.kABOrganizationProperty,"kABOrganizationProperty"
Add a.kABOtherDatesProperty,"kABOtherDatesProperty"
Add a.kABOtherLabel,"kABOtherLabel"
Add a.kABParentLabel,"kABParentLabel"
Add a.kABPartnerLabel,"kABPartnerLabel"
Add a.kABPersonFlags,"kABPersonFlags"
Add a.kABPhoneHomeFAXLabel,"kABPhoneHomeFAXLabel"
Add a.kABPhoneHomeLabel,"kABPhoneHomeLabel"
Add a.kABPhoneMainLabel,"kABPhoneMainLabel"
Add a.kABPhoneMobileLabel,"kABPhoneMobileLabel"
Add a.kABPhonePagerLabel,"kABPhonePagerLabel"
Add a.kABPhoneProperty,"kABPhoneProperty"
Add a.kABPhoneWorkFAXLabel,"kABPhoneWorkFAXLabel"
Add a.kABPhoneWorkLabel,"kABPhoneWorkLabel"
Add a.kABRelatedNamesProperty,"kABRelatedNamesProperty"
Add a.kABSisterLabel,"kABSisterLabel"
Add a.kABSpouseLabel,"kABSpouseLabel"
Add a.kABSuffixProperty,"kABSuffixProperty"
Add a.kABTitleProperty,"kABTitleProperty"
Add a.kABUIDProperty,"kABUIDProperty"
Add a.kABURLsProperty,"kABURLsProperty"
Add a.kABWorkLabel,"kABWorkLabel"
Add a.kABYahooHomeLabel,"kABYahooHomeLabel"
Add a.kABYahooInstantProperty,"kABYahooInstantProperty"
Add a.kABYahooWorkLabel,"kABYahooWorkLabel"
End EventHandler
Protected Sub Add(value as string,text as string)
ListBox1.AddRow text
ListBox1.Cell(ListBox1.LastIndex,1)=value
ListBox1.cell(ListBox1.LastIndex,2)=a.LocalizedPropertyOrLabel(value)
End Sub
Property Protected a As ABAddressbookMBS
End Class
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
EventHandler Sub Open()
if TargetMachO=false then
MsgBox "This example needs a MachO target running on Mac OS X."
quit
end if
End EventHandler
End Class
End Project
See also:
The items on this page are in the following plugins: MBS MacCocoa Plugin.