Microsoft Forms 2.0 Object Library - Multipage ActiveX in zenon
- in zenon, create a picture and add a dynamic element of the type "ActiveX control" in the picture, and in the properties of this element, select the Multipage control:
- in the VBA editor, in the menu "Extra" choose "References", and check the Microsoft Forms 2.0 Object Library:
- in the VBA editor, under "ThisProject" add the following code:
VBA Code:
Public WithEvents myMultipage As MultiPage
Public WithEvents myAxPic As DynPicture
Public Sub init_Multipage(obElem As Element)
Dim myPage As Page
Set myMultipage = obElem.AktiveX
If myMultipage Is Nothing Then
Exit Sub
End If
Set myPage = myMultipage.Pages.Item(0)
If Not myPage Is Nothing Then
myPage.Caption = "zenon"
End If
End Sub
Private Sub myAxPic_Close()
'release references to the ActiveX control when the zenon picture is closed
If Not myMultipage Is Nothing Then
set myMultipage = Nothing
End If
End Sub
Private Sub Project_Active()
'on initializing the project (runtime start / after a reload) initialize objects
Set myAxPic = thisProject.DynPictures.Item("PicWithActiveX")
End Sub
Private Sub Project_Inactive()
'release references, when the runtime is closed or reloaded
If Not myMultipage Is Nothing Then
set myMultipage = Nothing
End If
End Sub
- in the VBA editor under "ModuleElement" add the following code:
VBA Code:
Public Sub init_Multipage(obElem As Element)
thisProject.init_Multipage obElem
End Sub
- finally, at the ActiveX Element in the zenon picture, in the properties Window, add the "init_Multipage" procedure at the init event of the element:
This is a migrated post! Originally posted on 04.03.2009 by user markclemens. Please be aware that information can be outdated.