699 lines
98 KiB
HTML
699 lines
98 KiB
HTML
<html>
|
|
|
|
<head>
|
|
<title>Create and Delete Dictionaries 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,dictionaries">
|
|
|
|
<body>
|
|
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
|
<h1>Create and Delete Dictionaries Example (VB.NET)</h1>
|
|
<p><a name="Top"></a>This example shows how to create and delete dictionaries and their keys and
|
|
values.</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="AddDictionary.gif" width="273" height="524"></p>
|
|
|
|
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color: green">'----------------------------------------------------------------------------</span>
|
|
<span style="color: green">' Preconditions:</span>
|
|
<span style="color: green">' 1. 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>AddDictionary</b> in <b>Name</b>.</span>
|
|
<span style="color: green">' c. Click <b>Browse</b> and navigate to the folder where to create </span>
|
|
<span style="color: green">' the project.</span>
|
|
<span style="color: green">' d. Click <b>OK</b>. </span>
|
|
<span style="color: green">' e. Click <b>Show All Files</b> in the Solution Explorer toolbar and expand </span>
|
|
<span style="color: green">' <b>Form1.vb</b> in the Solution Explorer.</span>
|
|
<span style="color: green">' f. Replace the code in <b>Form1.vb</b> with <a href="#Form1">this code</a>.</span>
|
|
<span style="color: green">' g. To create the form, replace the code in <b>Form1.Designer.vb</b> with <a href="#Designer">this code</a>.</span>
|
|
<span style="color: green">' 2. 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 Reference</b>, click </span>
|
|
<span style="color: green">' <b>Assemblies > Framework</b> in the left-side panel, browse to the top folder of </span>
|
|
<span style="color: green">' your 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">' 3. 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">' 4. 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. Select the <b>Projects</b> dictionary.</span>
|
|
<span style="color: green">' a. Click <b>Create</b>.</span>
|
|
<span style="color: green">' b. Click <b>Add project items</b>.</span>
|
|
<span style="color: green">' The <b>Key/Value</b> list is populated with the </span>
|
|
<span style="color: green">' Projects dictionary's keys and values.</span>
|
|
<span style="color: green">' c. Type a unique value in <b>Key</b> and any value in <b>Value</b>.</span>
|
|
<span style="color: green">' d. Click <b>Add Key/Value</b>.</span>
|
|
<span style="color: green">' The key and value are added to the <b>Key/Value</b> list.
|
|
' e. Select a key and value in the <b>Key/Value</b> list and
|
|
' click <b>Remove selected Key/Value</b>.
|
|
' The selected key and value are deleted from the
|
|
' dictionary.
|
|
' f. Type an existing key in <b>Key</b> and any value in <b>Value</b>.
|
|
' g. Click <b>Add Key/Value</b>.
|
|
' A message box is displayed informing you that the
|
|
' duplicate keys are prohibited. Neither the key
|
|
' nor value was added to the dictionary.
|
|
' h. Click <b>OK</b> to close the message box.
|
|
' 4. Select the <b>Counters</b> dictionary.
|
|
' a. Click <b>Create</b>.</span>
|
|
<span style="color: green">' b. Click <b>Add counter items</b>.</span>
|
|
<span style="color: green">' The <b>Key/Value</b> list is populated with the Counters
|
|
' dictionary's keys and values.</span>
|
|
<span style="color: green">' 5. Experiment with creating your own dictionary and adding
|
|
</span><span style="color: #008000">' </span><span style="color: green"> and removing keys and values to and from that dictionary.</span>
|
|
<span style="color: green">' 6. Close the dialog.</span>
|
|
<span style="color: green">'----------------------------------------------------------------------------</span>
|
|
|
|
<span style="color: green"><a name="Form1"></a>'Form1.vb</span>
|
|
<span style="color: blue">Imports</span> EPDM.Interop.epdm
|
|
|
|
<span style="color: blue">Public</span> <span style="color: blue">Class</span> <span style="color: #2b91af">AddDictionary</span>
|
|
|
|
<span style="color: blue">Private</span> vault <span style="color: blue">As</span> <span style="color: #2b91af">IEdmVault5</span> = <span style="color: blue">Nothing</span>
|
|
|
|
<span style="color: blue">Private</span> <span style="color: blue">Sub</span> AddDictionary_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>
|
|
vault = <span style="color: blue">New</span> <span style="color: #2b91af">EdmVault5</span>
|
|
|
|
<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>
|
|
|
|
<span style="color: blue">DirectCast</span>(vault, <span style="color: #2b91af">IEdmVault8</span>).<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">Private</span> <span style="color: blue">Sub</span> AddProjectItemsButton_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> AddProjectItemsButton.Click
|
|
|
|
<span style="color: blue">Try</span>
|
|
<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: blue">Dim</span> ProjectDictionary <span style="color: blue">As</span> <span style="color: #2b91af">IEdmDictionary5</span>
|
|
ProjectDictionary = vault.<b>GetDictionary</b>( _
|
|
<span style="color: #a31515">"Projects"</span>, <span style="color: blue">True</span>) <span style="color: green">'Create it if it doesn't exist</span>
|
|
|
|
<span style="color: green">'Add the new dictionary name to the combo box</span>
|
|
<span style="color: green">'if it doesn't exist</span>
|
|
<span style="color: blue">If</span> <span style="color: blue">Not</span> DictionaryComboBox.Items.Contains( _
|
|
<span style="color: #a31515">"Projects"</span>) <span style="color: blue">Then</span>
|
|
DictionaryComboBox.Items.Add(<span style="color: #a31515">"Projects"</span>)
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<span style="color: blue">Dim</span> SuccessSet <span style="color: blue">As</span> <span style="color: blue">Boolean</span> = <span style="color: blue">False</span>
|
|
SuccessSet = ProjectDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"1000"</span>, <span style="color: #a31515">"Mercedes Benz"</span>)
|
|
SuccessSet = ProjectDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"1001"</span>, <span style="color: #a31515">"Lexus"</span>)
|
|
SuccessSet = ProjectDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"1002"</span>, <span style="color: #a31515">"Porche"</span>)
|
|
SuccessSet = ProjectDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"1003"</span>, <span style="color: #a31515">"Audi"</span>)
|
|
SuccessSet = ProjectDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"1004"</span>, <span style="color: #a31515">"BMW"</span>)
|
|
SuccessSet = ProjectDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"1005"</span>, <span style="color: #a31515">"Jaguar"</span>)
|
|
|
|
<span style="color: blue">If</span> DictionaryComboBox.Text = <span style="color: #a31515">"Projects"</span> <span style="color: blue">Then</span>
|
|
DisplayDictionaryItems(<span style="color: #a31515">"Projects"</span>, _
|
|
ProjectDictionary, KeyValueListBox)
|
|
<span style="color: blue">Else</span>
|
|
DictionaryComboBox.Text = <span style="color: #a31515">"Projects"</span>
|
|
<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> DictionaryComboBox_SelectedIndexChanged( _
|
|
<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> DictionaryComboBox.SelectedIndexChanged
|
|
|
|
<span style="color: blue">Try</span>
|
|
<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">'Get the selected dictionary, if it exists</span>
|
|
<span style="color: blue">Dim</span> Dictionary <span style="color: blue">As</span> <span style="color: #2b91af">IEdmDictionary5</span>
|
|
Dictionary = vault.<b>GetDictionary</b>( _
|
|
DictionaryComboBox.Text, <span style="color: blue">False</span>)
|
|
<span style="color: green">'Display the dictionary contents</span>
|
|
DisplayDictionaryItems( _
|
|
DictionaryComboBox.Text, _
|
|
Dictionary, KeyValueListBox)
|
|
<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> CreateButton_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> CreateButton.Click
|
|
|
|
<span style="color: blue">Try</span>
|
|
KeyValueListBox.Items.Clear()
|
|
|
|
<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">'Get the selected dictionary, if it exists</span>
|
|
<span style="color: blue">Dim</span> Dictionary <span style="color: blue">As</span> <span style="color: #2b91af">IEdmDictionary5</span>
|
|
Dictionary = vault.<b>GetDictionary</b>( _
|
|
DictionaryComboBox.Text, <span style="color: blue">False</span>)
|
|
<span style="color: green">'If it doesn't exist, create it</span>
|
|
<span style="color: blue">If</span> Dictionary <span style="color: blue">Is</span> <span style="color: blue">Nothing</span> <span style="color: blue">Then</span>
|
|
<span style="color: green">'Create it, because it doesn't exist</span>
|
|
Dictionary = vault.<b>GetDictionary</b>( _
|
|
DictionaryComboBox.Text, <span style="color: blue">True</span>)
|
|
KeyValueListBox.Items.Add( _
|
|
DictionaryComboBox.Text + _
|
|
<span style="color: #a31515">" dictionary created."</span>)
|
|
<span style="color: blue">Else</span>
|
|
<span style="color: green">'If it does exist, inform the user</span>
|
|
KeyValueListBox.Items.Add( _
|
|
DictionaryComboBox.Text + _
|
|
<span style="color: #a31515">" dictionary already exists."</span>)
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<span style="color: green">'Add the new dictionary name to the combo box,</span>
|
|
<span style="color: green">'if it doesn't exist</span>
|
|
<span style="color: blue">If</span> <span style="color: blue">Not</span> DictionaryComboBox.Items.Contains( _
|
|
DictionaryComboBox.Text) <span style="color: blue">Then</span>
|
|
DictionaryComboBox.Items.Add( _
|
|
DictionaryComboBox.Text)
|
|
<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> DeleteButton_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> DeleteButton.Click
|
|
|
|
<span style="color: blue">Try</span>
|
|
KeyValueListBox.Items.Clear()
|
|
<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">'Get the selected dictionary, if it exists</span>
|
|
<span style="color: blue">Dim</span> Dictionary <span style="color: blue">As</span> <span style="color: #2b91af">IEdmDictionary5</span>
|
|
Dictionary = vault.<b>GetDictionary</b>( _
|
|
DictionaryComboBox.Text, <span style="color: blue">False</span>)
|
|
<span style="color: green">'If it doesn't exist, inform the user</span>
|
|
<span style="color: blue">If</span> Dictionary <span style="color: blue">Is</span> <span style="color: blue">Nothing</span> <span style="color: blue">Then</span>
|
|
KeyValueListBox.Items.Add( _
|
|
DictionaryComboBox.Text + _
|
|
<span style="color: #a31515">" dictionary doesn't exist."</span>)
|
|
<span style="color: green">'If it does exist, delete it and inform the user</span>
|
|
<span style="color: blue">Else</span>
|
|
Dictionary.<b>RemoveDictionary</b>()
|
|
KeyValueListBox.Items.Add( _
|
|
DictionaryComboBox.Text + _
|
|
<span style="color: #a31515">" dictionary deleted."</span>)
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
<span style="color: green">'Remove the dictionary name from the list box</span>
|
|
DictionaryComboBox.Items.Remove( _
|
|
DictionaryComboBox.Text)
|
|
<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> AddKeyValueButton_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> AddKeyValueButton.Click
|
|
|
|
<span style="color: blue">Try</span>
|
|
<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: blue">Dim</span> Dictionary <span style="color: blue">As</span> <span style="color: #2b91af">IEdmDictionary5</span>
|
|
Dictionary = vault.<b>GetDictionary</b>( _
|
|
DictionaryComboBox.Text, <span style="color: blue">False</span>)
|
|
|
|
<span style="color: green">'Make sure that the user has typed valid data</span>
|
|
<span style="color: blue">If</span> KeyTextBox.Text = <span style="color: #a31515">""</span> _
|
|
<span style="color: blue">Or</span> ValueTextBox.Text = <span style="color: #a31515">""</span> <span style="color: blue">Then</span>
|
|
<span style="color: #2b91af">MessageBox</span>.Show(<span style="color: #a31515">"Please type a key and a value."</span>)
|
|
<span style="color: blue">Exit Sub</span>
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<span style="color: green">'Add the data if it doesn't exist in the dictionary</span>
|
|
<span style="color: blue">Dim</span> SuccessSet <span style="color: blue">As</span> <span style="color: blue">Boolean</span> = <span style="color: blue">False</span>
|
|
SuccessSet = Dictionary.<b>StringTestAndSetAt</b>( _
|
|
KeyTextBox.Text, ValueTextBox.Text)
|
|
<span style="color: blue">If</span> <span style="color: blue">Not</span> SuccessSet <span style="color: blue">Then</span>
|
|
<span style="color: #2b91af">MessageBox</span>.Show(<span style="color: #a31515">"The value you typed for Key already exists; duplicate keys are prohibited. Neither the key or value was added to this dictionary. Try again."</span>)
|
|
<span style="color: blue">Else</span>
|
|
DisplayDictionaryItems(DictionaryComboBox.Text, _
|
|
Dictionary, KeyValueListBox)
|
|
KeyTextBox.Text = <span style="color: #a31515">""</span>
|
|
ValueTextBox.Text = <span style="color: #a31515">""</span>
|
|
<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> RemoveButton_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> RemoveButton.Click
|
|
|
|
<span style="color: blue">Try</span>
|
|
<span style="color: blue">If</span> KeyValueListBox.SelectedIndex = -1 <span style="color: blue">Then</span>
|
|
<span style="color: #2b91af">MessageBox</span>.Show(<span style="color: #a31515">"No Key/Value selected."</span>)
|
|
<span style="color: blue">Exit Sub</span>
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<span style="color: blue">Dim</span> KeyValue <span style="color: blue">As</span> <span style="color: blue">String</span>
|
|
KeyValue = KeyValueListBox.Items( _
|
|
KeyValueListBox.SelectedIndex)
|
|
<span style="color: blue">Dim</span> key <span style="color: blue">As</span> <span style="color: blue">String</span>
|
|
key = Split(KeyValue, vbTab)(0)
|
|
|
|
<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: blue">Dim</span> Dictionary <span style="color: blue">As</span> <span style="color: #2b91af">IEdmDictionary5</span>
|
|
Dictionary = vault.<b>GetDictionary</b>( _
|
|
DictionaryComboBox.Text, <span style="color: blue">False</span>)
|
|
|
|
Dictionary.<b>StringRemoveAt</b>(key)
|
|
KeyValueListBox.Items.Remove(KeyValue)
|
|
<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> AddCounterItemsButton_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> AddCounterItemsButton.Click
|
|
|
|
<span style="color: blue">Try</span>
|
|
|
|
<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: blue">Dim</span> CounterDictionary <span style="color: blue">As</span> <span style="color: #2b91af">IEdmDictionary5</span>
|
|
CounterDictionary = vault.<b>GetDictionary</b> _
|
|
(<span style="color: #a31515">"Counters"</span>, <span style="color: blue">True</span>) <span style="color: green">'Create it, if it doesn't exist</span>
|
|
|
|
<span style="color: green">'Add the new dictionary name to the list box,</span>
|
|
<span style="color: green">'if it doesn't exist</span>
|
|
<span style="color: blue">If</span> <span style="color: blue">Not</span> DictionaryComboBox.Items.Contains( _
|
|
<span style="color: #a31515">"Counters"</span>) <span style="color: blue">Then</span>
|
|
DictionaryComboBox.Items.Add(<span style="color: #a31515">"Counters"</span>)
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<span style="color: blue">Dim</span> SuccessSet <span style="color: blue">As</span> <span style="color: blue">Boolean</span> = <span style="color: blue">False</span>
|
|
SuccessSet = CounterDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"Electric"</span>, <span style="color: #a31515">"5"</span>)
|
|
SuccessSet = CounterDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"Hybrid"</span>, <span style="color: #a31515">"10"</span>)
|
|
SuccessSet = CounterDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"Gasoline"</span>, <span style="color: #a31515">"15"</span>)
|
|
SuccessSet = CounterDictionary.<b>StringTestAndSetAt</b> _
|
|
(<span style="color: #a31515">"Diesel"</span>, <span style="color: #a31515">"20"</span>)
|
|
|
|
<span style="color: blue">If</span> DictionaryComboBox.Text = <span style="color: #a31515">"Counters"</span> <span style="color: blue">Then</span>
|
|
DisplayDictionaryItems(<span style="color: #a31515">"Counters"</span>, _
|
|
CounterDictionary, KeyValueListBox)
|
|
<span style="color: blue">Else</span>
|
|
DictionaryComboBox.Text = <span style="color: #a31515">"Counters"</span>
|
|
<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> DisplayDictionaryItems( _
|
|
<span style="color: blue">ByVal</span> DictionaryName <span style="color: blue">As</span> <span style="color: blue">String</span>, _
|
|
<span style="color: blue">ByVal</span> Dictionary <span style="color: blue">As</span> <span style="color: #2b91af">IEdmDictionary5</span>, _
|
|
<span style="color: blue">ByVal</span> ListObject <span style="color: blue">As</span> <span style="color: blue">Object</span>)
|
|
|
|
<span style="color: blue">Try</span>
|
|
ListObject.Items.Clear()
|
|
|
|
<span style="color: blue">If</span> Dictionary <span style="color: blue">Is</span> <span style="color: blue">Nothing</span> <span style="color: blue">Then</span>
|
|
ListObject.Items.Add(DictionaryComboBox.Text + _
|
|
<span style="color: #a31515">" dictionary doesn't exist."</span>)
|
|
<span style="color: blue">Else</span>
|
|
<span style="color: green">'Traverse and display the Key/Value pairs</span>
|
|
<span style="color: green">'in the dictionary</span>
|
|
<span style="color: blue">Dim</span> Key <span style="color: blue">As</span> <span style="color: blue">String</span> = <span style="color: #a31515">""</span>
|
|
<span style="color: blue">Dim</span> Value <span style="color: blue">As</span> <span style="color: blue">String</span> = <span style="color: #a31515">""</span>
|
|
<span style="color: blue">Dim</span> Pos <span style="color: blue">As</span> <span style="color: #2b91af">IEdmPos5</span>
|
|
Pos = Dictionary.<b>StringGetFirstPosition</b>()
|
|
<span style="color: blue">While</span> <span style="color: blue">Not</span> Pos.<b>IsNull</b>
|
|
Dictionary.<b>StringGetNextAssoc</b>(Pos, Key, Value)
|
|
ListObject.Items.Add(Key + vbTab + Value)
|
|
<span style="color: blue">End</span> <span style="color: blue">While</span>
|
|
<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"><span style="color: #0000FF"><a href="#Top">Back to top</a></span></pre>
|
|
</div>
|
|
<div align="left">
|
|
<pre style="font-family: Courier New; font-size: 13; color: #008000; background: white"><a name="Designer"></a>'Form1.Designer.vb</pre>
|
|
</div>
|
|
<div align="left">
|
|
<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;">AddDictionary</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>.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>.AddProjectItemsButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
|
<span style="color:blue;">Me</span>.DictionaryComboBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span>()
|
|
<span style="color:blue;">Me</span>.DictionaryLabel = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()
|
|
<span style="color:blue;">Me</span>.KeyValueListBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>()
|
|
<span style="color:blue;">Me</span>.KeyValueLabel = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()
|
|
<span style="color:blue;">Me</span>.CreateButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
|
<span style="color:blue;">Me</span>.DeleteButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
|
<span style="color:blue;">Me</span>.KeyTextBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">TextBox</span>()
|
|
<span style="color:blue;">Me</span>.ValueTextBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">TextBox</span>()
|
|
<span style="color:blue;">Me</span>.KeyLabel = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()
|
|
<span style="color:blue;">Me</span>.ValueLabel = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()
|
|
<span style="color:blue;">Me</span>.AddKeyValueButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
|
<span style="color:blue;">Me</span>.RemoveButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
|
<span style="color:blue;">Me</span>.AddCounterItemsButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
|
<span style="color:blue;">Me</span>.SuspendLayout()
|
|
<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>(17, 35)
|
|
<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>(218, 21)
|
|
<span style="color:blue;">Me</span>.VaultsComboBox.TabIndex = 14
|
|
<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>(17, 19)
|
|
<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>(91, 13)
|
|
<span style="color:blue;">Me</span>.VaultsLabel.TabIndex = 15
|
|
<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;">'AddProjectItemsButton</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.AddProjectItemsButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(20, 451)
|
|
<span style="color:blue;">Me</span>.AddProjectItemsButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.AddProjectItemsButton.Name = <span style="color:#a31515;">"AddProjectItemsButton"</span>
|
|
<span style="color:blue;">Me</span>.AddProjectItemsButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(98, 24)
|
|
<span style="color:blue;">Me</span>.AddProjectItemsButton.TabIndex = 16
|
|
<span style="color:blue;">Me</span>.AddProjectItemsButton.Text = <span style="color:#a31515;">"Add project items"</span>
|
|
<span style="color:blue;">Me</span>.AddProjectItemsButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'DictionaryComboBox</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.DictionaryComboBox.FormattingEnabled = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.DictionaryComboBox.Items.AddRange(<span style="color:blue;">New</span> <span style="color:blue;">Object</span>() {<span style="color:#a31515;">"Projects"</span>, <span style="color:#a31515;">"Counters"</span>})
|
|
<span style="color:blue;">Me</span>.DictionaryComboBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(17, 86)
|
|
<span style="color:blue;">Me</span>.DictionaryComboBox.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.DictionaryComboBox.Name = <span style="color:#a31515;">"DictionaryComboBox"</span>
|
|
<span style="color:blue;">Me</span>.DictionaryComboBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(218, 21)
|
|
<span style="color:blue;">Me</span>.DictionaryComboBox.TabIndex = 17
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'DictionaryLabel</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.DictionaryLabel.AutoSize = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.DictionaryLabel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(17, 70)
|
|
<span style="color:blue;">Me</span>.DictionaryLabel.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>.DictionaryLabel.Name = <span style="color:#a31515;">"DictionaryLabel"</span>
|
|
<span style="color:blue;">Me</span>.DictionaryLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(88, 13)
|
|
<span style="color:blue;">Me</span>.DictionaryLabel.TabIndex = 18
|
|
<span style="color:blue;">Me</span>.DictionaryLabel.Text = <span style="color:#a31515;">"Select dictionary:"</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'KeyValueListBox</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.KeyValueListBox.FormattingEnabled = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.KeyValueListBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(17, 194)
|
|
<span style="color:blue;">Me</span>.KeyValueListBox.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.KeyValueListBox.Name = <span style="color:#a31515;">"KeyValueListBox"</span>
|
|
<span style="color:blue;">Me</span>.KeyValueListBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(218, 82)
|
|
<span style="color:blue;">Me</span>.KeyValueListBox.TabIndex = 19
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'KeyValueLabel</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.KeyValueLabel.AutoSize = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.KeyValueLabel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(17, 176)
|
|
<span style="color:blue;">Me</span>.KeyValueLabel.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>.KeyValueLabel.Name = <span style="color:#a31515;">"KeyValueLabel"</span>
|
|
<span style="color:blue;">Me</span>.KeyValueLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(57, 13)
|
|
<span style="color:blue;">Me</span>.KeyValueLabel.TabIndex = 20
|
|
<span style="color:blue;">Me</span>.KeyValueLabel.Text = <span style="color:#a31515;">"Key/Value"</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'CreateButton</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.CreateButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(17, 118)
|
|
<span style="color:blue;">Me</span>.CreateButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.CreateButton.Name = <span style="color:#a31515;">"CreateButton"</span>
|
|
<span style="color:blue;">Me</span>.CreateButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(101, 24)
|
|
<span style="color:blue;">Me</span>.CreateButton.TabIndex = 21
|
|
<span style="color:blue;">Me</span>.CreateButton.Text = <span style="color:#a31515;">"Create"</span>
|
|
<span style="color:blue;">Me</span>.CreateButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'DeleteButton</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.DeleteButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(142, 118)
|
|
<span style="color:blue;">Me</span>.DeleteButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.DeleteButton.Name = <span style="color:#a31515;">"DeleteButton"</span>
|
|
<span style="color:blue;">Me</span>.DeleteButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(93, 24)
|
|
<span style="color:blue;">Me</span>.DeleteButton.TabIndex = 22
|
|
<span style="color:blue;">Me</span>.DeleteButton.Text = <span style="color:#a31515;">"Delete"</span>
|
|
<span style="color:blue;">Me</span>.DeleteButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'KeyTextBox</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.KeyTextBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(20, 364)
|
|
<span style="color:blue;">Me</span>.KeyTextBox.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.KeyTextBox.Name = <span style="color:#a31515;">"KeyTextBox"</span>
|
|
<span style="color:blue;">Me</span>.KeyTextBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(76, 20)
|
|
<span style="color:blue;">Me</span>.KeyTextBox.TabIndex = 23
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'ValueTextBox</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.ValueTextBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(159, 366)
|
|
<span style="color:blue;">Me</span>.ValueTextBox.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.ValueTextBox.Name = <span style="color:#a31515;">"ValueTextBox"</span>
|
|
<span style="color:blue;">Me</span>.ValueTextBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(76, 20)
|
|
<span style="color:blue;">Me</span>.ValueTextBox.TabIndex = 24
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'KeyLabel</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.KeyLabel.AutoSize = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.KeyLabel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(17, 349)
|
|
<span style="color:blue;">Me</span>.KeyLabel.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>.KeyLabel.Name = <span style="color:#a31515;">"KeyLabel"</span>
|
|
<span style="color:blue;">Me</span>.KeyLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(25, 13)
|
|
<span style="color:blue;">Me</span>.KeyLabel.TabIndex = 25
|
|
<span style="color:blue;">Me</span>.KeyLabel.Text = <span style="color:#a31515;">"Key"</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'ValueLabel</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.ValueLabel.AutoSize = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.ValueLabel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(156, 349)
|
|
<span style="color:blue;">Me</span>.ValueLabel.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>.ValueLabel.Name = <span style="color:#a31515;">"ValueLabel"</span>
|
|
<span style="color:blue;">Me</span>.ValueLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(34, 13)
|
|
<span style="color:blue;">Me</span>.ValueLabel.TabIndex = 26
|
|
<span style="color:blue;">Me</span>.ValueLabel.Text = <span style="color:#a31515;">"Value"</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'AddKeyValueButton</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.AddKeyValueButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(68, 399)
|
|
<span style="color:blue;">Me</span>.AddKeyValueButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.AddKeyValueButton.Name = <span style="color:#a31515;">"AddKeyValueButton"</span>
|
|
<span style="color:blue;">Me</span>.AddKeyValueButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(110, 25)
|
|
<span style="color:blue;">Me</span>.AddKeyValueButton.TabIndex = 27
|
|
<span style="color:blue;">Me</span>.AddKeyValueButton.Text = <span style="color:#a31515;">"Add Key/Value"</span>
|
|
<span style="color:blue;">Me</span>.AddKeyValueButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'RemoveButton</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.RemoveButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(20, 280)
|
|
<span style="color:blue;">Me</span>.RemoveButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.RemoveButton.Name = <span style="color:#a31515;">"RemoveButton"</span>
|
|
<span style="color:blue;">Me</span>.RemoveButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(215, 41)
|
|
<span style="color:blue;">Me</span>.RemoveButton.TabIndex = 28
|
|
<span style="color:blue;">Me</span>.RemoveButton.Text = <span style="color:#a31515;">"Remove selected Key/Value"</span>
|
|
<span style="color:blue;">Me</span>.RemoveButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'AddCounterItemsButton</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.AddCounterItemsButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(142, 451)
|
|
<span style="color:blue;">Me</span>.AddCounterItemsButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
|
<span style="color:blue;">Me</span>.AddCounterItemsButton.Name = <span style="color:#a31515;">"AddCounterItemsButton"</span>
|
|
<span style="color:blue;">Me</span>.AddCounterItemsButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(104, 24)
|
|
<span style="color:blue;">Me</span>.AddCounterItemsButton.TabIndex = 29
|
|
<span style="color:blue;">Me</span>.AddCounterItemsButton.Text = <span style="color:#a31515;">"Add counter items"</span>
|
|
<span style="color:blue;">Me</span>.AddCounterItemsButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'AddDictionary</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>(257, 486)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.AddCounterItemsButton)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.RemoveButton)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.AddKeyValueButton)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.ValueLabel)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.KeyLabel)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.ValueTextBox)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.KeyTextBox)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.DeleteButton)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.CreateButton)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.KeyValueLabel)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.KeyValueListBox)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.DictionaryComboBox)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.DictionaryLabel)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.AddProjectItemsButton)
|
|
<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>.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;">"AddDictionary"</span>
|
|
<span style="color:blue;">Me</span>.Text = <span style="color:#a31515;">"Create a dictionary"</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> 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> AddProjectItemsButton <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> DictionaryComboBox <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> DictionaryLabel <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> KeyValueListBox <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> KeyValueLabel <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> CreateButton <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> DeleteButton <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> KeyTextBox <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> ValueTextBox <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> KeyLabel <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> ValueLabel <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> AddKeyValueButton <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> RemoveButton <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> AddCounterItemsButton <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>
|
|
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></pre>
|
|
</div>
|
|
<div align="center">
|
|
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color: #0000FF"><a href="#Top">Back to top</a></span>
|
|
</pre>
|
|
|
|
</div>
|
|
|
|
</body>
|
|
|
|
</html>
|