TextureFill.SetProperties

Sub SetProperties(SettingArray() As Variant)

Member of TextureFill

The SetProperties method allows you to set all of the properties of a texture fill with a single command.

The following code example applies the Vapor 2 texture to a rectangle and modifies the following properties: Texture #=20611, Density=30%, Softness=75%, Background=Black, Vapor=40% Cyan, Brightness=20%.

Sub Test() 
 Dim s As Shape 
 Dim tf As TextureFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) 
 Set tf = s.Fill.ApplyTextureFill("Vapor 2C") 
 tf.SetProperties 20611, 30, 75, CreateRGBColor(0, 0, 0), 
CreateRGBColor(117, 197, 240), 20 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.