Home > Progettazione e creazione di database > Creazione di script per automatizzare le operazioni > Script con ActiveX Automation (Windows) > Esempio di ActiveX Automation (Windows)
Esempio di ActiveX Automation (Windows) Private Sub Form_Load()'---------------------------------------------- ' Codice di esempio per accedere a FileMaker Pro' In Visual Basic.'La libreria "FileMaker Pro 7.0 Type Library" deve essere selezionata' e disponibile nel progetto e nei riferimenti di Visual Basic. '---------------------------------------------- '---------------------------------------------- ' Dichiarazione degli oggetti e avvio di FileMaker '---------------------------------------------- ' Dichiara variabili oggetti Dim FMApp As FMPro70Lib.ApplicationDim FMDocs as FMPro70Lib.DocumentsDim FMActiveDoc As FMPro70Lib.Document ' Avvia FileMaker Set FMApp = CreateObject("FMPRO.Application") ' Imposta l'oggetto documenti Set FMDocs = FMApp.Documents ' Rendi visibile FileMaker (durante l'avvio da Automation,' FileMaker resta nascosto per impostazione predefinita). FMApp.Visible = True '---------------------------------------------- ' Richiesta a documenti aperti '---------------------------------------------- 'Controlla il conteggio dei documenti aperti If FMDocs.Count = 0 ThenDebug.Print "Nessun documento aperto"ElseDebug.Print "Il conteggio dei documenti aperti è:"; FMDocs.CountEnd If '-------------------------------------------------- ' Apertura di un database di FileMaker ed esecuzione di uno script '-------------------------------------------------- ' Note: Un file FileMaker "c:\testing.fmp12" deve essere disponibile' con uno script chiamato "Primo script" perché quanto segue' funzioni correttamente. Dim myOpenFile As Object ' nota: può essere anche dichiarato comeFMPro70Lib.Document Set myOpenFile = FMDocs.Open("c:\testing.fmp12", "","")myOpenFile.DoFMScript ("Primo script") '-------------------------------------------------- ' Richiesta al documento attivo '-------------------------------------------------- Set FMActiveDoc = FMDocs.Active ' Visualizza il nome del documento attivo Debug.Print "Il file attivo è "; FMActiveDoc.FullName '-------------------------------------------------- ' Enumerazione e chiusura di documenti '-------------------------------------------------- Dim TempToc As Object If FMDocs.Count > 0 Then For Each TempDoc In FMDocs Debug.Print "Per chiudere i documenti: "; TempDoc.FullNameTempDoc.CloseSet TempDoc = NothingSuccessivoEnd If '---------------------------------------------- ' Pulizia e uscita '---------------------------------------------- Set FMDocs = NothingSet FMActiveDoc = NothingSet myOpenFile = Nothing ' Esci da FileMaker e rilascia le variabili ' (Nota: imposta sempre la variabile di application su Nothing dopo l'uscita.) FMApp.QuitSet FMApp = Nothing End Sub Argomenti correlati Uso di FileMaker Pro ActiveX Automation (Windows) Oggetti, metodi e proprietà di ActiveX Automation (Windows)