DynPicture.Online



Online() As Boolean
ED
not used
RT
read only

Remarks

This property checks, if the current picture is open.

Sample:

The following example searches for the picture START. If it is found, a MsgBox informs the user, whether or not the picture is corrently opened.

'*** Is the current picture shown
Public Sub LeftClickUp_Picture_IsOnline(obElem As Element)
	Dim obPicture As DynPicture

	'*** Get picture-object
	Set obPicture = thisProject.DynPictures.Item("START")
	If (obPicture Is Nothing) Then
		MsgBox "Error: Picture-object is invalid..."
		Exit Sub
	End If

	'*** is picture shown?????
	If (obPicture.Online = True) Then
		MsgBox "Picture 'Start' is shown at the moment..."
	Else
		MsgBox "Picture 'Start' is NOT shown at the moment..." & vbCrLf & _
			 "Current Picture is '" & obElem.Parent.Parent.Name & "'!"
	End If

	obElem.LeftClickUp
End Sub

See Also

DynPicture