Re: [dev-it] Dialoghi: OptionButton

Mon, 17 Jul 2006 16:31:49 -0700 

Marco Caresia wrote:


Intendi un CheckBox?



Ok, non avevo capito.

Ho fatto una prova. Però non ho capito perché funziona  ;)

Dim oDialog1

Sub Main
        ' creo il dialogo       
        oDlgModel = CreateUnoService("com.sun.star.awt.UnoControlDialogModel")
        With oDlgModel
                .PositionX = 100 : .PositionY = 10
                .Width = 150 : .Height = 200
        End With
                
        ' aggiungo 3 option button

	oControl1 = 
oDlgModel.CreateInstance("com.sun.star.awt.UnoControlRadioButtonModel")

        With oControl1
                .Name="Radio1" : .Label="Radio1"
                .Height = 30    :    .Width = 30
                .PositionX = 10    :    .PositionY = 10
        End With
        

	oControl2 = 
oDlgModel.CreateInstance("com.sun.star.awt.UnoControlRadioButtonModel")

        With oControl2
                .Name="Radio2" : .Label="Radio2"
                .Height = 30    :    .Width = 30
                .PositionX = 10    :    .PositionY = 50
        End With
        

	oControl3 = 
oDlgModel.CreateInstance("com.sun.star.awt.UnoControlRadioButtonModel")

        With oControl3
                .Name="Radio3" : .Label="Radio3"
                .Height = 30    :    .Width = 30
                .PositionX = 10    :    .PositionY = 90
        End With
        
        oDlgModel.insertByName("Radio1", oControl1)
        oDlgModel.insertByName("Radio2", oControl2)
        oDlgModel.insertByName("Radio3", oControl3)

        ' Ci metto un OK
        oOK = oDlgModel.createInstance( 
"com.sun.star.awt.UnoControlButtonModel" )
        ' Initialize the button model's properties.
        With oOK
                .PositionX = 60    :    .PositionY = 130        
                .Width = 30 :    .Height = 30
                .Name = "OK" :   .Label = "OK"
        End With

        oDlgModel.insertByName("OK", oOK)
        oDialog1 = CreateUnoService("com.sun.star.awt.UnoControlDialog")
        oDialog1.setModel(oDlgModel)

        oActionListener = CreateUnoListener("oOK_",_
                "com.sun.star.awt.XActionListener" )
        oDialog1.getControl("OK").addActionListener( oActionListener )

        Dim oWindow
        oWindow = CreateUnoService("com.sun.star.awt.Toolkit")
        oDialog1.createPeer(oWindow, null)

        oDialog1.execute()

End Sub

Sub oOK_actionPerformed( oEvent )
        sStato1 = "Radio1: " & oDialog1.getControl("Radio1").State & CHR$(13)
        sStato2 = "Radio2: " & oDialog1.getControl("Radio2").State & CHR$(13)
        sStato3 = "Radio3: " & oDialog1.getControl("Radio3").State
        Msgbox sStato1 & sStato2 & sStato3
End Sub

--
MC

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]























					Rispondere a