Re: Verständnisfrage (nachgebildete MsgBox)
Verfasst: So, 23.08.2009 17:33
Beispiel für einen während der Laufzeit erzeugten Dialog:
In diesen Dialog kannst Du nun alle weiteren Kontrollelemente einbauen; Ausschnitt aus einem Testprogramm:
Hilft Dir das weiter?
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 SubIn 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