OpenOffice.org BASIC Guide.pdf - OpenOffice.org wiki

Properties 214
In the preceding example, you can
also assign the Step value of 0 to the
dividing line as well as the Cancel,
Prev, Next, and Done buttons to
display these elements on all pages.
You can also assign the elements to
an individual tab page (for example
page 1).
The following program code shows
how the Step value in event handlers
of the Next and Prev buttons can be
increased or reduced and changes
the status of the buttons.
Sub cmdNext_Initiated
Dim cmdNext As Object
Dim cmdPrev As Object
cmdPrev = Dlg.getControl("cmdPrev")
cmdNext = Dlg.getControl("cmdNext")
cmdPrev.Model.Enabled = Not cmdPrev.Model.Enabled
cmdNext.Model.Enabled = False
Dlg.Model.Step = Dlg.Model.Step + 1
End Sub
Sub cmdPrev_Initiated
Dim cmdNext As Object
Dim cmdPrev As Object
cmdPrev = Dlg.getControl("cmdPrev")
cmdNext = Dlg.getControl("cmdNext")
cmdPrev.Model.Enabled = False
cmdNext.Model.Enabled = True
Dlg.Model.Step = Dlg.Model.Step - 1
End Sub
Designing Page 1 of the dialog
A global Dlg variable that references an open dialog must be included to make this example
possible. The dialog then changes its appearance as follows: