Gemfury

bee / draftsight deb

Repository URL to install this package:
Details
draftsight / opt / dassault-systemes / DraftSight / APISDK / Create_Table_Example_VBNET.htm
<html>

<head>
<title> Create Table Example (VB.NET)</title>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<link rel="stylesheet" type="text/css" href="ApiHelp.css">
<meta name=MS-HKWD content="VB.NET examples">
<meta name=MS-HKWD content="VB.NET examples,Tables">
<meta name=MS-HKWD content="VB.NET examples,TableStyles">
<meta name=MS-HKWD content="VB.NET examples,TableStyleManager">
<meta name=MS-HKWD content="VB.NET examples,transparency">
<meta name=MS-HKWD content="VB.NET examples,Colors">
<meta name=MS-HKWD content="VB.NET examples,Layers">

</head>


<body>
<h1> Create Table Example (VB.NET)</h1>
<p>This example shows how to change the transparency of the active Layer, create 
a TableStyle and Table, and change the background colors of the top row and a cell 
in the Table.</p>
<pre style="font-family: Consolas; font-size: 13; color: black; background: white"><span style="color:green;">'--------------------------------------------------------------</span>
<span style="color:green;">'&nbsp;Preconditions:</span>
<span style="color:green;">'&nbsp;1.&nbsp;Create&nbsp;a&nbsp;VB.NET&nbsp;Windows&nbsp;console&nbsp;project.</span>
<span style="color:green;">'&nbsp;2.&nbsp;Copy&nbsp;and&nbsp;paste&nbsp;this&nbsp;project&nbsp;into&nbsp;the&nbsp;VB.NET&nbsp;IDE.</span>
<span style="color:green;">'&nbsp;3.&nbsp;Add&nbsp;a&nbsp;reference&nbsp;to</span>
<span style="color:green;">'&nbsp;&nbsp;&nbsp;&nbsp;<i>install_dir\</i><b>APISDK\tlb\DraftSight.Interop.dsAutomation.dll</b></span>
<span style="color:green;">'&nbsp;4.&nbsp;Start&nbsp;DraftSight and open a new document.
'&nbsp;5.&nbsp;Open&nbsp;the&nbsp;Immediate&nbsp;window.</span>
<span style="color:green;">'&nbsp;6.&nbsp;Press&nbsp;F5.</span>
<span style="color:green;">'</span>
<span style="color:green;">'&nbsp;Postconditions:&nbsp;
' 1. Gets the transparency object for the active Layer and prints its
'    transparency percentage to the Immediate window.
' 2. Changes the transparency percentage of the active Layer and prints 
'    its</span><span style="color:green;"> new percentage </span><span style="color:green;">to the Immediate window.
</span><span style="color:green;">'&nbsp;3.&nbsp;Creates and activates a&nbsp;new&nbsp;TableStyle&nbsp;named&nbsp;<b>Sample&nbsp;Table&nbsp;Style</b></span><span style="color:green;">. 
'&nbsp;4.&nbsp;Inserts a&nbsp;Table and applies the&nbsp;<b>Sample&nbsp;Table&nbsp;Style</b>&nbsp;TableStyle</span>.<span style="color:green;">
' 5. Gets the transparency object for the Table.
' 6. Prints whether the transparency object for the Table is <b>ByLayer</b>.
' 7. If not, then changes and updates the transparency object 
'    of the Table to <b>ByLayer</b>.&nbsp;
' 8. Changes the top row's background color.
' 9. Changes the background color of the cell in the second row 
'    </span><span style="color:green;">and second column </span><span style="color:green;">to match the top row's background color.&nbsp;&nbsp;
'10. Prints the name of the TableStyle to the Immediate window.
'11. Examine the drawing and the Immediate window.
'----------------------------------------------------------------</span> </pre>
<pre style="font-family: Consolas; font-size: 13; color: black; background: white"><span style="color:blue;">Imports</span>&nbsp;DraftSight.Interop.dsAutomation
 
<span style="color:blue;">Module</span>&nbsp;<span style="color:#2b91af;">Module1</span>
 
&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Sub</span>&nbsp;Main()
 
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsApp&nbsp;<span style="color:blue;">As</span>&nbsp;DraftSight.Interop.dsAutomation.<span style="color:#2b91af;">Application</span>
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Connect&nbsp;to&nbsp;DraftSight&nbsp;application</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsApp&nbsp;=&nbsp;GetObject(,&nbsp;<span style="color:#a31515;">&quot;DraftSight.Application&quot;</span>)
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Abort&nbsp;any&nbsp;command&nbsp;currently&nbsp;running&nbsp;in&nbsp;DraftSight</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'to&nbsp;avoid&nbsp;nested&nbsp;commands</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsApp.<b>AbortRunningCommand</b>()
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Get&nbsp;active&nbsp;document</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsDoc&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">Document</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsDoc&nbsp;=&nbsp;dsApp.<b>GetActiveDocument</b>()
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">If</span>&nbsp;dsDoc&nbsp;<span style="color:blue;">Is</span>&nbsp;<span style="color:blue;">Nothing</span>&nbsp;<span style="color:blue;">Then</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;MsgBox(<span style="color:#a31515;">&quot;There&nbsp;are&nbsp;no&nbsp;open&nbsp;documents&nbsp;in&nbsp;DraftSight.&quot;</span>)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Return</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">End</span>&nbsp;<span style="color:blue;">If

</span>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Get&nbsp;how&nbsp;transparency&nbsp;is&nbsp;defined</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsLayerManager&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">LayerManager</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsLayer&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">Layer</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsLayerManager&nbsp;=&nbsp;dsDoc.<b>GetLayerManager</b>()
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsLayer&nbsp;=&nbsp;dsLayerManager.<b>GetActiveLayer</b>()
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#2b91af;">Debug</span>.Print(<span style="color:#a31515;">&quot;Transparency&nbsp;percentage&nbsp;for&nbsp;active&nbsp;Layer:&nbsp;&quot;</span>&nbsp;+&nbsp;<span style="color:#2b91af;">Convert</span>.ToString(dsLayer.<b>Transparency</b>))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Set&nbsp;new&nbsp;transparency&nbsp;percentage&nbsp;for&nbsp;the&nbsp;active&nbsp;Layer</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsLayer.Transparency&nbsp;=&nbsp;50
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#2b91af;">Debug</span>.Print(<span style="color:#a31515;">&quot;New&nbsp;transparency&nbsp;percentage&nbsp;for&nbsp;active&nbsp;Layer:&nbsp;&quot;</span>&nbsp;+&nbsp;<span style="color:#2b91af;">Convert</span>.ToString(dsLayer.<b>Transparency</b>))
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Get&nbsp;the&nbsp;TableStyle&nbsp;Manager</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsTableStyleManager&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">TableStyleManager</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTableStyleManager&nbsp;=&nbsp;dsDoc.<b>GetTableStyleManager</b>
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Create&nbsp;the&nbsp;TableStyle</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsTableStyle&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">TableStyle</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;sampleTableStyle&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:blue;">String</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;status&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color: #0000FF">Integer</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sampleTableStyle&nbsp;=&nbsp;<span style="color:#a31515;">&quot;Sample&nbsp;Table&nbsp;Style&quot;</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTableStyleManager.<b>CreateTableStyle</b>(sampleTableStyle,&nbsp;dsTableStyle,&nbsp;status)
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Set&nbsp;the&nbsp;TableStyle&nbsp;styles</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Create&nbsp;the&nbsp;Table&nbsp;in&nbsp;a&nbsp;downward&nbsp;direction</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTableStyle.<b>HeaderOrientation</b>&nbsp;=&nbsp;<span style="color:#2b91af;">dsTableHeaderOrientation_e</span>.dsTableHeaderOrientation_Down
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Set&nbsp;the&nbsp;Colors&nbsp;for&nbsp;the&nbsp;Table&nbsp;backgrounds</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsColorHeader&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">Color</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsColorData&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">Color</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsColorTitle&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">Color</span>
</pre>
<pre style="font-family: Consolas; font-size: 13; color: black; background: white">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsColorHeader&nbsp;=&nbsp;dsTableStyle.<b>GetBackgroundColor</b>(<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Header)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsColorHeader.<b>SetNamedColor</b>(<span style="color:#2b91af;">dsNamedColor_e</span>.dsNamedColor_Cyan)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTableStyle.<b>SetBackgroundColor</b>(<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Header,&nbsp;dsColorHeader)
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsColorData&nbsp;=&nbsp;dsTableStyle.<b>GetBackgroundColor</b>(<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Data)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsColorData.<b>SetNamedColor</b>(<span style="color:#2b91af;">dsNamedColor_e</span>.dsNamedColor_Green)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTableStyle.<b>SetBackgroundColor</b>(<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Data,&nbsp;dsColorData)
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsColorTitle&nbsp;=&nbsp;dsTableStyle.<b>GetBackgroundColor</b>(<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Title)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsColorTitle.<b>SetNamedColor</b>(<span style="color:#2b91af;">dsNamedColor_e</span>.dsNamedColor_White)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTableStyle.<b>SetBackgroundColor</b>(<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Title,&nbsp;dsColorTitle)</pre>
<pre style="font-family: Consolas; font-size: 13; color: black; background: white">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Activate&nbsp;the&nbsp;TableStyle</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTableStyle.<b>Activate</b>()
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Get&nbsp;the&nbsp;model&nbsp;document</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsModel&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">Model</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsModel&nbsp;=&nbsp;dsDoc.<b>GetModel</b>
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Get&nbsp;the&nbsp;Sketch&nbsp;Manager</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsSketchManager&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">SketchManager</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsSketchManager&nbsp;=&nbsp;dsModel.<b>GetSketchManager</b>
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Insert&nbsp;the&nbsp;Table</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsTable&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">Table</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;x&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:blue;">Double</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;x&nbsp;=&nbsp;6
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;y&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:blue;">Double</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;y&nbsp;=&nbsp;6
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;row&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color: #0000FF">Integer</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;row&nbsp;=&nbsp;4
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;col&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color: #0000FF">Integer</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;col&nbsp;=&nbsp;5
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;rowHeight&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:blue;">Double</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rowHeight&nbsp;=&nbsp;2
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;colWidth&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:blue;">Double</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;colWidth&nbsp;=&nbsp;4
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTable&nbsp;=&nbsp;dsSketchManager.<b>InsertTable</b>(x,&nbsp;y,&nbsp;row,&nbsp;col,&nbsp;rowHeight,&nbsp;colWidth,&nbsp;<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Title,&nbsp;<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Header,&nbsp;<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Data)</pre>
<pre style="font-family: Consolas; font-size: 13; color: black; background: white">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Get&nbsp;transparency&nbsp;object&nbsp;for&nbsp;Table</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">Dim</span>&nbsp;dsTransparency&nbsp;<span style="color:blue;">As</span>&nbsp;<span style="color:#2b91af;">Transparency</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTransparency&nbsp;=&nbsp;dsTable.<b>Transparency</b>()
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Find&nbsp;out&nbsp;if&nbsp;Table's&nbsp;transparency&nbsp;is&nbsp;ByLayer</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#2b91af;">Debug</span>.Print(<span style="color:#a31515;">&quot;Transparency&nbsp;defined&nbsp;ByLayer:&nbsp;&quot;</span>&nbsp;+&nbsp;<span style="color:#2b91af;">Convert</span>.ToString(dsTransparency.<b>IsByLayer</b>))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'If&nbsp;not,&nbsp;then&nbsp;change&nbsp;Table's&nbsp;transparency&nbsp;to&nbsp;ByLayer&nbsp;and&nbsp;</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'update&nbsp;Table's&nbsp;transparency&nbsp;object</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">If</span>&nbsp;<span style="color:blue;">Not</span>&nbsp;dsTransparency.<b>IsByLayer</b>&nbsp;<span style="color:blue;">Then</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTransparency.<b>SetByLayer</b>()
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#2b91af;">Debug</span>.Print(<span style="color:#a31515;">&quot;Transparency&nbsp;now&nbsp;ByLayer:&nbsp;&quot;</span>&nbsp;+&nbsp;<span style="color:#2b91af;">Convert</span>.ToString(dsTransparency.<b>IsByLayer</b>))
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Update&nbsp;Table's&nbsp;transparency&nbsp;object&nbsp;</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTable.<b>Transparency</b>&nbsp;=&nbsp;dsTransparency
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">End</span>&nbsp;<span style="color:blue;">If</span>
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Change&nbsp;Table's&nbsp;top&nbsp;row's&nbsp;background&nbsp;color</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsColorTitle.<b>SetNamedColor</b>(<span style="color:#2b91af;">dsNamedColor_e</span>.dsNamedColor_Yellow)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTable.<b>SetBackgroundColor</b>(<span style="color:#2b91af;">dsTableCellType_e</span>.dsTableCellType_Title,&nbsp;dsColorTitle)
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Change&nbsp;background&nbsp;color&nbsp;of&nbsp;cell&nbsp;in&nbsp;the&nbsp;second&nbsp;row&nbsp;and&nbsp;&nbsp;</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'second&nbsp;column&nbsp;to&nbsp;match&nbsp;the&nbsp;top&nbsp;row's&nbsp;background&nbsp;color</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsTable.<b>SetCellBackgroundColor</b>(1,&nbsp;1,&nbsp;dsColorTitle)
 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:green;">'Get&nbsp;the&nbsp;name&nbsp;of&nbsp;the&nbsp;TableStyle&nbsp;for the&nbsp;just-inserted&nbsp;Table</span>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#2b91af;">Debug</span>.Print(<span style="color:#a31515;">&quot;TableStyle&nbsp;applied&nbsp;to&nbsp;this&nbsp;table:&nbsp;&quot;</span>&nbsp;+&nbsp;dsTableStyle.<b>Name</b>)

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;dsApp.<b>Zoom</b>(<span style="color:#2b91af;">dsZoomRange_e</span>.dsZoomRange_Fit,&nbsp;<span style="color:blue;">Nothing</span>,&nbsp;<span style="color:blue;">Nothing</span>)
 
 
&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:blue;">End</span>&nbsp;<span style="color:blue;">Sub</span> 
 
<span style="color:blue;">End</span>&nbsp;<span style="color:blue;">Module</span>
</pre>

</body>

</html>
bee / draftsight deb

Products

About

Resources

Contact Gemfury
