Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.
Modérateur :Vilains modOOs
Règles du forum Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
Je teste une macro pour lier deux case à cocher.
Pour commencer j'ai fait ce test : Je clique sur une case à cocher et j'indique par une message box le statut de la case à cocher...
Hors, le statut est toujours à 0 ( non coché )....
Quelqu'un peut-il m'indiquer pourquoi cette bizarrerie existe ??? !!
Merci pour votre aide !!
REM ***** BASIC *****
Sub Main
DialogLibraries.LoadLibrary("Standard")
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDialog1.execute
End Sub
Sub case1
DialogLibraries.LoadLibrary("Standard")
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
case_1 = oDialog1.getControl("case1")
Select Case case_1.state
Case 0
MsgBox case_1.State
Case 0
MsgBox case_1.State
End Select
End Sub
Sub case2
DialogLibraries.LoadLibrary("Standard")
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
case_2 = oDialog1.getControl("case2")
Select Case case_2.state
Case 0
MsgBox case_2.State
Case 0
MsgBox case_2.State
End Select
End Sub
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Dernière modification par mickat le 19 avr. 2018 18:03, modifié 1 fois.
Dim oDlg as Object
Sub Main
DialogLibraries.LoadLibrary("Standard")
oDlg = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDlg.execute
End Sub
Sub Statecase(oEv as Object)
Select Case oEv.Source.Model.Name
Case "Case1"
MsgBox("Etat Case1 : " & oEv.Source.Model.State & Chr(13) & "Etat Case2 : " & oDlg.getControl("Case2").Model.State)
Case "Case2"
MsgBox("Etat Case1 : " & oDlg.getControl("Case1").Model.State & Chr(13) & "Etat Case2 : " & oEv.Source.Model.State)
End Select
End Sub
A+
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64