Create and Delete Dictionaries Example (VB.NET)
This example shows how to create and delete dictionaries and their keys and
values.
NOTE: If using the .NET Framework 4.0 primary interop assembly
provided with SOLIDWORKS PDM Professional, see
Using .NET Framework 4.0 in
Stand-alone Applications.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Start Microsoft Visual Studio 2010.
' a. Click File > New > Project > Visual Basic > Windows Forms Application.
' b. Type AddDictionary in Name.
' c. Click Browse and navigate to the folder where to create
' the project.
' d. Click OK.
' e. Click Show All Files in the Solution Explorer toolbar and expand
' Form1.vb in the Solution Explorer.
' f. Replace the code in Form1.vb with this code.
' g. To create the form, replace the code in Form1.Designer.vb with this code.
' 2. Add EPDM.Interop.epdm.dll as a reference (right-click the project
' name in the Solution Explorer, click Add Reference, click
' Assemblies > Framework in the left-side panel, browse to the top folder of
' your SOLIDWORKS PDM Professional installation, locate and click
' EPDM.Interop.epdm.dll, click Open, click Add, and click Close).
' 3. Right-click EPDM.Interop.epdm in References, click Properties, and set
' Embed Interop Types to False to handle methods that pass arrays of
' structures.
' 4. Click Debug > Start Debugging or press F5.
'
' Postconditions:
' 1. Displays a dialog.
' 2. Select a vault.
' 3. Select the Projects dictionary.
' a. Click Create.
' b. Click Add project items.
' The Key/Value list is populated with the
' Projects dictionary's keys and values.
' c. Type a unique value in Key and any value in Value.
' d. Click Add Key/Value.
' The key and value are added to the Key/Value list.
' e. Select a key and value in the Key/Value list and
' click Remove selected Key/Value.
' The selected key and value are deleted from the
' dictionary.
' f. Type an existing key in Key and any value in Value.
' g. Click Add Key/Value.
' 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 OK to close the message box.
' 4. Select the Counters dictionary.
' a. Click Create.
' b. Click Add counter items.
' The Key/Value list is populated with the Counters
' dictionary's keys and values.
' 5. Experiment with creating your own dictionary and adding
' and removing keys and values to and from that dictionary.
' 6. Close the dialog.
'----------------------------------------------------------------------------
'Form1.vb
Imports EPDM.Interop.epdm
Public Class AddDictionary
Private vault As IEdmVault5 = Nothing
Private Sub AddDictionary_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
vault = New EdmVault5
Dim Views() As EdmViewInfo = Nothing
DirectCast(vault, IEdmVault8).GetVaultViews(Views, False)
VaultsComboBox.Items.Clear()
For Each View As EdmViewInfo In Views
VaultsComboBox.Items.Add(View.mbsVaultName)
Next
If VaultsComboBox.Items.Count > 0 Then
VaultsComboBox.Text = VaultsComboBox.Items(0)
End If
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddProjectItemsButton_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles AddProjectItemsButton.Click
Try
If Not vault.IsLoggedIn Then
'Log into selected vault as the current user
vault.LoginAuto(VaultsComboBox.Text, _
Me.Handle.ToInt32())
End If
Dim ProjectDictionary As IEdmDictionary5
ProjectDictionary = vault.GetDictionary( _
"Projects", True) 'Create it if it doesn't exist
'Add the new dictionary name to the combo box
'if it doesn't exist
If Not DictionaryComboBox.Items.Contains( _
"Projects") Then
DictionaryComboBox.Items.Add("Projects")
End If
Dim SuccessSet As Boolean = False
SuccessSet = ProjectDictionary.StringTestAndSetAt _
("1000", "Mercedes Benz")
SuccessSet = ProjectDictionary.StringTestAndSetAt _
("1001", "Lexus")
SuccessSet = ProjectDictionary.StringTestAndSetAt _
("1002", "Porche")
SuccessSet = ProjectDictionary.StringTestAndSetAt _
("1003", "Audi")
SuccessSet = ProjectDictionary.StringTestAndSetAt _
("1004", "BMW")
SuccessSet = ProjectDictionary.StringTestAndSetAt _
("1005", "Jaguar")
If DictionaryComboBox.Text = "Projects" Then
DisplayDictionaryItems("Projects", _
ProjectDictionary, KeyValueListBox)
Else
DictionaryComboBox.Text = "Projects"
End If
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub DictionaryComboBox_SelectedIndexChanged( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles DictionaryComboBox.SelectedIndexChanged
Try
If Not vault.IsLoggedIn Then
'Log into selected vault as the current user
vault.LoginAuto(VaultsComboBox.Text, _
Me.Handle.ToInt32())
End If
'Get the selected dictionary, if it exists
Dim Dictionary As IEdmDictionary5
Dictionary = vault.GetDictionary( _
DictionaryComboBox.Text, False)
'Display the dictionary contents
DisplayDictionaryItems( _
DictionaryComboBox.Text, _
Dictionary, KeyValueListBox)
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub CreateButton_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles CreateButton.Click
Try
KeyValueListBox.Items.Clear()
If Not vault.IsLoggedIn Then
'Log into selected vault as the current user
vault.LoginAuto(VaultsComboBox.Text, _
Me.Handle.ToInt32())
End If
'Get the selected dictionary, if it exists
Dim Dictionary As IEdmDictionary5
Dictionary = vault.GetDictionary( _
DictionaryComboBox.Text, False)
'If it doesn't exist, create it
If Dictionary Is Nothing Then
'Create it, because it doesn't exist
Dictionary = vault.GetDictionary( _
DictionaryComboBox.Text, True)
KeyValueListBox.Items.Add( _
DictionaryComboBox.Text + _
" dictionary created.")
Else
'If it does exist, inform the user
KeyValueListBox.Items.Add( _
DictionaryComboBox.Text + _
" dictionary already exists.")
End If
'Add the new dictionary name to the combo box,
'if it doesn't exist
If Not DictionaryComboBox.Items.Contains( _
DictionaryComboBox.Text) Then
DictionaryComboBox.Items.Add( _
DictionaryComboBox.Text)
End If
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub DeleteButton_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles DeleteButton.Click
Try
KeyValueListBox.Items.Clear()
If Not vault.IsLoggedIn Then
'Log into selected vault as the current user
vault.LoginAuto(VaultsComboBox.Text, _
Me.Handle.ToInt32())
End If
'Get the selected dictionary, if it exists
Dim Dictionary As IEdmDictionary5
Dictionary = vault.GetDictionary( _
DictionaryComboBox.Text, False)
'If it doesn't exist, inform the user
If Dictionary Is Nothing Then
KeyValueListBox.Items.Add( _
DictionaryComboBox.Text + _
" dictionary doesn't exist.")
'If it does exist, delete it and inform the user
Else
Dictionary.RemoveDictionary()
KeyValueListBox.Items.Add( _
DictionaryComboBox.Text + _
" dictionary deleted.")
End If
'Remove the dictionary name from the list box
DictionaryComboBox.Items.Remove( _
DictionaryComboBox.Text)
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddKeyValueButton_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles AddKeyValueButton.Click
Try
If Not vault.IsLoggedIn Then
'Log into selected vault as the current user
vault.LoginAuto(VaultsComboBox.Text, _
Me.Handle.ToInt32())
End If
Dim Dictionary As IEdmDictionary5
Dictionary = vault.GetDictionary( _
DictionaryComboBox.Text, False)
'Make sure that the user has typed valid data
If KeyTextBox.Text = "" _
Or ValueTextBox.Text = "" Then
MessageBox.Show("Please type a key and a value.")
Exit Sub
End If
'Add the data if it doesn't exist in the dictionary
Dim SuccessSet As Boolean = False
SuccessSet = Dictionary.StringTestAndSetAt( _
KeyTextBox.Text, ValueTextBox.Text)
If Not SuccessSet Then
MessageBox.Show("The value you typed for Key already exists; duplicate keys are prohibited. Neither the key or value was added to this dictionary. Try again.")
Else
DisplayDictionaryItems(DictionaryComboBox.Text, _
Dictionary, KeyValueListBox)
KeyTextBox.Text = ""
ValueTextBox.Text = ""
End If
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub RemoveButton_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles RemoveButton.Click
Try
If KeyValueListBox.SelectedIndex = -1 Then
MessageBox.Show("No Key/Value selected.")
Exit Sub
End If
Dim KeyValue As String
KeyValue = KeyValueListBox.Items( _
KeyValueListBox.SelectedIndex)
Dim key As String
key = Split(KeyValue, vbTab)(0)
If Not vault.IsLoggedIn Then
'Log into selected vault as the current user
vault.LoginAuto(VaultsComboBox.Text, _
Me.Handle.ToInt32())
End If
Dim Dictionary As IEdmDictionary5
Dictionary = vault.GetDictionary( _
DictionaryComboBox.Text, False)
Dictionary.StringRemoveAt(key)
KeyValueListBox.Items.Remove(KeyValue)
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub AddCounterItemsButton_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles AddCounterItemsButton.Click
Try
If Not vault.IsLoggedIn Then
'Log into selected vault as the current user
vault.LoginAuto(VaultsComboBox.Text, _
Me.Handle.ToInt32())
End If
Dim CounterDictionary As IEdmDictionary5
CounterDictionary = vault.GetDictionary _
("Counters", True) 'Create it, if it doesn't exist
'Add the new dictionary name to the list box,
'if it doesn't exist
If Not DictionaryComboBox.Items.Contains( _
"Counters") Then
DictionaryComboBox.Items.Add("Counters")
End If
Dim SuccessSet As Boolean = False
SuccessSet = CounterDictionary.StringTestAndSetAt _
("Electric", "5")
SuccessSet = CounterDictionary.StringTestAndSetAt _
("Hybrid", "10")
SuccessSet = CounterDictionary.StringTestAndSetAt _
("Gasoline", "15")
SuccessSet = CounterDictionary.StringTestAndSetAt _
("Diesel", "20")
If DictionaryComboBox.Text = "Counters" Then
DisplayDictionaryItems("Counters", _
CounterDictionary, KeyValueListBox)
Else
DictionaryComboBox.Text = "Counters"
End If
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub DisplayDictionaryItems( _
ByVal DictionaryName As String, _
ByVal Dictionary As IEdmDictionary5, _
ByVal ListObject As Object)
Try
ListObject.Items.Clear()
If Dictionary Is Nothing Then
ListObject.Items.Add(DictionaryComboBox.Text + _
" dictionary doesn't exist.")
Else
'Traverse and display the Key/Value pairs
'in the dictionary
Dim Key As String = ""
Dim Value As String = ""
Dim Pos As IEdmPos5
Pos = Dictionary.StringGetFirstPosition()
While Not Pos.IsNull
Dictionary.StringGetNextAssoc(Pos, Key, Value)
ListObject.Items.Add(Key + vbTab + Value)
End While
End If
Catch ex As Runtime.InteropServices.COMException
MessageBox.Show("HRESULT = 0x" + _
ex.ErrorCode.ToString("X") + vbCrLf + _
ex.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
End Class
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class AddDictionary
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.VaultsComboBox = New System.Windows.Forms.ComboBox()
Me.VaultsLabel = New System.Windows.Forms.Label()
Me.AddProjectItemsButton = New System.Windows.Forms.Button()
Me.DictionaryComboBox = New System.Windows.Forms.ComboBox()
Me.DictionaryLabel = New System.Windows.Forms.Label()
Me.KeyValueListBox = New System.Windows.Forms.ListBox()
Me.KeyValueLabel = New System.Windows.Forms.Label()
Me.CreateButton = New System.Windows.Forms.Button()
Me.DeleteButton = New System.Windows.Forms.Button()
Me.KeyTextBox = New System.Windows.Forms.TextBox()
Me.ValueTextBox = New System.Windows.Forms.TextBox()
Me.KeyLabel = New System.Windows.Forms.Label()
Me.ValueLabel = New System.Windows.Forms.Label()
Me.AddKeyValueButton = New System.Windows.Forms.Button()
Me.RemoveButton = New System.Windows.Forms.Button()
Me.AddCounterItemsButton = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'VaultsComboBox
'
Me.VaultsComboBox.FormattingEnabled = True
Me.VaultsComboBox.Location = New System.Drawing.Point(17, 35)
Me.VaultsComboBox.Margin = New System.Windows.Forms.Padding(2)
Me.VaultsComboBox.Name = "VaultsComboBox"
Me.VaultsComboBox.Size = New System.Drawing.Size(218, 21)
Me.VaultsComboBox.TabIndex = 14
'
'VaultsLabel
'
Me.VaultsLabel.AutoSize = True
Me.VaultsLabel.Location = New System.Drawing.Point(17, 19)
Me.VaultsLabel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.VaultsLabel.Name = "VaultsLabel"
Me.VaultsLabel.Size = New System.Drawing.Size(91, 13)
Me.VaultsLabel.TabIndex = 15
Me.VaultsLabel.Text = "Select vault view:"
'
'AddProjectItemsButton
'
Me.AddProjectItemsButton.Location = New System.Drawing.Point(20, 451)
Me.AddProjectItemsButton.Margin = New System.Windows.Forms.Padding(2)
Me.AddProjectItemsButton.Name = "AddProjectItemsButton"
Me.AddProjectItemsButton.Size = New System.Drawing.Size(98, 24)
Me.AddProjectItemsButton.TabIndex = 16
Me.AddProjectItemsButton.Text = "Add project items"
Me.AddProjectItemsButton.UseVisualStyleBackColor = True
'
'DictionaryComboBox
'
Me.DictionaryComboBox.FormattingEnabled = True
Me.DictionaryComboBox.Items.AddRange(New Object() {"Projects", "Counters"})
Me.DictionaryComboBox.Location = New System.Drawing.Point(17, 86)
Me.DictionaryComboBox.Margin = New System.Windows.Forms.Padding(2)
Me.DictionaryComboBox.Name = "DictionaryComboBox"
Me.DictionaryComboBox.Size = New System.Drawing.Size(218, 21)
Me.DictionaryComboBox.TabIndex = 17
'
'DictionaryLabel
'
Me.DictionaryLabel.AutoSize = True
Me.DictionaryLabel.Location = New System.Drawing.Point(17, 70)
Me.DictionaryLabel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.DictionaryLabel.Name = "DictionaryLabel"
Me.DictionaryLabel.Size = New System.Drawing.Size(88, 13)
Me.DictionaryLabel.TabIndex = 18
Me.DictionaryLabel.Text = "Select dictionary:"
'
'KeyValueListBox
'
Me.KeyValueListBox.FormattingEnabled = True
Me.KeyValueListBox.Location = New System.Drawing.Point(17, 194)
Me.KeyValueListBox.Margin = New System.Windows.Forms.Padding(2)
Me.KeyValueListBox.Name = "KeyValueListBox"
Me.KeyValueListBox.Size = New System.Drawing.Size(218, 82)
Me.KeyValueListBox.TabIndex = 19
'
'KeyValueLabel
'
Me.KeyValueLabel.AutoSize = True
Me.KeyValueLabel.Location = New System.Drawing.Point(17, 176)
Me.KeyValueLabel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.KeyValueLabel.Name = "KeyValueLabel"
Me.KeyValueLabel.Size = New System.Drawing.Size(57, 13)
Me.KeyValueLabel.TabIndex = 20
Me.KeyValueLabel.Text = "Key/Value"
'
'CreateButton
'
Me.CreateButton.Location = New System.Drawing.Point(17, 118)
Me.CreateButton.Margin = New System.Windows.Forms.Padding(2)
Me.CreateButton.Name = "CreateButton"
Me.CreateButton.Size = New System.Drawing.Size(101, 24)
Me.CreateButton.TabIndex = 21
Me.CreateButton.Text = "Create"
Me.CreateButton.UseVisualStyleBackColor = True
'
'DeleteButton
'
Me.DeleteButton.Location = New System.Drawing.Point(142, 118)
Me.DeleteButton.Margin = New System.Windows.Forms.Padding(2)
Me.DeleteButton.Name = "DeleteButton"
Me.DeleteButton.Size = New System.Drawing.Size(93, 24)
Me.DeleteButton.TabIndex = 22
Me.DeleteButton.Text = "Delete"
Me.DeleteButton.UseVisualStyleBackColor = True
'
'KeyTextBox
'
Me.KeyTextBox.Location = New System.Drawing.Point(20, 364)
Me.KeyTextBox.Margin = New System.Windows.Forms.Padding(2)
Me.KeyTextBox.Name = "KeyTextBox"
Me.KeyTextBox.Size = New System.Drawing.Size(76, 20)
Me.KeyTextBox.TabIndex = 23
'
'ValueTextBox
'
Me.ValueTextBox.Location = New System.Drawing.Point(159, 366)
Me.ValueTextBox.Margin = New System.Windows.Forms.Padding(2)
Me.ValueTextBox.Name = "ValueTextBox"
Me.ValueTextBox.Size = New System.Drawing.Size(76, 20)
Me.ValueTextBox.TabIndex = 24
'
'KeyLabel
'
Me.KeyLabel.AutoSize = True
Me.KeyLabel.Location = New System.Drawing.Point(17, 349)
Me.KeyLabel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.KeyLabel.Name = "KeyLabel"
Me.KeyLabel.Size = New System.Drawing.Size(25, 13)
Me.KeyLabel.TabIndex = 25
Me.KeyLabel.Text = "Key"
'
'ValueLabel
'
Me.ValueLabel.AutoSize = True
Me.ValueLabel.Location = New System.Drawing.Point(156, 349)
Me.ValueLabel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.ValueLabel.Name = "ValueLabel"
Me.ValueLabel.Size = New System.Drawing.Size(34, 13)
Me.ValueLabel.TabIndex = 26
Me.ValueLabel.Text = "Value"
'
'AddKeyValueButton
'
Me.AddKeyValueButton.Location = New System.Drawing.Point(68, 399)
Me.AddKeyValueButton.Margin = New System.Windows.Forms.Padding(2)
Me.AddKeyValueButton.Name = "AddKeyValueButton"
Me.AddKeyValueButton.Size = New System.Drawing.Size(110, 25)
Me.AddKeyValueButton.TabIndex = 27
Me.AddKeyValueButton.Text = "Add Key/Value"
Me.AddKeyValueButton.UseVisualStyleBackColor = True
'
'RemoveButton
'
Me.RemoveButton.Location = New System.Drawing.Point(20, 280)
Me.RemoveButton.Margin = New System.Windows.Forms.Padding(2)
Me.RemoveButton.Name = "RemoveButton"
Me.RemoveButton.Size = New System.Drawing.Size(215, 41)
Me.RemoveButton.TabIndex = 28
Me.RemoveButton.Text = "Remove selected Key/Value"
Me.RemoveButton.UseVisualStyleBackColor = True
'
'AddCounterItemsButton
'
Me.AddCounterItemsButton.Location = New System.Drawing.Point(142, 451)
Me.AddCounterItemsButton.Margin = New System.Windows.Forms.Padding(2)
Me.AddCounterItemsButton.Name = "AddCounterItemsButton"
Me.AddCounterItemsButton.Size = New System.Drawing.Size(104, 24)
Me.AddCounterItemsButton.TabIndex = 29
Me.AddCounterItemsButton.Text = "Add counter items"
Me.AddCounterItemsButton.UseVisualStyleBackColor = True
'
'AddDictionary
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(257, 486)
Me.Controls.Add(Me.AddCounterItemsButton)
Me.Controls.Add(Me.RemoveButton)
Me.Controls.Add(Me.AddKeyValueButton)
Me.Controls.Add(Me.ValueLabel)
Me.Controls.Add(Me.KeyLabel)
Me.Controls.Add(Me.ValueTextBox)
Me.Controls.Add(Me.KeyTextBox)
Me.Controls.Add(Me.DeleteButton)
Me.Controls.Add(Me.CreateButton)
Me.Controls.Add(Me.KeyValueLabel)
Me.Controls.Add(Me.KeyValueListBox)
Me.Controls.Add(Me.DictionaryComboBox)
Me.Controls.Add(Me.DictionaryLabel)
Me.Controls.Add(Me.AddProjectItemsButton)
Me.Controls.Add(Me.VaultsComboBox)
Me.Controls.Add(Me.VaultsLabel)
Me.Margin = New System.Windows.Forms.Padding(2)
Me.Name = "AddDictionary"
Me.Text = "Create a dictionary"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents VaultsComboBox As System.Windows.Forms.ComboBox
Friend WithEvents VaultsLabel As System.Windows.Forms.Label
Friend WithEvents AddProjectItemsButton As System.Windows.Forms.Button
Friend WithEvents DictionaryComboBox As System.Windows.Forms.ComboBox
Friend WithEvents DictionaryLabel As System.Windows.Forms.Label
Friend WithEvents KeyValueListBox As System.Windows.Forms.ListBox
Friend WithEvents KeyValueLabel As System.Windows.Forms.Label
Friend WithEvents CreateButton As System.Windows.Forms.Button
Friend WithEvents DeleteButton As System.Windows.Forms.Button
Friend WithEvents KeyTextBox As System.Windows.Forms.TextBox
Friend WithEvents ValueTextBox As System.Windows.Forms.TextBox
Friend WithEvents KeyLabel As System.Windows.Forms.Label
Friend WithEvents ValueLabel As System.Windows.Forms.Label
Friend WithEvents AddKeyValueButton As System.Windows.Forms.Button
Friend WithEvents RemoveButton As System.Windows.Forms.Button
Friend WithEvents AddCounterItemsButton As System.Windows.Forms.Button
End Class