Verständnisfrage (nachgebildete MsgBox)

[komma4]

Beispiel für einen während der Laufzeit erzeugten Dialog:

Code: Alles auswählen

Sub dynDialog

oDialogModel = _
 createUnoService( "com.sun.star.awt.UnoControlDialogModel" ) 
 
With oDialogModel
 .Title = "dd_DIALOG TEST" 
End With


oDialogControl = _
 createUnoService( "com.sun.star.awt.UnoControlDialog" ) 

With oDialogControl
 .setModel( oDialogModel ) 
 .setPosSize( 220, 0, 600, 300, com.sun.star.awt.PosSize.POSSIZE) 
End With 

oDialogControl.setVisible( True ) 
oDialogControl.execute 

oDialogControl.endExecute 

End Sub

In diesen Dialog kannst Du nun alle weiteren Kontrollelemente einbauen; Ausschnitt aus einem Testprogramm:

Code: Alles auswählen

Sub dd_label( sName as String, sLabel as String ) 
oModel = _
 oDialogModel.createInstance( "com.sun.star.form.component.FixedText" ) 
 
oModel.BackgroundColor = dd_BACKCOLOR
oModel.FontWeight=com.sun.star.awt.FontWeight.BOLD 
oDialogModel.insertByName( sName , oModel ) 
oModel.Name=sName 
oControl = oDialogControl.getControl( sName ) 
oModel.Label = sLabel 
oControl.setPosSize( 210, 40,200, 40, com.sun.star.awt.PosSize.POSSIZE) 


End Sub

Hilft Dir das weiter?