Forum OpenOffice LibreOffice NeoOffice

Code : Tout sélectionner

sub OpenFormDivers(oEv as Object)
Dim oForm as Object, Control as Object, Controller as Object
Dim NomForm as string
'sur l'évènement lors du chargement des formulaires du select case
	oForm = oEv.Source
'récupère le nom du formulaire qui est chargé	
	NomForm = oForm.name
'en fonction du formulaire chargé	
	select case NomForm		
		case "fAuteurs"
'définit le titre de la fenêtre		
			ThisComponent.CurrentController.Frame.Title = "Saisie des Auteurs"
'définit le contrôle qui prendra le focus			
			Control = oForm.getByName("txtNomAuteur")
		case "fOeuvres"
			ThisComponent.CurrentController.Frame.Title = "Saisie Oeuvres et livres"
			Control = oForm.getByName("txtTitre")
		case "fVilles"
			ThisComponent.CurrentController.Frame.Title = "Saisie Codes postaux et villes"
			exit Sub
		case "fAdherents"
			ThisComponent.CurrentController.Frame.Title = "Saisie des Adhérents"
			Control = oForm.getByName("txtTitre")
		case "fTypesOeuvres"
			ThisComponent.CurrentController.Frame.Title = "Types d'oeuvres"
			exit Sub
		case "fEditeurs"
			ThisComponent.CurrentController.Frame.Title = "Saisie des éditeurs"
			exit Sub
		case "fEmprunts"
			ThisComponent.CurrentController.Frame.Title = "Emprunt Livres"
			Control = oForm.getByName("txtNomComplet")
		case "fRestitutions"
			ThisComponent.CurrentController.Frame.Title = "Restitution Livres"
			Control = oForm.getByName("txtNomComplet")
		case "fMenu"
			ThisComponent.CurrentController.Frame.Title = "Menu de l'application"
			Control = oForm.getByName("btAdherents")
	end select
	Controller = oForm.Parent.Parent.CurrentController
'met le focus sur le contrôle désigné	
	Controller.getControl(Control).setFocus()	
end sub

Code : Tout sélectionner

Sub OuvrirMenu
Dim oForm as Object, Control as Object, Controller as Object
  	ThisDatabaseDocument.CurrentController.connect("","")
  	oForm = ThisDatabaseDocument.FormDocuments.getByName("FormulaireMenu").open
  	oForm.CurrentController.Frame.Title = "Menu de l'application"
	oForm = oForm.DrawPage.Forms.getByName("FormulaireMenu")
	Control = oForm.getByName("btnJeux")
	Controller = oForm.Parent.Parent.CurrentController	
	Controller.getControl(Control).setFocus()
End Sub

Code : Tout sélectionner

Sub OuverureAutomatiqueFromualireLorsDemarrage(evt As Object)
'*************************************************************************************************
'Lancée par l’événement "Ouvrir le document" 
' Permet d'afficher le formulaire appelé "FormulaireMenu" automatiquement à l'ouverture de la base
'=================================================================================================
   Dim oConnexion AS Object
   Dim props(0) As New com.sun.star.beans.PropertyValue
   ThisDatabaseDocument.CurrentController.connect("","")
   oConnexion = ThisDatabasedocument.CurrentController.ActiveConnection
   ThisComponent.FormDocuments.loadComponentFromURL("FormulaireMenu","", 0, props())
End Sub