Arvutusdialoogi loomine

Vali Tools -> Macros -> Macro ... alt Organizer

Vali "New Dialog", anna sellele nimi, näiteks "arvutus".

Töölaualt otsi nupp graafikakomponentide (Controls) joonistamiseks

Paiguta lehele kolm numbrilist välja ning nupp

Koosta moodulisse dialoogi avamise makro:

Dim oDialog1 AS Object
Sub avaDialoog
  DialogLibraries.LoadLibrary("Standard")
  oDialog1 = CreateUnoDialog(DialogLibraries.Standard.arvutus)
  oDialog1.Execute()
end sub

Testi makro tööd dialoogi avamisel

Lisa moodulisse järgnev funktsioon arvude korrutamiseks

sub  vormiArvutus
  oDialog1.getControl("NumericField3").value= _
    oDialog1.getControl("NumericField1").value* _
      oDialog1.getControl("NumericField2").value
end sub

Nupu sündmuste alt seo nupuvajutus eelnimetatud funktsiooniga.

Testi arvutuse tööd.