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.Application
Dim FMDocs As FMPro70Lib.Documents
Dim FMActiveDoc As FMPro70Lib.Document

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 Then
Debug.Print "Nessun documento aperto"
Else
Debug.Print "Il conteggio dei documenti aperti è:"; FMDocs.Count
End 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.

Dim myOpenFile As Object ' nota: può anche essere dichiarato come
FMPro70Lib.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.FullName
TempDoc.Close
Set TempDoc = Nothing
Next
End If

'----------------------------------------------

Set FMDocs = Nothing
Set FMActiveDoc = Nothing
Set myOpenFile = Nothing