Kod: Zaznacz cały
sub kontrola(oEv)
caller = oEv.Source
dlg_nr1 = caller.getContext()
df1 = dlg_nr1.getControl("TextField1")
Kod: Zaznacz cały
sub kontrola(oEv)
caller = oEv.Source
dlg_nr1 = caller.getContext()
df1 = dlg_nr1.getControl("TextField1")
Kod: Zaznacz cały
sub kontrola(oEv)
caller = oEv.Source
dlg_nr1 = caller.getContext()
df1 = dlg_nr1.getControl("TextField1")
static df1 as object
Dim Dlg As object
DialogLibraries.LoadLibrary("Standard")
dlg_nr2= CreateUnoDialog(DialogLibraries.dlg_nr2)
Dlg.Execute()
Dlg.dispose())
Kod: Zaznacz cały
sub wpisz_zamknij(oEv)
caller = oEv.Source
dlg_nr2 = caller.getContext()
df1.text = 1234
dlg_nr2.endExecute()
end sub