Instruction SQL dans OPENOFFICE BASIC
Fermé
michelhoude
Messages postés
45
Date d'inscription
samedi 10 mars 2007
Statut
Membre
Dernière intervention
10 février 2010
-
16 déc. 2007 à 04:55
marc sqxrlx - 21 juil. 2008 à 15:22
marc sqxrlx - 21 juil. 2008 à 15:22
A voir également:
- Instruction SQL dans OPENOFFICE BASIC
- Telecharger openoffice - Télécharger - Suite bureautique
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual basic - Télécharger - Langages
- Quick basic - Télécharger - Édition & Programmation
- File renamer basic - Télécharger - Gestion de fichiers
1 réponse
j'ai eu la réponse sur open office org
il faut obtenir les objets un par 1
Accès controles du Formulaire
option explicit
Sub Main
dim PysForm as object
dim PysCtrl as object
'thiscomponent : pour simplifier le document courant
'DrawPage : la "couche" dans laquelle sont dessinés les contrôles
'Forms : la collection des formulaires
PysForm = thiscomponent.DrawPage.Forms.GetByName("MainForm")
PysCtrl = PysForm.GetByName("PushButton")
'Modification du titre du bouton
PysCtrl.Label = "test"
PysCtrl = PysForm.GetByName("TextBox")
'Modification du texte affiché dans la zone de texte
PysCtrl.String = "test"
End Sub
il faut obtenir les objets un par 1
Accès controles du Formulaire
option explicit
Sub Main
dim PysForm as object
dim PysCtrl as object
'thiscomponent : pour simplifier le document courant
'DrawPage : la "couche" dans laquelle sont dessinés les contrôles
'Forms : la collection des formulaires
PysForm = thiscomponent.DrawPage.Forms.GetByName("MainForm")
PysCtrl = PysForm.GetByName("PushButton")
'Modification du titre du bouton
PysCtrl.Label = "test"
PysCtrl = PysForm.GetByName("TextBox")
'Modification du texte affiché dans la zone de texte
PysCtrl.String = "test"
End Sub