Initial Commit of the PDM project (ready for DWS migration)
This commit is contained in:
will
562
documentation/api_extracted/Add_Items_Example_VBNET.htm
Normal file
562
documentation/api_extracted/Add_Items_Example_VBNET.htm
Normal file
@@ -0,0 +1,562 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Add Items 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,items">
|
||||
<meta name=MS-HKWD content="VB.NET examples,XmlReader class">
|
||||
|
||||
<body>
|
||||
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
||||
<h1>Add Items Example (VB.NET)</h1>
|
||||
<p><a name="Top"></a>This example shows how to add items to a vault. The data
|
||||
for the items is imported from an XML file, which is read by the .NET XmlReader.</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="AddItems.gif" width="315" height="358"></p>
|
||||
<pre style="font-family: Courier New; color: black; font-size: 13px; background: white"><span style="color: green">'----------------------------------------------------------------------------</span>
|
||||
<span style="color: green">' Preconditions:</span>
|
||||
<span style="color: green">' 1. Create an XML file for this example.
|
||||
' a. Open a text editor like Notepad and copy and paste <a href="#XML">this code</a>
|
||||
' into the editor.
|
||||
' b. Save the file as <b>Items.xml</b> and remember where you save the file.
|
||||
' 2. Open the SOLIDWORKS PDM Professional Administration tool.
|
||||
' 3. Log into the vault where to add a new serial number.
|
||||
' a. Right-click <b>Serial Numbers</b> and click <b>New Serial Number</b>.
|
||||
' 1. Type <b>AddItems</b> in <b>Name</b>.
|
||||
' 2. For <b>Format string</b>, click the right-arrow button and select <b>Counter value</b> <b>></b> <b>00001</b>.
|
||||
' 3. Click <b>OK</b>.
|
||||
' b. Right-click <b>Items </b>and select <b>Open</b>.
|
||||
' 1. Click<b> AddItems</b> in <b>Item Serial Number</b>.
|
||||
' 2. Click <b>OK</b>.
|
||||
' 4. Start Microsoft Visual Studio.</span>
|
||||
<span style="color: green">' a. Click <b>File > New > Project > Visual Basic > Windows Forms Application</b>.</span>
|
||||
<span style="color: green">' b. Type <b>AddItems</b> in <b>Name</b>.</span>
|
||||
<span style="color: green">' c. Click the <b>Browse</b> button and browse to the folder where to create the project.</span>
|
||||
<span style="color: green">' d. Click <b>OK</b>.
|
||||
' e. Click <b>Show All Files</b> in the Solution Explorer toolbar.
|
||||
' f. Create a form similar to the form shown above and change:
|
||||
' 1. Top label to <b>VaultsLabel</b>.
|
||||
' 2. Combo box to <b>VaultsComboBox</b>.
|
||||
' 3. Second label to <b>XmlLabel</b>.
|
||||
' 4. Text box to <b>XmlTextBox</b>.
|
||||
' 5. Browse button to <b>BrowseButton</b>.
|
||||
' 6. Add items button to <b>AddItemsButton</b>.
|
||||
' 7. List box to <b>ItemsListBox</b>.</span>
|
||||
<span style="color: green">' g. Replace the code in <b>Form1.vb </b>with <a href="#Form1">this code</a>.
|
||||
' h. Replace the code in <b>Form1.Designer.vb</b> with <a href="#Designer">this code</a>.
|
||||
' i. Right-click the <b>AddItems</b> project name in the Solution Explorer.
|
||||
' 1. Click <b>Add > Class > Class</b>.
|
||||
' 2. Type <b>EdmVaultSingleton.vb</b> in <b>Name</b>.
|
||||
' 3. Click <b>Add</b>.
|
||||
' 4. Replace the code in <b>EdmVaultSingleton.vb</b> with <a href="#EdmVaultSingleton">this code</a>.
|
||||
' j. Right-click the <b>AddItems</b> project name in the Solution Explorer.
|
||||
' 1. Click <b>Add > Class > Class</b>.
|
||||
' 2. Type <b>NewItem.vb</b> in <b>Name</b>.
|
||||
' 3. Click <b>Add</b>.
|
||||
' 4. Replace the code in <b>NewItem.vb</b> with <a href="#NewItem">this code</a>.</span>
|
||||
<span style="color: green">' 5. Add <b>EPDM.Interop.epdm.dll </b>as a reference (right-click the project</span>
|
||||
<span style="color: green">' name in the Solution Explorer, click <b>Add</b> <b>Reference</b>, click </span>
|
||||
<span style="color: green">' <b>Assemblies > Framework</b> in the left-side panel, browse to the top folder of your </span>
|
||||
<span style="color: green">' SOLIDWORKS PDM Professional installation, locate and click </span>
|
||||
<span style="color: green">' <b>EPDM.Interop.epdm.dll</b>, click <b>Open</b>, click <b>Add</b>, and click <b>Close</b>).</span>
|
||||
<span style="color: green">' 6. Right-click <b>EPDM.Interop.epdm</b> in References, click <b>Properties</b>, and set </span>
|
||||
<span style="color: green">' <b>Embed Interop Types</b> to <b>False</b> to handle methods that pass arrays of </span>
|
||||
<span style="color: green">' structures.</span>
|
||||
<span style="color: green">' 7. Click <b>Debug > Start Debugging</b> or press F5.</span>
|
||||
<span style="color: green">'</span>
|
||||
<span style="color: green">' Postconditions: </span>
|
||||
<span style="color: green">' 1. Displays a dialog.</span>
|
||||
<span style="color: green">' 2. Select a vault.</span>
|
||||
<span style="color: green">' 3. Click the <b>Browse</b> button, locate and click <b>Items.xml</b>, and click <b>Open</b>.</span>
|
||||
<span style="color: green">' 4. Click the <b>Add items</b> button.
|
||||
' The new items are printed in the dialog's list.
|
||||
' 5. Close the dialog.
|
||||
' 6. Open the SOLIDWORKS PDM Professional Item Explorer tool.
|
||||
' (In Windows 7, click <b>Start > All Programs > SOLIDWORKS PDM Professional >
|
||||
' Item Explorer</b>.)
|
||||
' 7. Expand the vault where the new items were added.
|
||||
' The new items are listed below the name of the expanded vault. </span>
|
||||
<span style="color: green">'----------------------------------------------------------------------------</span></pre>
|
||||
<pre style="font-family: Courier New; font-size: 13px; background: white"><a name="XML"></a></font><font size="2"><?xml version="1.0" encoding="utf-8"?>
|
||||
<ArrayOfAnyType xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<anyType xsi:type="Item">
|
||||
<Description>First Item</Description>
|
||||
<ProjectName>Project 1</ProjectName>
|
||||
<ProjectNumber>1</ProjectNumber>
|
||||
<PartType>Purchased</PartType>
|
||||
<ItemName>Item 1</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Second Item</Description>
|
||||
<ProjectName>Project 2</ProjectName>
|
||||
<ProjectNumber>2</ProjectNumber>
|
||||
<PartType>Built</PartType>
|
||||
<ItemName>Item 2</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Third Item</Description>
|
||||
<ProjectName>Project 3</ProjectName>
|
||||
<ProjectNumber>3</ProjectNumber>
|
||||
<PartType>Purchased</PartType>
|
||||
<ItemName>Item 3</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Fourth Item</Description>
|
||||
<ProjectName>Project 4</ProjectName>
|
||||
<ProjectNumber>4</ProjectNumber>
|
||||
<PartType>Built</PartType>
|
||||
<ItemName>Item 4</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Fifth Item</Description>
|
||||
<ProjectName>Project 5</ProjectName>
|
||||
<ProjectNumber>5</ProjectNumber>
|
||||
<PartType>Purchased</PartType>
|
||||
<ItemName>Item 5</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Sixth Item</Description>
|
||||
<ProjectName>Project 6</ProjectName>
|
||||
<ProjectNumber>6</ProjectNumber>
|
||||
<PartType>Built</PartType>
|
||||
<ItemName>Item 6</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Seventh Item</Description>
|
||||
<ProjectName>Project 7</ProjectName>
|
||||
<ProjectNumber>7</ProjectNumber>
|
||||
<PartType>Purchased</PartType>
|
||||
<ItemName>Item 7</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Eighth Item</Description>
|
||||
<ProjectName>Project 8</ProjectName>
|
||||
<ProjectNumber>8</ProjectNumber>
|
||||
<PartType>Built</PartType>
|
||||
<ItemName>Item 8</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Ninth Item</Description>
|
||||
<ProjectName>Project 9</ProjectName>
|
||||
<ProjectNumber>9</ProjectNumber>
|
||||
<PartType>Purchased</PartType>
|
||||
<ItemName>Item 9</ItemName>
|
||||
</anyType>
|
||||
<anyType xsi:type="Item">
|
||||
<Description>Tenth Item</Description>
|
||||
<ProjectName>Project 10</ProjectName>
|
||||
<ProjectNumber>10</ProjectNumber>
|
||||
<PartType>Built</PartType>
|
||||
<ItemName>Item 10</ItemName>
|
||||
</anyType>
|
||||
</ArrayOfAnyType></pre>
|
||||
<div align="center">
|
||||
<pre><font face="Courier New"><a href="#Top">Back to top</a></font></pre>
|
||||
</div>
|
||||
</font><font size="1">
|
||||
<pre style="font-family: Courier New; color: black; font-size: 13px; background: white"><span style="color: #008000"><a name="Form1"></a>'Form1.vb</span><span style="color: green"> </span></pre>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color:blue;">Imports</span> System.IO
|
||||
<span style="color:blue;">Imports</span> EPDM.Interop.epdm<span style="color:blue;">
|
||||
Imports</span> System.Xml
|
||||
<span style="color:blue;">Imports</span> System.Windows.Forms
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">AddItems</span>
|
||||
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> BrowseButton_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> BrowseButton.Click
|
||||
|
||||
<span style="color:blue;">Try</span>
|
||||
<span style="color:blue;">Dim</span> dlgResult <span style="color:blue;">As</span> <span style="color:#2b91af;">DialogResult</span> = XmlOpenFileDialog.ShowDialog()
|
||||
<span style="color:blue;">If</span> dlgResult = Windows.Forms.<span style="color:#2b91af;">DialogResult</span>.Cancel <span style="color:blue;">Then</span>
|
||||
<span style="color:blue;">Exit Sub</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
XmlTextBox.Text = XmlOpenFileDialog.FileName
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Runtime.InteropServices.<span style="color:#2b91af;">COMException</span>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + _
|
||||
ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + vbCrLf + _
|
||||
ex.Message)
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
|
||||
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> AddItemsButton_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> AddItemsButton.Click
|
||||
|
||||
<span style="color:blue;">Try</span>
|
||||
ItemsListBox.Items.Clear()
|
||||
<span style="color:blue;">Dim</span> NewItems <span style="color:blue;">As</span> <span style="color:#2b91af;">ArrayList</span> = <span style="color:blue;">New</span> <span style="color:#2b91af;">ArrayList</span>
|
||||
|
||||
<span style="color:blue;">Using</span> XmlReader <span style="color:blue;">As</span> Xml.<span style="color:#2b91af;">XmlReader</span> = _
|
||||
Xml.<span style="color:#2b91af;">XmlReader</span>.Create(XmlTextBox.Text)
|
||||
|
||||
XmlReader.Read()
|
||||
XmlReader.ReadToNextSibling(<span style="color:#a31515;">"ArrayOfAnyType"</span>)
|
||||
XmlReader.ReadToDescendant(<span style="color:#a31515;">"anyType"</span>)
|
||||
<span style="color:blue;">Do</span>
|
||||
<span style="color:blue;">Dim</span> CurItem <span style="color:blue;">As</span> <span style="color:blue;">New</span> <span style="color:#2b91af;">NewItem</span>
|
||||
XmlReader.ReadToDescendant(<span style="color:#a31515;">"Description"</span>)
|
||||
CurItem.Description = XmlReader.ReadString()
|
||||
XmlReader.ReadToNextSibling(<span style="color:#a31515;">"ProjectName"</span>)
|
||||
CurItem.ProjectName = XmlReader.ReadString()
|
||||
XmlReader.ReadToNextSibling(<span style="color:#a31515;">"ProjectNumber"</span>)
|
||||
CurItem.ProjectNumber = XmlReader.ReadString()
|
||||
XmlReader.ReadToNextSibling(<span style="color:#a31515;">"PartType"</span>)
|
||||
CurItem.PartType = XmlReader.ReadString()
|
||||
XmlReader.ReadToNextSibling(<span style="color:#a31515;">"ItemName"</span>)
|
||||
CurItem.ItemName = XmlReader.ReadString()
|
||||
NewItems.Add(CurItem)
|
||||
<span style="color:blue;">Loop</span> <span style="color:blue;">While</span> XmlReader.ReadToFollowing(<span style="color:#a31515;">"anyType"</span>)
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Using</span>
|
||||
|
||||
<span style="color:green;">'Obtain the only instance of the IEdmVault5 object</span>
|
||||
<span style="color:blue;">Dim</span> vault <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span> = <span style="color:#2b91af;">EdmVaultSingleton</span>.Instance
|
||||
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault.<b>IsLoggedIn</b> <span style="color:blue;">Then</span>
|
||||
<span style="color:green;">'Log into selected vault as the current user</span>
|
||||
vault.<b>LoginAuto</b>(VaultsComboBox.Text, _
|
||||
<span style="color:blue;">Me</span>.Handle.ToInt32())
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
|
||||
<span style="color:green;">'Create the batch interface</span>
|
||||
<span style="color:blue;">Dim</span> BatchItemGen <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmBatchItemGeneration2</span>
|
||||
BatchItemGen = vault.<b>CreateUtility</b>( _
|
||||
<span style="color:#2b91af;">EdmUtility</span>.EdmUtil_BatchItemGeneration)
|
||||
<span style="color:blue;">Dim</span> VarVals(3) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmVarVal</span>
|
||||
VarVals(0).<b>mlEdmVarValFlags</b> = 0
|
||||
VarVals(0).<b>moVarIDorName</b> = <span style="color:#a31515;">"Description"</span>
|
||||
VarVals(1).<b>mlEdmVarValFlags</b> = 0
|
||||
VarVals(1).<b>moVarIDorName</b> = <span style="color:#a31515;">"Project Name"</span>
|
||||
VarVals(2).<b>mlEdmVarValFlags</b> = 0
|
||||
VarVals(2).<b>moVarIDorName</b> = <span style="color:#a31515;">"Project number"</span>
|
||||
VarVals(3).<b>mlEdmVarValFlags</b> = 0
|
||||
VarVals(3).<b>moVarIDorName</b> = <span style="color:#a31515;">"Part Type"</span>
|
||||
<span style="color:blue;">For</span> i <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0 <span style="color:blue;">To</span> NewItems.Count - 1
|
||||
VarVals(0).<b>moValue</b> = NewItems(i).Description
|
||||
VarVals(1).<b>moValue</b> = NewItems(i).ProjectName
|
||||
VarVals(2).<b>moValue</b> = NewItems(i).ProjectNumber
|
||||
VarVals(3).<b>moValue</b> = NewItems(i).PartType
|
||||
BatchItemGen.<b>AddSelection2</b>(vault, VarVals, _
|
||||
NewItems(i).ItemName)
|
||||
<span style="color:blue;">Next</span> i
|
||||
|
||||
<span style="color:green;">'Build the item tree</span>
|
||||
<span style="color:blue;">Dim</span> CreateSuccess <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span>
|
||||
CreateSuccess = BatchItemGen.<b>CreateTree</b>( _
|
||||
<span style="color:blue;">Me</span>.Handle.ToInt32, _
|
||||
<span style="color:#2b91af;">EdmItemGenerationFlags</span>.Eigcf_Nothing)
|
||||
<span style="color:blue;">If</span> (CreateSuccess = <span style="color:blue;">False</span>) <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span>
|
||||
|
||||
|
||||
<span style="color:green;">'Generate the items</span>
|
||||
<span style="color:blue;">Dim</span> ReturnedItems() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmGenItemInfo</span> = Nothing
|
||||
<span style="color:blue;">Dim</span> bOpenExplorer <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span> = <span style="color:blue;">False</span>
|
||||
BatchItemGen.<b>GenerateItems</b>(<span style="color:blue;">Me</span>.Handle.ToInt32, _
|
||||
ReturnedItems, bOpenExplorer, <span style="color:blue;">Nothing</span>)
|
||||
|
||||
<span style="color:green;">'Display the new item information in the list box</span>
|
||||
<span style="color:blue;">Dim</span> msg <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">""</span>
|
||||
<span style="color:blue;">If</span> ReturnedItems.Length = 0 <span style="color:blue;">Then</span>
|
||||
msg = <span style="color:#a31515;">"No items were added."</span>
|
||||
ItemsListBox.Items.Add(<span style="color:#a31515;">"No items were added."</span>)
|
||||
<span style="color:blue;">Else</span>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> ItemInfo <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmGenItemInfo</span> _
|
||||
<span style="color:blue;">In</span> ReturnedItems
|
||||
|
||||
ItemsListBox.Items.Add(<span style="color:#a31515;">"Item name: "</span> + _
|
||||
ItemInfo.<b>mbsItemName</b>)
|
||||
ItemsListBox.Items.Add(<span style="color:#a31515;">"Alternate name: "</span> + _
|
||||
ItemInfo.<b>mbsItemAlternativeName</b>)
|
||||
ItemsListBox.Items.Add(<span style="color:#a31515;">"Status: "</span> + _
|
||||
vault.<b>GetErrorMessage</b>(ItemInfo.mhResult))
|
||||
ItemsListBox.Items.Add(<span style="color:#a31515;">""</span>)
|
||||
<span style="color:blue;">Next</span> ItemInfo
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Runtime.InteropServices.<span style="color:#2b91af;">COMException</span>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + _
|
||||
ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + vbCrLf + _
|
||||
ex.Message)
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
|
||||
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> AddItems_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
|
||||
<span style="color:blue;">Try</span>
|
||||
<span style="color:green;">'Obtain the only instance of the IEdmVault object</span>
|
||||
<span style="color:blue;">Dim</span> vault <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault8</span> = <span style="color:#2b91af;">EdmVaultSingleton</span>.Instance
|
||||
<span style="color:blue;">Dim</span> Views() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span> = Nothing
|
||||
|
||||
vault.<b>GetVaultViews</b>(Views, <span style="color:blue;">False</span>)
|
||||
VaultsComboBox.Items.Clear()
|
||||
<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
|
||||
VaultsComboBox.Items.Add(View.<b>mbsVaultName</b>)
|
||||
<span style="color:blue;">Next</span>
|
||||
<span style="color:blue;">If</span> VaultsComboBox.Items.Count > 0 <span style="color:blue;">Then</span>
|
||||
VaultsComboBox.Text = VaultsComboBox.Items(0)
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Runtime.InteropServices.<span style="color:#2b91af;">COMException</span>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + _
|
||||
ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + vbCrLf + _
|
||||
ex.Message)
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></pre>
|
||||
<div align="center">
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><font face="Courier New" size="2"><a href="#Top">Back to top</a></font></pre>
|
||||
</div>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: #008000; background: white"><a name="Designer"></a>'Form1.Designer.vb</pre>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><<span style="color:blue;">Global</span>.Microsoft.VisualBasic.CompilerServices.<span style="color:#2b91af;">DesignerGenerated</span>()> _
|
||||
<span style="color:blue;">Partial</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">AddItems</span>
|
||||
<span style="color:blue;">Inherits</span> System.Windows.Forms.<span style="color:#2b91af;">Form</span>
|
||||
|
||||
<span style="color:green;">'Form overrides dispose to clean up the component list.</span>
|
||||
<System.Diagnostics.<span style="color:#2b91af;">DebuggerNonUserCode</span>()> _
|
||||
<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>)
|
||||
<span style="color:blue;">Try</span>
|
||||
<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>
|
||||
components.Dispose()
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<span style="color:blue;">Finally</span>
|
||||
<span style="color:blue;">MyBase</span>.Dispose(disposing)
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
|
||||
|
||||
<span style="color:green;">'Required by the Windows Form Designer</span>
|
||||
<span style="color:blue;">Private</span> components <span style="color:blue;">As</span> System.ComponentModel.<span style="color:#2b91af;">IContainer</span>
|
||||
|
||||
<span style="color:green;">'NOTE: The following procedure is required by the Windows Form Designer</span>
|
||||
<span style="color:green;">'It can be modified using the Windows Form Designer. </span>
|
||||
<span style="color:green;">'Do not modify it using the code editor.</span>
|
||||
<System.Diagnostics.<span style="color:#2b91af;">DebuggerStepThrough</span>()> _
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> InitializeComponent()
|
||||
<span style="color:blue;">Me</span>.BrowseButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
||||
<span style="color:blue;">Me</span>.XmlTextBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">TextBox</span>()
|
||||
<span style="color:blue;">Me</span>.XmlLabel = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()
|
||||
<span style="color:blue;">Me</span>.XmlOpenFileDialog = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span>()
|
||||
<span style="color:blue;">Me</span>.AddItemsButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span>()
|
||||
<span style="color:blue;">Me</span>.VaultsLabel = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()
|
||||
<span style="color:blue;">Me</span>.ItemsListBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>()
|
||||
<span style="color:blue;">Me</span>.SuspendLayout()
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'BrowseButton</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(222, 94)
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Name = <span style="color:#a31515;">"BrowseButton"</span>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(59, 26)
|
||||
<span style="color:blue;">Me</span>.BrowseButton.TabIndex = 0
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Text = <span style="color:#a31515;">"Browse..."</span>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'XmlTextBox</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.XmlTextBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(24, 94)
|
||||
<span style="color:blue;">Me</span>.XmlTextBox.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
||||
<span style="color:blue;">Me</span>.XmlTextBox.Name = <span style="color:#a31515;">"XmlTextBox"</span>
|
||||
<span style="color:blue;">Me</span>.XmlTextBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(182, 20)
|
||||
<span style="color:blue;">Me</span>.XmlTextBox.TabIndex = 1
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'XmlLabel</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.XmlLabel.AutoSize = <span style="color:blue;">True</span>
|
||||
<span style="color:blue;">Me</span>.XmlLabel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(22, 78)
|
||||
<span style="color:blue;">Me</span>.XmlLabel.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2, 0, 2, 0)
|
||||
<span style="color:blue;">Me</span>.XmlLabel.Name = <span style="color:#a31515;">"XmlLabel"</span>
|
||||
<span style="color:blue;">Me</span>.XmlLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(172, 13)
|
||||
<span style="color:blue;">Me</span>.XmlLabel.TabIndex = 2
|
||||
<span style="color:blue;">Me</span>.XmlLabel.Text = <span style="color:#a31515;">"XML file from which to import items:"</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'XmlOpenFileDialog</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.XmlOpenFileDialog.Filter = <span style="color:#a31515;">"XML files|*.xml"</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'AddItemsButton</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.AddItemsButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(29, 139)
|
||||
<span style="color:blue;">Me</span>.AddItemsButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
||||
<span style="color:blue;">Me</span>.AddItemsButton.Name = <span style="color:#a31515;">"AddItemsButton"</span>
|
||||
<span style="color:blue;">Me</span>.AddItemsButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(87, 24)
|
||||
<span style="color:blue;">Me</span>.AddItemsButton.TabIndex = 3
|
||||
<span style="color:blue;">Me</span>.AddItemsButton.Text = <span style="color:#a31515;">"Add items"</span>
|
||||
<span style="color:blue;">Me</span>.AddItemsButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'VaultsComboBox</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.FormattingEnabled = <span style="color:blue;">True</span>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(22, 40)
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Name = <span style="color:#a31515;">"VaultsComboBox"</span>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(184, 21)
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.TabIndex = 12
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'VaultsLabel</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.AutoSize = <span style="color:blue;">True</span>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(22, 24)
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2, 0, 2, 0)
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Name = <span style="color:#a31515;">"VaultsLabel"</span>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(94, 13)
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.TabIndex = 13
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Text = <span style="color:#a31515;">"Select vault view:"</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'ItemsListBox</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.ItemsListBox.FormattingEnabled = <span style="color:blue;">True</span>
|
||||
<span style="color:blue;">Me</span>.ItemsListBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(29, 175)
|
||||
<span style="color:blue;">Me</span>.ItemsListBox.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
||||
<span style="color:blue;">Me</span>.ItemsListBox.Name = <span style="color:#a31515;">"ItemsListBox"</span>
|
||||
<span style="color:blue;">Me</span>.ItemsListBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(253, 121)
|
||||
<span style="color:blue;">Me</span>.ItemsListBox.TabIndex = 14
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:green;">'AddItems</span>
|
||||
<span style="color:green;">'</span>
|
||||
<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!)
|
||||
<span style="color:blue;">Me</span>.AutoScaleMode = System.Windows.Forms.<span style="color:#2b91af;">AutoScaleMode</span>.Font
|
||||
<span style="color:blue;">Me</span>.ClientSize = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(299, 320)
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.ItemsListBox)
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.VaultsComboBox)
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.VaultsLabel)
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.AddItemsButton)
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.XmlLabel)
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.XmlTextBox)
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.BrowseButton)
|
||||
<span style="color:blue;">Me</span>.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
||||
<span style="color:blue;">Me</span>.Name = <span style="color:#a31515;">"AddItems"</span>
|
||||
<span style="color:blue;">Me</span>.Text = <span style="color:#a31515;">"Add New Items"</span>
|
||||
<span style="color:blue;">Me</span>.ResumeLayout(<span style="color:blue;">False</span>)
|
||||
<span style="color:blue;">Me</span>.PerformLayout()
|
||||
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> BrowseButton <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> XmlTextBox <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">TextBox</span>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> XmlLabel <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> XmlOpenFileDialog <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> AddItemsButton <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>
|
||||
<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>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> VaultsLabel <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> ItemsListBox <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>
|
||||
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></pre>
|
||||
<div align="center">
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><font face="Courier New" size="2"><a href="#Top">Back to top</a></font></pre>
|
||||
</div>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: #008000; background: white"><a name="EdmVaultSingleton"></a>'EdmVaultSingleton.vb</pre>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: #008000; background: white">
|
||||
<span style="color:blue;">Imports</span> System.Threading
|
||||
<span style="color:blue;">Imports</span> EPDM.Interop.epdm
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">NotInheritable</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">EdmVaultSingleton</span>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Shared</span> mInstance <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmVault5</span> = <span style="color:blue;">Nothing</span>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Shared</span> mLockObj <span style="color:blue;">As</span> <span style="color:blue;">New</span> <span style="color:blue;">Object</span>()
|
||||
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()
|
||||
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Shared</span> <span style="color:blue;">ReadOnly</span> <span style="color:blue;">Property</span> Instance() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmVault5</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
<span style="color:blue;">Try</span>
|
||||
<span style="color:blue;">If</span> mInstance <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span>
|
||||
<span style="color:#2b91af;">Monitor</span>.Enter(mLockObj)
|
||||
<span style="color:blue;">If</span> mInstance <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span>
|
||||
mInstance = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<span style="color:#2b91af;">Monitor</span>.Exit(mLockObj)
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span>
|
||||
<span style="color:#2b91af;">Monitor</span>.Exit(mLockObj)
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span>
|
||||
|
||||
<span style="color:blue;">Return</span> mInstance
|
||||
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Get</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Property</span>
|
||||
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></pre>
|
||||
<div align="center">
|
||||
<pre style="font-family: Courier New; font-size: 13; color: #008000; background: white"><font face="Courier New" size="2"><a href="#Top">Back to top</a></font></pre>
|
||||
</div>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: #008000; background: white"><a name="NewItem"></a>'NewItem.vb</pre>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color:blue;">Public</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">NewItem</span>
|
||||
<span style="color:green;">'Value of "Description" variable</span>
|
||||
<span style="color:blue;">Private</span> mDescription <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:green;">'Value of "Project Name" variable</span>
|
||||
<span style="color:blue;">Private</span> mProjectName <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:green;">'Value of "Project number" variable</span>
|
||||
<span style="color:blue;">Private</span> mProjectNumber <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:green;">'Value of "Part Type" variable</span>
|
||||
<span style="color:blue;">Private</span> mPartType <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:green;">'Item name</span>
|
||||
<span style="color:blue;">Private</span> mItemName <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> <span style="color:blue;">New</span>()
|
||||
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Property</span> Description() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
Description = mDescription
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Get</span>
|
||||
<span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)
|
||||
mDescription = Value
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Set</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Property</span>
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ProjectName() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
ProjectName = mProjectName
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Get</span>
|
||||
<span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)
|
||||
mProjectName = Value
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Set</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Property</span>
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ProjectNumber() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
ProjectNumber = mProjectNumber
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Get</span>
|
||||
<span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)
|
||||
mProjectNumber = Value
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Set</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Property</span>
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Property</span> PartType() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
PartType = mPartType
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Get</span>
|
||||
<span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)
|
||||
mPartType = Value
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Set</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Property</span>
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Property</span> ItemName() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
ItemName = mItemName
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Get</span>
|
||||
<span style="color:blue;">Set</span>(<span style="color:blue;">ByVal</span> Value <span style="color:blue;">As</span> <span style="color:blue;">String</span>)
|
||||
mItemName = Value
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Set</span>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Property</span>
|
||||
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></pre>
|
||||
<div align="center">
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><font face="Courier New" size="2"><a href="#Top">Back to top</a></font></pre>
|
||||
</div>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
Reference in New Issue
Block a user