Initial Commit of the PDM project (ready for DWS migration)
This commit is contained in:
will
480
documentation/api_extracted/Add_Users_Example_VBNET.htm
Normal file
480
documentation/api_extracted/Add_Users_Example_VBNET.htm
Normal file
@@ -0,0 +1,480 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Add Users 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,users">
|
||||
<meta name=MS-HKWD content="VB.NET examples,XmlSerializer class">
|
||||
<meta name=MS-HKWD content="VB.NET examples,StreamReader class">
|
||||
<meta name=MS-HKWD content="VB.NET examples,permissions">
|
||||
|
||||
<body>
|
||||
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
||||
<h1>Add Users Example (VB.NET)</h1>
|
||||
<p><a name="top"></a>This example shows how to add users to a vault by
|
||||
deserializing an XML file containing user data.</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="AddUsers.gif" width="320" height="275"></p>
|
||||
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><font color="#008000">'----------------------------------------------------------------------------</font>
|
||||
<span style="color:green;">' Preconditions:</span>
|
||||
<span style="color:green;">' 1. Create an XML file for this example.</span>
|
||||
<span style="color:green;">' a. Open a text editor like Notepad and copy and paste <a href="#xml">this code</a> </span>
|
||||
<span style="color:green;">' into the editor.</span>
|
||||
<span style="color:green;">' b. Save the file as <b>User.xml</b> and remember where you save the file.</span>
|
||||
<span style="color:green;">' 2. 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>AddUsers</b> in <b>Name</b>.</span>
|
||||
<span style="color:green;">' c. Click <b>Browse</b> and navigate to the folder where to create
|
||||
' 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 <b>
|
||||
</b>' </span><span style="color:green;"><b>Form1.vb</b> in </span><span style="color:green;">the Solution Explorer<b>.</b></span>
|
||||
<span style="color:green;">' f. Create a form similar to the form shown above and change:</span>
|
||||
<span style="color:green;">' 1. Top label to <b>VaultsLabel</b>.</span>
|
||||
<span style="color:green;">' 2. Combo box to <b>VaultsComboBox</b>.</span>
|
||||
<span style="color:green;">' 3. Second label to <b>XmlLabel</b>.</span>
|
||||
<span style="color:green;">' 4. Text box to <b>XmlTextBox</b>.</span>
|
||||
<span style="color:green;">' 5. <b>Browse</b> button to <b>BrowseButton</b>.</span>
|
||||
<span style="color:green;">' 6. <b>Add users</b> button to <b>AddUsersButton</b>.</span>
|
||||
<span style="color:green;">' g. Replace the code in <b>Form1.vb</b> with <a href="#form1">this code</a>.</span>
|
||||
<span style="color:green;">' h. Replace the code in <b>Form1.Designer.vb</b> with <a href="#designer">this code</a>.</span>
|
||||
<span style="color:green;">' i. Right-click the <b>AddUsers</b> project name in the Solution Explorer.</span>
|
||||
<span style="color:green;">' 1. Click <b>Add > Class > Class</b>.</span>
|
||||
<span style="color:green;">' 2. Type <b>EdmVaultSingleton.vb</b> in <b>Name</b>.</span>
|
||||
<span style="color:green;">' 3. Click <b>Add</b>.</span>
|
||||
<span style="color:green;">' 4. Replace the code in <b>EdmVaultSingleton.vb</b> with <a href="#edmvaultsingleton">this code</a>.</span>
|
||||
<span style="color:green;">' j. Right-click the <b>AddUsers</b> project name in the Solution Explorer.</span>
|
||||
<span style="color:green;">' 1. Click <b>Add > Class > Class</b>.</span>
|
||||
<span style="color:green;">' 2. Type <b>User.vb</b> in <b>Name</b>.</span>
|
||||
<span style="color:green;">' 3. Click <b>Add</b>.</span>
|
||||
<span style="color:green;">' 4. Replace the code in <b>User.vb</b> with <a href="#user">this code</a>.</span>
|
||||
<span style="color:green;">' 3. 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</span><span style="color:green;"> </span><span style="color:green;"><b>Add Reference</b>, </span><span style="color:green;">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 </span><span style="color:green;">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;">' 4. Right-click <b>EPDM.Interop.epdm</b> in <b>References</b>, </span><span style="color:green;">click </span><span style="color:green;"><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;">' 5. 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 <b>Browse</b>, locate and </span><span style="color:green;">click </span><span style="color:green;"><b>User.xml</b>, and click <b>Open</b>.</span>
|
||||
<span style="color:green;">' 4. Click <b>Add users</b>.</span>
|
||||
<span style="color:green;">' A message box is displayed showing the names and IDs of the new users added</span>
|
||||
<span style="color:green;">' to the vault.</span>
|
||||
<span style="color:green;">' 5. Click <b>OK</b> to close the message box.</span>
|
||||
<span style="color:green;">' 6. Close the dialog.</span>
|
||||
<span style="color:green;">' 7. Start and log into the SOLIDWORKS PDM Professional Administration
|
||||
' tool as Admin.
|
||||
' 8. Expand the vault where the new users were added. </span>
|
||||
<span style="color:green;">' 9. Expand <b>Users</b> to see the names of the new users.
|
||||
' 10. Double-click <b>jdoe</b>.</span>
|
||||
<span style="color: #008000">'</span><span style="color:green;"> a. Examine the properties.</span>
|
||||
<span style="color: #008000">'</span><span style="color:green;"> b. Click <b>Administrative Permissions</b> and examine the permissions.</span>
|
||||
<span style="color: #008000">'</span><span style="color:green;"> c. Click <b>OK</b>.</span>
|
||||
<span style="color: #008000">'</span><span style="color:green;"> 11. Double-click <b>jsmith</b> and repeat steps 10a - 10c.
|
||||
'----------------------------------------------------------------------------</span></pre>
|
||||
</font><font size="3">
|
||||
<pre><a name="xml"></a></pre>
|
||||
<pre><?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="User">
|
||||
<sn>Doe</sn>
|
||||
<givenName>John</givenName>
|
||||
<title>Designer</title>
|
||||
<cn>John Doe</cn>
|
||||
<username>jdoe@yourcompany.com</username>
|
||||
</anyType>
|
||||
<anyType xsi:type="User">
|
||||
<sn>Smith</sn>
|
||||
<givenName>Jane</givenName>
|
||||
<title>Manager</title>
|
||||
<cn>Jane Smith</cn>
|
||||
<username>jsmith@yourcompany.com</username>
|
||||
</anyType>
|
||||
</ArrayOfAnyType</font><font size="1">></font></pre>
|
||||
<div align="center">
|
||||
<pre><font size="2" face="Calibri"><a href="#top">Back to top</a></font></pre>
|
||||
</div>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color:green;"><a name="form1"></a>'Form1.vb</span>
|
||||
<span style="color:blue;">Imports</span> System.IO
|
||||
<span style="color:blue;">Imports</span> System.Xml.Serialization
|
||||
<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;">AddUsers</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> AddUsersButton_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> AddUsersButton.Click
|
||||
|
||||
<span style="color:blue;">Dim</span> StrReader <span style="color:blue;">As</span> <span style="color:#2b91af;">StreamReader</span> = <span style="color:blue;">Nothing</span>
|
||||
|
||||
<span style="color:blue;">Try</span>
|
||||
<span style="color:green;">'Deserialize users from an XML file</span>
|
||||
<span style="color:blue;">Dim</span> ExtraTypes() <span style="color:blue;">As</span> <span style="color:#2b91af;">Type</span> = {<span style="color:#2b91af;">Type</span>.GetType(<span style="color:#a31515;">"AddUsers.User"</span>)}
|
||||
<span style="color:blue;">Dim</span> XmlSer <span style="color:blue;">As</span> <span style="color:blue;">New</span> <span style="color:#2b91af;">XmlSerializer</span>( _
|
||||
<span style="color:#2b91af;">Type</span>.GetType(<span style="color:#a31515;">"System.Collections.ArrayList"</span>), _
|
||||
ExtraTypes)
|
||||
StrReader = <span style="color:blue;">New</span> <span style="color:#2b91af;">StreamReader</span>(XmlTextBox.Text)
|
||||
<span style="color:blue;">Dim</span> NewUsers <span style="color:blue;">As</span> <span style="color:#2b91af;">ArrayList</span> = _
|
||||
XmlSer.Deserialize(StrReader)
|
||||
|
||||
<span style="color:green;">'Obtain the only instance of the IEdmVaultObject</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;">'Assign IEdmVault object to the IEdmUserMgr7 object</span>
|
||||
<span style="color:blue;">Dim</span> UsrMgr <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmUserMgr7</span> = vault
|
||||
|
||||
<span style="color:green;">'Declare EdmUserData array to hold new user data</span>
|
||||
<span style="color:blue;">Dim</span> UserData(NewUsers.Count - 1) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmUserData2</span>
|
||||
<span style="color:green;">'Set the EdmUserData members for each new user</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> NewUsers.Count - 1
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> NewUsers(i) <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span>
|
||||
UserData(i).<b>mbsCompleteName</b> = NewUsers(i).cn
|
||||
UserData(i).<b>mbsEmail</b> = NewUsers(i).username
|
||||
UserData(i).<b>mbsInitials</b> = _
|
||||
NewUsers(i).givenName.Substring(0, 1) + _
|
||||
NewUsers(i).sn.SubString(0, 1)
|
||||
UserData(i).<b>mbsUserName</b> = _
|
||||
NewUsers(i).username.Split(<span style="color:#a31515;">"@"</span>)(0)
|
||||
<span style="color:green;">'Return user's IEdmUser6 interface in mpoUser</span>
|
||||
UserData(i).<b>mlFlags</b> = _
|
||||
<span style="color:#2b91af;">EdmUserDataFlags</span>.Edmudf_GetInterface
|
||||
<span style="color:green;">'Add this user even if others cannot be added</span>
|
||||
UserData(i).<b>mlFlags</b> += _
|
||||
<span style="color:#2b91af;">EdmUserDataFlags</span>.Edmudf_ForceAdd</pre>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"> <span style="color:green;">'Set permissions </span>
|
||||
<span style="color:blue;">Dim</span> perms(2) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmSysPerm</span>
|
||||
perms(0) = <span style="color:#2b91af;">EdmSysPerm</span>.EdmSysPerm_EditUserMgr
|
||||
perms(1) = <span style="color:#2b91af;">EdmSysPerm</span>.EdmSysPerm_EditReportQuery
|
||||
perms(2) = <span style="color:#2b91af;">EdmSysPerm</span>.EdmSysPerm_MandatoryVersionComments
|
||||
UserData(i).<b>moSysPerms</b> = perms
|
||||
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<span style="color:blue;">Next</span> i
|
||||
|
||||
<span style="color:green;">'Add the users to the vault</span>
|
||||
UsrMgr.<b>AddUsers2</b>(UserData)
|
||||
|
||||
<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;">For</span> <span style="color:blue;">Each</span> usr <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmUserData2</span> <span style="color:blue;">In</span> UserData
|
||||
<span style="color:blue;">If</span> usr.<b>mhStatus</b> = 0 <span style="color:blue;">Then</span>
|
||||
msg += <span style="color:#a31515;">"Created user """</span> + usr.<b>mpoUser</b>.<b>Name</b> _
|
||||
+ <span style="color:#a31515;">""" successfully. ID = "</span> _
|
||||
+ usr.<b>mpoUser</b>.<b>ID</b>.ToString() + vbCrLf
|
||||
<span style="color:blue;">Else</span>
|
||||
msg += <span style="color:#a31515;">"Error creating user """</span> _
|
||||
+ usr.<b>mbsUserName</b> + <span style="color:#a31515;">""" - "</span> _
|
||||
+ vault.GetErrormessage(usr.<b>mhStatus</b>) + vbCrLf
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<span style="color:blue;">Next</span>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(msg)
|
||||
|
||||
|
||||
<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;">Finally</span>
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> StrReader <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span>
|
||||
StrReader.Close()
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span>
|
||||
<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> AddUsers_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> = <span style="color:blue;">Nothing</span>
|
||||
|
||||
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><font size="2" face="Calibri"><a href="#top">Back to top</a></font></pre>
|
||||
</div>
|
||||
<div align="left">
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color:green;"><a name="designer"></a>'Form1.Designer.vb</span>
|
||||
<<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;">AddUsers</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>.AddUsersButton = <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>.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>(227, 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>(173, 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 users:"</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;">'AddUsersButton</span>
|
||||
<span style="color:green;">'</span>
|
||||
<span style="color:blue;">Me</span>.AddUsersButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(24, 137)
|
||||
<span style="color:blue;">Me</span>.AddUsersButton.Margin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Padding</span>(2)
|
||||
<span style="color:blue;">Me</span>.AddUsersButton.Name = <span style="color:#a31515;">"AddUsersButton"</span>
|
||||
<span style="color:blue;">Me</span>.AddUsersButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(87, 24)
|
||||
<span style="color:blue;">Me</span>.AddUsersButton.TabIndex = 3
|
||||
<span style="color:blue;">Me</span>.AddUsersButton.Text = <span style="color:#a31515;">"Add users"</span>
|
||||
<span style="color:blue;">Me</span>.AddUsersButton.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>(136, 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>(91, 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;">'AddUsers</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>(304, 237)
|
||||
<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>.AddUsersButton)
|
||||
<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;">"AddUsers"</span>
|
||||
<span style="color:blue;">Me</span>.Text = <span style="color:#a31515;">"Add new users"</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> AddUsersButton <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;">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 size="2" face="Calibri"><a href="#top">Back to top</a></font></pre>
|
||||
</div>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color:green;"><a name="edmvaultsingleton"></a>'EdmVaultSingleton.vb</span>
|
||||
|
||||
<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: black; background: white"><font size="2" face="Calibri"><a href="#top">Back to top</a></font></pre>
|
||||
</div>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color:green;"><a name="user"></a>'User.vb</span>
|
||||
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">User</span>
|
||||
<span style="color:blue;">Private</span> mSn <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:green;">'First name</span>
|
||||
<span style="color:blue;">Private</span> mGivenName <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:green;">'Last name</span>
|
||||
<span style="color:blue;">Private</span> mTitle <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:green;">'Title</span>
|
||||
<span style="color:blue;">Private</span> mCn <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:green;">'Complete name</span>
|
||||
<span style="color:blue;">Private</span> mUsername <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:green;">'Email address</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> sn() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
sn = mSn
|
||||
<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>)
|
||||
mSn = 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> givenName() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
givenName = mGivenName
|
||||
<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>)
|
||||
mGivenName = 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> title() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
title = mTitle
|
||||
<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>)
|
||||
mTitle = 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> cn() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
cn = mCn
|
||||
<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>)
|
||||
mCn = 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> username() <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;">Get</span>
|
||||
username = mUsername
|
||||
<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>)
|
||||
mUsername = 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 size="2" face="Calibri"><a href="#top">Back to top</a></font></pre>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
Reference in New Issue
Block a user