Initial Commit of the PDM project (ready for DWS migration)
This commit is contained in:
will
@@ -0,0 +1,310 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Batch Update Card Variables 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">
|
||||
</head>
|
||||
<meta name=MS-HKWD content="VB.NET examples, batches">
|
||||
<meta name=MS-HKWD content="VB.NET examples, files">
|
||||
<meta name=MS-HKWD content="VB.NET examples, folders">
|
||||
<meta name=MS-HKWD content="VB.NET examples, card variables">
|
||||
<body>
|
||||
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
||||
<h1>Batch Update Card Variables Example (VB.NET)</h1>
|
||||
<p><a name="top"></a>This example shows how to update file and folder card
|
||||
variables in one batch.</p>
|
||||
<p><b>NOTE</b>: If using the primary interop assembly
|
||||
provided with SOLIDWORKS PDM Professional, see
|
||||
<a href="Using_NET_Framework_in_Applications.htm">Using .NET Framework 4.0 in
|
||||
Stand-alone Applications</a>.</p>
|
||||
<p><img border="0" src="BatchUpdateVars.gif" width="300" height="191"></p>
|
||||
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:green;">
|
||||
'----------------------------------------------------------------------------</span><br>
|
||||
<span style="color:green;">' Preconditions:</span><br>
|
||||
<span style="color:green;">' 1. Start Microsoft Visual Studio.</span><br>
|
||||
<span style="color:green;">' a. Click <b>File > New > Project > Visual Basic > Windows Forms Application</b>.</span><br>
|
||||
<span style="color:green;">' b. Type <b>BatchUpdateCardVars</b> in <b>Name</b>.</span><br>
|
||||
<span style="color:green;">' c. Click <b>Browse</b> and navigate to the folder where to create the project.</span><br>
|
||||
<span style="color:green;">' d. Click <b>OK</b>. </span><br>
|
||||
<span style="color:green;">' e. Click <b>Show All Files</b> in the Solution Explorer toolbar and expand </span><br>
|
||||
<span style="color:green;">' <b>Form1.vb</b> in the Solution Explorer.</span><br>
|
||||
<span style="color:green;">' f. Replace the code in <b>Form1.vb</b> with <a href="#form1">this code</a>.</span><br>
|
||||
<span style="color:green;">' g. To create the
|
||||
form, replace the code in <b>Form1.Designer.vb</b> with <br>
|
||||
' <a href="#form1designer">this code</a>.</span><br>
|
||||
<span style="color:green;">' 2. Add <b>EPDM.Interop.epdm.dll</b> as a reference (right-click the project</span><br>
|
||||
<span style="color:green;">' name in the Solution Explorer, click <b>Add Reference</b>, click </span><br>
|
||||
<span style="color:green;">' <b>Assemblies > Framework</b> in the left-side panel, browse to the top folder of </span><br>
|
||||
<span style="color:green;">' your SOLIDWORKS PDM Professional installation, locate and click </span><br>
|
||||
<span style="color:green;">' <b>EPDM.Interop.epdm.dll</b>, click <b>Add</b>, and click <b>OK</b>).</span><br>
|
||||
<span style="color:green;">' 3. Right-click <b>EPDM.Interop.epdm</b> in References, click <b>Properties</b>, and set </span><br>
|
||||
<span style="color:green;">' <b>Embed Interop Types</b> to <b>False</b> to handle methods that pass arrays of </span><br>
|
||||
<span style="color:green;">' structures.<br>
|
||||
' 4. Ensure that at least one text file is checked out, and at least one
|
||||
folder <br>
|
||||
' with the word <b>Folder</b> in its name exists in the vault.</span><br>
|
||||
<span style="color:green;">' 5. Click <b>Debug > Start Debugging</b> or press F5.</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">' Postconditions: <br>
|
||||
' 1. Displays the Batch Update dialog box.</span><br>
|
||||
<span style="color:green;">' a. Select a vault.<br>
|
||||
' b. Click <b>Batch Update Variables</b>.<br>
|
||||
' * Updates the Title and Comment
|
||||
variables in the data cards<br>
|
||||
' only of checked-out
|
||||
text files.<br>
|
||||
' * Updates the Description variable
|
||||
of the data cards of all folders<br>
|
||||
' with the word <b>Folder</b> in
|
||||
their names.<br>
|
||||
' * Displays a message box saying <b>
|
||||
Card variables updated</b>.<br>
|
||||
' c. Click <b>OK</b> to close the message box.</span><br>
|
||||
<span style="color:green;">' 2. Close the Batch Update dialog box.<br>
|
||||
</span><span style="color: #008000">'</span><font size="2"><span style="color:green;">
|
||||
3. Inspect the data cards of any checked-out text files and folders with<br>
|
||||
' the word <b>Folder</b> in their names in the selected vault.</span></font><br>
|
||||
<span style="color:green;">
|
||||
'----------------------------------------------------------------------------</span><br>
|
||||
<font color="#008000"><a name="form1"></a>'Form1.vb</font></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:blue;">Imports</span> System.IO<br>
|
||||
<span style="color:blue;">Imports</span> System.Xml.Serialization<br>
|
||||
<span style="color:blue;">Imports</span> System.Collections<br>
|
||||
<span style="color:blue;">Imports</span> System.Collections.Generic<br>
|
||||
<span style="color:blue;">Imports</span> System.Data<br>
|
||||
<span style="color:blue;">Imports</span> System.Diagnostics<br>
|
||||
<span style="color:blue;">Imports</span> System.Windows.Forms<br>
|
||||
<span style="color:blue;">Imports</span> System.ComponentModel<br>
|
||||
<span style="color:blue;">Imports</span> EPDM.Interop.epdm<br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">Form1</span><br>
|
||||
<span style="color:blue;">Dim</span> vault1 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span> = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
||||
<span style="color:blue;">Dim</span> vault <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault8</span> = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault8</span>)<br>
|
||||
<span style="color:blue;">Dim</span> Views <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span>() = <span style="color:blue;">Nothing</span><br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> Form1_Load(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> <span style="color:blue;">MyBase</span>.Load<br>
|
||||
<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
vault.<b>GetVaultViews</b>(Views, <span style="color:blue;">False</span>)<br>
|
||||
VaultsComboBox.Items.Clear()<br>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> View <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span> <span style="color:blue;">In</span> Views<br>
|
||||
VaultsComboBox.Items.Add(View.<b>mbsVaultName</b>)<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<span style="color:blue;">If</span> VaultsComboBox.Items.Count > 0 <span style="color:blue;">Then</span><br>
|
||||
VaultsComboBox.Text = <span style="color:blue;">DirectCast</span>(VaultsComboBox.Items(0), <span style="color:blue;">String</span>)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> BatchUpdateButton_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> BatchUpdateButton.Click<br>
|
||||
<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault7</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
||||
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</span>)<br>
|
||||
<br>
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
||||
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'Create a batch update utility</span><br>
|
||||
<span style="color:blue;">Dim</span> Update <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmBatchUpdate2</span><br>
|
||||
Update = vault2.<b>CreateUtility</b>(<span style="color:#2b91af;">EdmUtility</span>.EdmUtil_BatchUpdate)<br>
|
||||
<br>
|
||||
<span style="color:green;">'Get the IDs of the file
|
||||
and folder card variables to update</span><br>
|
||||
<span style="color:blue;">Dim</span> TitleID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
<span style="color:blue;">Dim</span> CommentID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
<span style="color:blue;">Dim</span> DescriptionID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
<span style="color:blue;">Dim</span> VariableMgr <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVariableMgr5</span><br>
|
||||
<br>
|
||||
VariableMgr = vault1<br>
|
||||
TitleID = VariableMgr.<b>GetVariable</b>(<span style="color:#a31515;">"Title"</span>).<b>ID</b><br>
|
||||
DescriptionID = VariableMgr.<b>GetVariable</b>(<span style="color:#a31515;">"Description"</span>).<b>ID</b><br>
|
||||
CommentID = VariableMgr.<b>GetVariable</b>(<span style="color:#a31515;">"Comment"</span>).<b>ID</b><br>
|
||||
<br>
|
||||
<span style="color:green;">'Search for all text files in
|
||||
the vault</span><br>
|
||||
<span style="color:blue;">Dim</span> Search <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmSearch5</span><br>
|
||||
Search = vault1.<b>CreateUtility</b>(<span style="color:#2b91af;">EdmUtility</span>.EdmUtil_Search)<br>
|
||||
<br>
|
||||
Search.<b>FileName</b> = <span style="color:#a31515;">"%.txt"</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> Result <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmSearchResult5</span><br>
|
||||
Result = Search.<b>GetFirstResult</b><br>
|
||||
<br>
|
||||
<span style="color:blue;">While</span> <span style="color:blue;">Not</span> Result <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span><br>
|
||||
Update.<b>SetVar</b>(Result.<b>ID</b>, TitleID, <span style="color:#a31515;">"My Title"</span>, <span style="color:#a31515;">""</span>, <span style="color:#2b91af;">EdmBatchFlags</span>.EdmBatch_Nothing)<br>
|
||||
Update.<b>SetVar</b>(Result.<b>ID</b>, CommentID, <span style="color:#a31515;">"My Comment"</span>, <span style="color:#a31515;">""</span>, <span style="color:#2b91af;">EdmBatchFlags</span>.EdmBatch_Nothing)<br>
|
||||
Result = Search.<b>GetNextResult</b><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'Search for all
|
||||
folders whose names contain the word Folder in the vault</span><br>
|
||||
Search.<b>FileName</b> = <span style="color:#a31515;">"%Folder%"</span><br>
|
||||
<br>
|
||||
Result = Search.<b>GetFirstResult</b><br>
|
||||
<br>
|
||||
<span style="color:blue;">While</span> <span style="color:blue;">Not</span> Result <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span><br>
|
||||
Update.<b>SetFolderVar</b>(Result.<b>ID</b>, DescriptionID, <span style="color:#a31515;">"My Description"</span>, <span style="color:#2b91af;">EdmBatchFlags</span>.EdmBatch_Nothing)<br>
|
||||
Result = Search.<b>GetNextResult</b><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'Write all the card variable values to the database</span><br>
|
||||
<span style="color:blue;">Dim</span> Errors() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmBatchError2</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<span style="color:blue;">Dim</span> errorSize <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
errorSize = Update.<b>CommitUpdate</b>(Errors, <span style="color:blue;">Nothing</span>)<br>
|
||||
<br>
|
||||
<span style="color:green;">'Display any errors</span><br>
|
||||
<span style="color:blue;">Dim</span> Msg <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
||||
Msg = <span style="color:#a31515;">"Card
|
||||
variables updated."</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> ErrName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<span style="color:blue;">Dim</span> ErrDesc <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<span style="color:blue;">Dim</span> FileName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> Lo <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
Lo = LBound(Errors)<br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> Hi <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
Hi = UBound(Errors)</p>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"> <span style="color:blue;">Dim</span> vault9 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault9</span>
|
||||
vault9 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault9</span>)
|
||||
<span style="color:blue;">Dim</span> ppoObjects(Hi) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmObjectInfo</span>
|
||||
<span style="color:blue;">While</span> Lo <= Hi
|
||||
ppoObjects(Lo).meType = <span style="color:#2b91af;">EdmObjectType</span>.EdmObject_File
|
||||
Lo = Lo + 1
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While
|
||||
</span>
|
||||
vault9.<b>GetObjects</b>(ppoObjects)
|
||||
|
||||
<span style="color:blue;">While</span> Lo <= Hi
|
||||
<span style="color:blue;">If</span> (Errors(Lo).<b>mlFileID</b> > 0) <span style="color:blue;">Then</span>
|
||||
<span style="color:blue;">Dim</span> File <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFile6</span> = <span style="color:blue;">Nothing</span>
|
||||
<span style="color:blue;">Dim</span> ID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>
|
||||
ID = <span style="color:blue;">DirectCast</span>(ppoObjects(Lo).<b>moObjectID</b>, <span style="color:blue;">Integer</span>)
|
||||
<span style="color:blue;">If</span> (ppoObjects(Lo).<b>meType</b> = <span style="color:#2b91af;">EdmObjectType</span>.EdmObject_File) _
|
||||
<span style="color:blue;">And</span> (ID = Errors(Lo).<b>mlFileID</b>) <span style="color:blue;">Then</span>
|
||||
File = <span style="color:blue;">DirectCast</span>(ppoObjects(Lo).<b>mpoObject</b>, <span style="color:#2b91af;">IEdmFile6</span>)
|
||||
FileName = File.<b>Name</b>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<br>
|
||||
vault1.<b>GetErrorString</b>(Errors(Lo).<b>mlErrorCode</b>, ErrName, ErrDesc)<br>
|
||||
Msg = Msg + vbLf + ErrName + <span style="color:#a31515;">" "</span> + FileName<br>
|
||||
Lo = Lo + 1<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
MsgBox(Msg)<br>
|
||||
<br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></pre>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE" align="center">
|
||||
<a href="#top">Back to top</a> </p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: #008000; background: white" class="APICODE">
|
||||
<a name="form1designer"></a>'Form1.Designer.vb</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<<span style="color:blue;">Global</span>.Microsoft.VisualBasic.CompilerServices.<span style="color:#2b91af;">DesignerGenerated</span>()> _<br>
|
||||
<span style="color:blue;">Partial</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">Form1</span><br>
|
||||
<span style="color:blue;">Inherits</span> System.Windows.Forms.<span style="color:#2b91af;">Form</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'Form overrides dispose to clean up the component list.</span><br>
|
||||
<System.Diagnostics.<span style="color:#2b91af;">DebuggerNonUserCode</span>()> _<br>
|
||||
<span style="color:blue;">Protected</span> <span style="color:blue;">Overrides</span> <span style="color:blue;">Sub</span> Dispose(<span style="color:blue;">ByVal</span> disposing <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span>)<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">If</span> disposing <span style="color:blue;">AndAlso</span> components <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
||||
components.Dispose()<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<span style="color:blue;">Finally</span><br>
|
||||
<span style="color:blue;">MyBase</span>.Dispose(disposing)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'Required by the Windows Form Designer</span><br>
|
||||
<span style="color:blue;">Private</span> components <span style="color:blue;">As</span> System.ComponentModel.<span style="color:#2b91af;">IContainer</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'NOTE: The following procedure is required by the Windows Form Designer</span><br>
|
||||
<span style="color:green;">'It can be modified using the Windows Form Designer. </span><br>
|
||||
<span style="color:green;">'Do not modify it using the code editor.</span><br>
|
||||
<System.Diagnostics.<span style="color:#2b91af;">DebuggerStepThrough</span>()> _<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> InitializeComponent()<br>
|
||||
<span style="color:blue;">Me</span>.BatchUpdateButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span>()<br>
|
||||
<span style="color:blue;">Me</span>.Label1 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()<br>
|
||||
<span style="color:blue;">Me</span>.SuspendLayout()<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'BatchUpdateButton</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.BatchUpdateButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(30, 100)<br>
|
||||
<span style="color:blue;">Me</span>.BatchUpdateButton.Name = <span style="color:#a31515;">"BatchUpdateButton"</span><br>
|
||||
<span style="color:blue;">Me</span>.BatchUpdateButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(215, 23)<br>
|
||||
<span style="color:blue;">Me</span>.BatchUpdateButton.TabIndex = 0<br>
|
||||
<span style="color:blue;">Me</span>.BatchUpdateButton.Text = <span style="color:#a31515;">"Batch Update Variables"</span><br>
|
||||
<span style="color:blue;">Me</span>.BatchUpdateButton.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'VaultsComboBox</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.FormattingEnabled = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(30, 56)<br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Name = <span style="color:#a31515;">"VaultsComboBox"</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(121, 21)<br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.TabIndex = 1<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Label1</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.Label1.AutoSize = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.Label1.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(27, 23)<br>
|
||||
<span style="color:blue;">Me</span>.Label1.Name = <span style="color:#a31515;">"Label1"</span><br>
|
||||
<span style="color:blue;">Me</span>.Label1.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(75, 13)<br>
|
||||
<span style="color:blue;">Me</span>.Label1.TabIndex = 2<br>
|
||||
<span style="color:blue;">Me</span>.Label1.Text = <span style="color:#a31515;">"Select vault
|
||||
view:"</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Form1</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.AutoScaleDimensions = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">SizeF</span>(6.0!, 13.0!)<br>
|
||||
<span style="color:blue;">Me</span>.AutoScaleMode = System.Windows.Forms.<span style="color:#2b91af;">AutoScaleMode</span>.Font<br>
|
||||
<span style="color:blue;">Me</span>.ClientSize = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(284, 153)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Label1)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.VaultsComboBox)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.BatchUpdateButton)<br>
|
||||
<span style="color:blue;">Me</span>.Name = <span style="color:#a31515;">"Form1"</span><br>
|
||||
<span style="color:blue;">Me</span>.Text = <span style="color:#a31515;">"Batch Update"</span><br>
|
||||
<span style="color:blue;">Me</span>.ResumeLayout(<span style="color:blue;">False</span>)<br>
|
||||
<span style="color:blue;">Me</span>.PerformLayout()<br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> BatchUpdateButton <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> VaultsComboBox <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Label1 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
</p>
|
||||
</font>
|
||||
<p align="center"><a href="#top">Back to top</a></p>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
Reference in New Issue
Block a user