Hem > Utforma och skapa databaser > Skapa manus för att automatisera uppgifter > Manus med ActiveX Automation (Windows) > Exempel på ActiveX Automation (Windows)
Exempel på ActiveX Automation (Windows) Private Sub Form_Load()'---------------------------------------------- ' Exempelkod för åtkomst till FileMaker Pro' i Visual Basic.'' "FileMaker Pro 7.0 Type Library" måste vara markerat' och tillgängligt i Project/References i Visual Basic. '---------------------------------------------- '---------------------------------------------- ' Deklarera objekt och starta FileMaker '---------------------------------------------- ' Deklarera objektvariabler Dim FMApp As FMPro70Lib.ApplicationDim FMDocs As FMPro70Lib.DocumentsDim FMActiveDoc As FMPro70Lib.Document ' Starta FileMaker Set FMApp = CreateObject("FMPRO.Application") ' Ange dokumentobjektet Set FMDocs = FMApp.Documents ' Gör FileMaker synligt (vid start från Automation' förblir FileMaker dolt som standard.) FMApp.Visible = True '---------------------------------------------- ' Fråga efter öppna dokument '---------------------------------------------- 'Kontrollera antalet öppna dokument If FMDocs.Count = 0 ThenDebug.Print "Inga öppna dokument"ElseDebug.Print "Antalet öppna dokument är:"; FMDocs.CountEnd If '-------------------------------------------------- ' Öppna en FileMaker-databas och köra ett manus '-------------------------------------------------- ' Obs! FileMaker-filen "c:\testing.fmp12" måste vara tillgänglig' med manuset "Manus1" för att det följande' ska fungera. Dim myOpenFile As Object ' note: can also be declared AsFMPro70Lib.Document Set myOpenFile = FMDocs.Open("c:\testing.fmp12", "","")myOpenFile.DoFMScript ("Manus1") '-------------------------------------------------- ' Fråga efter det aktiva dokumentet '-------------------------------------------------- Set FMActiveDoc = FMDocs.Active ' Visa det aktiva dokumentets namn Debug.Print "Den aktiva filen är "; FMActiveDoc.FullName '-------------------------------------------------- ' Räkna upp och stänga dokument '-------------------------------------------------- Dim TempToc As Object If FMDocs.Count > 0 Then For Each TempDoc In FMDocs Debug.Print "Stänger dokument: "; TempDoc.FullNameTempDoc.CloseSet TempDoc = NothingNästaEnd If '---------------------------------------------- ' Rensa och stänga '---------------------------------------------- Set FMDocs = NothingSet FMActiveDoc = NothingSet myOpenFile = Nothing ' Avsluta FileMaker och frigöra variablerna ' (Note: always set the application variable to Nothing after quitting.) FMApp.QuitSet FMApp = Nothing End Sub Relaterade avsnitt Använda FileMaker Pro ActiveX Automation (Windows) ActiveX Automation - objekt, metoder och egenskaper (Windows)