Platforms to show: All Mac Windows Linux Cross-Platform
/MacCocoa/Addressbook/Add address to person
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/Add address to person
This example is the version from Sat, 19th Oct 2012.
Project "Add address to person.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Löschen"
Const kFileQuit = "Beenden"
Const kFileQuitShortcut = ""
EventHandler Sub Open()
dim a as new ABAddressBookMBS
if a.Handle = 0 then
MsgBox "Failed to access shared AddressBook."
Return
end if
dim p as ABPersonMBS = a.owner
dim m as ABMutableMultiValueMBS
dim v as ABMultiValueMBS = p.valueForProperty(a.kABAddressProperty)
if v = nil then
// create new addresses
m = new ABMutableMultiValueMBS
else
m = v.edit // edit existing addresses
end if
// add an address
dim d as new Dictionary
d.Value(a.kABAddressCityKey)="Berlin"
d.Value(a.kABAddressCountryKey)="Germany"
d.Value(a.kABAddressStateKey)="New York"
d.Value(a.kABAddressStreetKey)="Sixth Avenue 5"
d.Value(a.kABAddressCountryCodeKey)="de"
d.Value(a.kABAddressZIPKey)="12345"
// add a home Address
dim homeid as string = m.addValue(d,a.kABAddressHomeLabel)
// and make primary
call m.setPrimaryIdentifier(homeid)
// write back
call p.setValue m,a.kABAddressProperty
m=nil
// save
if a.save then
call p.ShowInAddressbook
else
msgBox "Addressbook could not be saved."
end if
End EventHandler
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&Ablage"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Bearbeiten"
MenuItem EditUndo = "&Rückgängig"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "&Ausschneiden"
MenuItem EditCopy = "&Kopieren"
MenuItem EditPaste = "&Einfügen"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "&Alles auswählen"
End MenuBar
End Project
See also:
The items on this page are in the following plugins: MBS MacCocoa Plugin.