IMcImageVisible Property |
![]() |
Namespace: MediaCy.IQL.Engine
'Example 1. Make an image not Visible then Visible again Debug.Assert ThisApplication.ActiveImage Is Nothing 'start example with no images Dim myImage As McImage Images.Open Path & "Images\BoneBig.jpg" Windows.Add 'make two windows 'Keep a reference on this for the Visible=False then True test Set myImage = ActiveImage myImage.Visible = False 'close all windows and remove image from collection Debug.Assert myImage.Collection Is Nothing myImage.Visible = True 'show it again, which adds it back to the collection Debug.Assert Not myImage.Collection Is Nothing Set myImage = Nothing 'release our reference on the McImage 'close the image, which sets Visible=False and removes it from the collection ThisApplication.ActiveImage.Close 'user will not be queried if the image is modified. Debug.Assert ThisApplication.ActiveImage Is Nothing 'end with no images 'Example 2. Ask the user if they want to save a Modified image Images.Add "TestImage", 240, 200 Debug.Assert Not ThisApplication.ActiveImage.Modified 'new images are not Modified ThisApplication.ActiveImage.Clear Array(10, 10, 200, 150), 200 Debug.Assert ThisApplication.ActiveImage.Modified 'now it is Modified Windows(ActiveImage).Close 'ask user to save the Modified image