Campo calcolato in una finestra di dialogo di Calc

[erik75]

Spero che qualcuno possa aiutarmi.
Ho creato una finestra di dialogo con tre campi numerici di valore iniziale 1, 2 e 3

Codice: Seleziona tutto

Dim Dlg As Object
 
DialogLibraries.LoadLibrary("Standard")
Dlg = CreateUnoDialog(DialogLibraries.Standard.Dialog2)
Ctl1 = Dlg.getControl("Num1")
Ctl1.value = 1
Ctl2 = Dlg.getControl("Num2")
Ctl2.value = 2
Ctl3 = Dlg.getControl("Num3")
Ctl3.value = 3
 
Dlg.Execute()
rem------omissis

Dovrei fare in modo che modificando i valori in Num1 o Num2 venga aggiornato automaticamente Num3
Ho provato ad assegnare un evento ai campi numerici ma ricevo sempre errore.
Grazie.

[erik75]

Mi rispondo da solo

Codice: Seleziona tutto

REM  *****  BASIC  *****
option explicit

private Dlg As Object

'Sub per apertura maschera
Sub Apri_Finestra1
Dim Valore as long
DialogLibraries.LoadLibrary("Standard")

Dlg = CreateUnoDialog(DialogLibraries.Standard.dlgF_Finestra1)
Valore=Dlg.Execute()
Dlg.dispose()

end sub


Sub CALCOLA(Event as object)
Dim Messaggio as integer
dim oControlModel as object
messaggio = Dlg.getControl("num1").value + Dlg.getControl("num2").value

'Modifico il testo
oControlModel = Dlg.getControl("num3")
oControlModel.model.value= Messaggio
end sub