DynPicture.Open

Open()

Remarks

This event is executed, when the current picture is opened.

Hint: For the use of events, the "DynPicture" object must be defined with WithEvents.

e.g. Dim WithEvents zPIC As DynPicture

Sample

'Declaration of zPIC, in order to use it with events
Dim WithEvents zPIC As dynpicture

'Event is fired, when project is opened
Private Sub Project_Active()
	'Initialize zPIC with the start picture
	Set zPIC = thisProject.DynPictures.Item("START")
End Sub

'Event is fired, when picture is opened
Private Sub zPIC_Open()
	'Output the time when the picture was opened
	Debug.Print Now & " Picture OPENED!"
End Sub

'Event is fired, when project is closed
Private Sub Project_Inactive()
	'Deinitialize zPIC on project close
	Set zPIC = Nothing
End Sub

See Also

DynPicture