Initial Commit of the PDM project (ready for DWS migration)
This commit is contained in:
will
433
documentation/api_extracted/Add_Files_to_Vault_Example_VBNET.htm
Normal file
433
documentation/api_extracted/Add_Files_to_Vault_Example_VBNET.htm
Normal file
@@ -0,0 +1,433 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Add Files to Vault 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,files">
|
||||
|
||||
<body>
|
||||
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
||||
<h1>Add Files to Vault Example (VB.NET)</h1>
|
||||
<p><a name="top"></a>This example shows how to add files to a vault.</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="AddFiles.gif" width="333" height="253"></p>
|
||||
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:green;">
|
||||
'----------------------------------------------------------------------------</span><br>
|
||||
<span style="color:green;">' Preconditions:</span><br>
|
||||
<span style="color:green;">' 1. Start Microsoft Visual Studio.</span><br>
|
||||
<span style="color:green;">' a. Click <b>File > New > Project > Visual Basic > Windows Forms Application</b>.</span><br>
|
||||
<span style="color:green;">' b. Type <b>AddFiles</b> in <b>Name</b>.</span><br>
|
||||
<span style="color:green;">' c. Click <b>Browse</b> and navigate to the folder where to create </span><br>
|
||||
<span style="color:green;">' the project.</span><br>
|
||||
<span style="color:green;">' d. Click <b>OK</b>. </span><br>
|
||||
<span style="color:green;">' e. Click <b>Show All Files</b> in the Solution Explorer toolbar and expand </span><br>
|
||||
<span style="color:green;">' <b>Form1.vb</b> in the Solution Explorer.</span><br>
|
||||
<span style="color:green;">' f. Replace the code in <b>Form1.vb</b> with <a href="#form1">this code</a>.</span><br>
|
||||
<span style="color:green;">' g. To create the form, replace the code in <b>Form1.Designer.vb</b> with <a href="#form1designer">this code</a>.</span><br>
|
||||
<span style="color:green;">' 2. Add references to:<br>
|
||||
' a. <b>EPDM.Interop.epdm.dll</b> (right-click the project</span><br>
|
||||
<span style="color:green;">' name in the Solution Explorer, click <b>Add
|
||||
> Reference</b> > </span><br>
|
||||
<span style="color:green;">' <b> Assemblies > Framework</b> >
|
||||
<b>Browse</b> and browse to the top folder of your </span><br>
|
||||
<span style="color:green;">' SOLIDWORKS PDM Professional installation, select </span><br>
|
||||
<span style="color:green;">' <b> EPDM.Interop.epdm.dll</b>,
|
||||
and click <b>OK</b>).<br>
|
||||
' b. </span><b><font color="#008000">
|
||||
EPDM.interop.EPDMResultCode.dll</font></b> (<font color="#008000">click <b>
|
||||
Browse</b>, navigate to and select<br>
|
||||
' <b>EPDM.interop.EPDMResultCode.dll</b>,
|
||||
and click<b> OK</b>).</font><br>
|
||||
<span style="color:green;">' 3. Right-click <b>EPDM.Interop.epdm</b> in References, click <b>Properties</b>, and set </span><br>
|
||||
<span style="color:green;">' <b>Embed Interop Types</b> to <b>False</b> to handle methods that pass arrays of </span><br>
|
||||
<span style="color:green;">' structures.<br>
|
||||
' 4. Ensure that the vault workflow contains the <b>Waiting for Approval</b>
|
||||
state.<br>
|
||||
' 5. Ensure that the vault workflow contains the <b>Submit for Approval</b>
|
||||
transition<br>
|
||||
' to the <b>Waiting for Approval</b> state.<br>
|
||||
' 6. Ensure that the logged-in PDM user has permission to move files.<br>
|
||||
</span>
|
||||
<span style="color: green">' 7. Modify <i>password</i> in
|
||||
IEdmFile13::ChangeState3 to<br>
|
||||
' match the password of your logged-in PDM user. </span><br>
|
||||
<span style="color:green;">' 8. Click <b>Debug > Start Debugging</b> or press F5.</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">' Postconditions: </span><br>
|
||||
<span style="color:green;">' 1. Displays the Add files to vault dialog box.</span><br>
|
||||
<span style="color:green;">' a. Select a vault view.</span><br>
|
||||
<span style="color:green;">' b. Click <b>Browse</b>. </span><br>
|
||||
<span style="color:green;">
|
||||
' 1. Locate and click three files outside
|
||||
the vault.<br>
|
||||
' 2. Click <b>Open</b>.<br>
|
||||
' c. Click <b>Add files</b>.<br>
|
||||
' 1. Adds the selected files to the root
|
||||
folder of the vault.<br>
|
||||
' 2. Checks in the files.<br>
|
||||
' 3. Creates path <b>\temp\files</b> in
|
||||
the root folder.<br>
|
||||
' 4. Moves one of the files to subfolder <b>
|
||||
\temp\files</b>.<br>
|
||||
' 5. Copies one of the files to subfolder
|
||||
<b>\temp</b>.<br>
|
||||
' 6. Changes the state of one of the files
|
||||
in the root folder to <br>
|
||||
' <b>Waiting for Approval</b>.<br>
|
||||
' 2. Click <b>OK</b> to close each message box.<br>
|
||||
' 3. Examine the vault.</span><br>
|
||||
<span style="color:green;">
|
||||
' 4. Close the Add files to vault dialog box. </span><br>
|
||||
<span style="color:green;">
|
||||
'----------------------------------------------------------------------------</span><br>
|
||||
<br>
|
||||
<span style="color:green;"><a name="form1"></a>'Form1.vb</span><br>
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:blue;">Imports</span> System.IO<br>
|
||||
<span style="color:blue;">Imports</span> System.Xml.Serialization<br>
|
||||
<span style="color:blue;">Imports</span> System.Collections<br>
|
||||
<span style="color:blue;">Imports</span> System.Collections.Generic<br>
|
||||
<span style="color:blue;">Imports</span> System.Data<br>
|
||||
<span style="color:blue;">Imports</span> System.Diagnostics<br>
|
||||
<span style="color:blue;">Imports</span> System.Windows.Forms<br>
|
||||
<span style="color:blue;">Imports</span> System.ComponentModel<br>
|
||||
<span style="color:blue;">Imports</span> EPDM.Interop.epdm<br>
|
||||
<br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">Form1</span><br>
|
||||
<span style="color:blue;">Implements</span> <span style="color:#2b91af;">IEdmCallback6</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> vault1 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> Form1_Load(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> <span style="color:blue;">MyBase</span>.Load<br>
|
||||
<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">Dim</span> vault1 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span> = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
||||
<span style="color:blue;">Dim</span> vault <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault8</span> = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault8</span>)<br>
|
||||
<span style="color:blue;">Dim</span> Views <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span>() = <span style="color:blue;">Nothing</span><br>
|
||||
<br>
|
||||
vault.<b>GetVaultViews</b>(Views, <span style="color:blue;">False</span>)<br>
|
||||
VaultsComboBox.Items.Clear()<br>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> View <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span> <span style="color:blue;">In</span> Views<br>
|
||||
VaultsComboBox.Items.Add(View.<b>mbsVaultName</b>)<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<span style="color:blue;">If</span> VaultsComboBox.Items.Count > 0 <span style="color:blue;">Then</span><br>
|
||||
VaultsComboBox.Text = <span style="color:blue;">DirectCast</span>(VaultsComboBox.Items(0), <span style="color:blue;">String</span>)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</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<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
ListBox.Items.Clear()<br>
|
||||
<br>
|
||||
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
||||
vault1 = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
||||
<span style="color:green;">'Log into selected vault as the current user</span><br>
|
||||
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'Set the initial directory in the Open dialog</span><br>
|
||||
OpenFileDialog.InitialDirectory = vault1.<b>RootFolderPath</b><br>
|
||||
<span style="color:green;">'Show the Open dialog</span><br>
|
||||
<span style="color:blue;">Dim</span> DialogResult <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">DialogResult</span> = <span style="color:blue;">Nothing</span><br>
|
||||
DialogResult = OpenFileDialog.ShowDialog()<br>
|
||||
<span style="color:green;">'If the user didn't click Open, exit</span><br>
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> (DialogResult = System.Windows.Forms.<span style="color:#2b91af;">DialogResult</span>.OK) <span style="color:blue;">Then</span><br>
|
||||
<span style="color:blue;">Return</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> FileName <span style="color:blue;">As</span> <span style="color:blue;">String</span> <span style="color:blue;">In</span> OpenFileDialog.FileNames<br>
|
||||
ListBox.Items.Add(FileName)<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:blue;"> Public</span> <span style="color:blue;">Sub</span> AddFiles_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> AddFiles.Click<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> vault2 <span style="color:blue;">As</span> IEdmVault16 = <span style="color:blue;">Nothing</span><br>
|
||||
<span style="color:blue;">If</span> vault1 <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
||||
vault1 = <span style="color:blue;">New</span> EdmVault5()<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
vault2 = <span style="color:blue;">DirectCast</span>(vault1, IEdmVault16)<br>
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> vault1.<b>IsLoggedIn</b> <span style="color:blue;">Then</span><br>
|
||||
<span style="color:green;">'Log into selected vault as the current user</span><br>
|
||||
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> ListBox.Items.Count = 3 <span style="color:blue;">Then</span><br>
|
||||
MessageBox.Show(<span style="color:#a31515;">"Please click three files that are not in the vault."</span>)<br>
|
||||
<span style="color:blue;">Exit Sub</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'MessageBox.Show("Vault type as defined in EdmVaultType: " + vault2.<b>GetVaultType</b>().ToString())</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> aFile <span style="color:blue;">As</span> IEdmFile13<br>
|
||||
<br>
|
||||
<span style="color:green;">' Add selected files to the root folder of the vault</span><br>
|
||||
<span style="color:blue;">Dim</span> Folder <span style="color:blue;">As</span> IEdmFolder9<br>
|
||||
Folder = vault2.<b>RootFolder</b><br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> Files() <span style="color:blue;">As</span> EdmAddFileInfo<br>
|
||||
<span style="color:blue;">ReDim</span> Files(ListBox.Items.Count - 1)<br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> FileNames(2) <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
||||
<span style="color:blue;">Dim</span> Index <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 0<br>
|
||||
<span style="color:blue;">Dim</span> fileStr = <span style="color:#a31515;">""</span><br>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> FileName <span style="color:blue;">In</span> ListBox.Items<br>
|
||||
fileStr = FileName.ToString()<br>
|
||||
FileNames(Index) = fileStr.Substring(fileStr.LastIndexOf(<span style="color:#a31515;">"\"</span>))<br>
|
||||
Index = Index + 1<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> Path <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
||||
Index = 0<br>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> FileName <span style="color:blue;">In</span> ListBox.Items<br>
|
||||
Path = FileName<br>
|
||||
Files(Index).<b>mbsPath</b> = Path<br>
|
||||
Files(Index).<b>mlEdmAddFlags</b> = EdmAddFlag.EdmAdd_Simple<br>
|
||||
Files(Index).<b>mlFileID</b> = 0<br>
|
||||
Files(Index).<b>mlSrcDocumentID</b> = 0<br>
|
||||
Files(Index).<b>mlSrcProjectID</b> = 0<br>
|
||||
Files(Index).<b>mbsNewName</b> = <span style="color:#a31515;">""</span><br>
|
||||
<br>
|
||||
Index = Index + 1<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<br>
|
||||
Folder.<b>AddFiles</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), Files, <span style="color:blue;">Me</span>)<br>
|
||||
<br>
|
||||
<br>
|
||||
<span style="color:green;">' Check in the files</span><br>
|
||||
<span style="color:blue;">Dim</span> arrFiles(3) <span style="color:blue;">As</span> IEdmFile13<br>
|
||||
Index = 0<br>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> FileName <span style="color:blue;">In</span> FileNames<br>
|
||||
aFile = vault2.<b>GetFileFromPath</b>(Folder.<b>LocalPath</b> + <span style="color:#a31515;">"\"</span> + FileName)<br>
|
||||
<span style="color:green;">'MessageBox.Show("User can rename " + aFile.<b>Name</b> + " in this folder? " + Folder.<b>HasRenameRights</b>(Me.Handle.ToInt32(), aFile.<b>ID</b>, FileName, "new",
|
||||
True).ToString())</span><br>
|
||||
<span style="color:green;">'MessageBox.Show(aFile.<b>Name</b> + " is in a private state? " + aFile.<b>PrivateStateFile</b>.ToString())</span></p>
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color:blue;"> Dim</span> ID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>
|
||||
<span style="color:blue;"> Dim</span> fName <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;"> Dim</span> vaultName <span style="color:blue;">As</span> <span style="color:blue;">String</span>
|
||||
<span style="color:blue;"> Dim</span> vaultObject <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span>
|
||||
ID = aFile.<b>ID</b>
|
||||
fName = aFile.<b>Name</b>
|
||||
vaultObject = aFile.<b>Vault</b>
|
||||
vaultName = vaultObject.<b>Name</b>
|
||||
<span style="color:#2b91af;"> MessageBox</span>.Show(<span style="color:#a31515;">"Database ID: "</span> + ID.ToString() + <span style="color:#a31515;">"; Vault name: "</span> + vaultName + <span style="color:#a31515;">"; File name: "</span> + fName)</pre>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<br>
|
||||
aFile.<b>UnlockFile</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#a31515;">""</span>)<br>
|
||||
arrFiles(Index) = aFile<br>
|
||||
<br>
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:blue;">
|
||||
Dim</span> thumb <span style="color:blue;">As</span> <span style="color:blue;">Object</span><br>
|
||||
thumb = aFile.<b>GetThumbnail</b></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<br>
|
||||
<br>
|
||||
Index = Index + 1<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<br>
|
||||
<span style="color:green;">' Create \temp\files path in the root folder</span><br>
|
||||
Folder.<b>CreateFolderPath</b>(<span style="color:#a31515;">"\temp\files"</span>, <span style="color:blue;">Me</span>.Handle.ToInt32())<br>
|
||||
<br>
|
||||
<span style="color:green;">' Move one of the files to the \temp\files subfolder</span><br>
|
||||
<span style="color:blue;">Dim</span> dest <span style="color:blue;">As</span> IEdmFolder5<br>
|
||||
dest = vault2.<b>GetFolderFromPath</b>(Folder.<b>LocalPath</b> + <span style="color:#a31515;">"\temp\files"</span>)<br>
|
||||
aFile = arrFiles(0)<br>
|
||||
aFile.<b>Move</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), Folder.<b>ID</b>, dest.<b>ID</b>, 0)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Copy one of the files to the temp subfolder</span><br>
|
||||
aFile = <b>arrFiles</b>(1)<br>
|
||||
aFile.<b>GetFileCopy</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#a31515;">""</span>, Folder.<b>LocalPath</b> + <span style="color:#a31515;">"\temp\"</span>)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Change the state of one of the files to Waiting for Approval</span><br>
|
||||
aFile = arrFiles(2)<br>
|
||||
aFile.<b>ChangeState3</b>(<span style="color:#a31515;">"Waiting for Approval"</span>, <font color="#A31515">"Submit
|
||||
for Approval"</font>, Folder.<b>ID</b>, <span style="color:#a31515;">"The file is waiting for approval."</span>, <span style="color:blue;">Me</span>.Handle.ToInt32(), EdmStateFlags.EdmState_Simple, <span style="color:#a31515;">"<i>password</i>"</span>)<br>
|
||||
<br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.COMException<br>
|
||||
MessageBox.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> Exception<br>
|
||||
MessageBox.Show(ex.Message)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Function</span> IEdmCallback6_MsgBox(<span style="color:blue;">ByVal</span> lParentWnd <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>, <span style="color:blue;">ByVal</span> lMsgID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>, <span style="color:blue;">ByVal</span> bsMsg <span style="color:blue;">As</span> <span style="color:blue;">String</span>, <span style="color:blue;">Optional</span> <span style="color:blue;">ByVal</span> eType <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmMBoxType</span> = 0&) <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmMBoxResult</span> <span style="color:blue;">Implements</span> <span style="color:#2b91af;">IEdmCallback6</span>.<b>MsgBox</b><br>
|
||||
<br>
|
||||
MsgBox(bsMsg)<br>
|
||||
IEdmCallback6_MsgBox = <span style="color:#2b91af;">EdmMBoxResult</span>.EdmMbr_OK<br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Function</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> IEdmCallback6_Resolve(<span style="color:blue;">ByVal</span> lParentWnd <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>, <span style="color:blue;">ByRef</span> ppoItems() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmCmdData</span>) <span style="color:blue;">Implements</span> <span style="color:#2b91af;">IEdmCallback6</span>.<b>Resolve</b><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Function</span> IEdmCallback6_SetProgress(<span style="color:blue;">ByVal</span> lBarIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>, <span style="color:blue;">ByVal</span> lPos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>, <span style="color:blue;">ByVal</span> bsMsg <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span> <span style="color:blue;">Implements</span> <span style="color:#2b91af;">IEdmCallback6</span>.<b>SetProgress</b><br>
|
||||
<br>
|
||||
IEdmCallback6_SetProgress = <span style="color:blue;">True</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Function</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> IEdmCallback6_SetProgressRange(<span style="color:blue;">ByVal</span> lBarIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>, <span style="color:blue;">ByVal</span> lMax <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>) <span style="color:blue;">Implements</span> <span style="color:#2b91af;">IEdmCallback6</span>.<b>SetProgressRange</b><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> IEdmCallback6_SetStatusMessage(<span style="color:blue;">ByVal</span> lBarIndex <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>, <span style="color:blue;">ByVal</span> bsMessage <span style="color:blue;">As</span> <span style="color:blue;">String</span>) <span style="color:blue;">Implements</span> <span style="color:#2b91af;">IEdmCallback6</span>.<b>SetStatusMessage</b><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE" align="center">
|
||||
<a href="#top">Back to top</a> </p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: #008000; background: white" class="APICODE">
|
||||
<a name="form1designer"></a><font face="Courier New">'Form1.Designer.vb</font></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<<span style="color:blue;">Global</span>.Microsoft.VisualBasic.CompilerServices.<span style="color:#2b91af;">DesignerGenerated</span>()> _<br>
|
||||
<span style="color:blue;">Partial</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">Form1</span><br>
|
||||
<span style="color:blue;">Inherits</span> System.Windows.Forms.<span style="color:#2b91af;">Form</span><br>
|
||||
<span style="color:green;">''' <summary></span><br>
|
||||
<span style="color:green;">''' Required designer variable.</span><br>
|
||||
<span style="color:green;">''' </summary></span><br>
|
||||
<span style="color:blue;">Private</span> components <span style="color:blue;">As</span> System.ComponentModel.<span style="color:#2b91af;">IContainer</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<br>
|
||||
<span style="color:green;">''' <summary></span><br>
|
||||
<span style="color:green;">''' Clean up any resources being used.</span><br>
|
||||
<span style="color:green;">''' </summary></span><br>
|
||||
<span style="color:green;">''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param></span><br>
|
||||
<span style="color:blue;">Protected</span> <span style="color:blue;">Overrides</span> <span style="color:blue;">Sub</span> Dispose(<span style="color:blue;">ByVal</span> disposing <span style="color:blue;">As</span> <span style="color:blue;">Boolean</span>)<br>
|
||||
<span style="color:blue;">If</span> disposing <span style="color:blue;">AndAlso</span> (components <span style="color:blue;">IsNot</span> <span style="color:blue;">Nothing</span>) <span style="color:blue;">Then</span><br>
|
||||
components.Dispose()<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<span style="color:blue;">MyBase</span>.Dispose(disposing)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">#Region</span> <span style="color:#a31515;">"Windows Form Designer generated code"</span><br>
|
||||
<br>
|
||||
<span style="color:green;">''' <summary></span><br>
|
||||
<span style="color:green;">''' Required method for Designer support - do not modify</span><br>
|
||||
<span style="color:green;">''' the contents of this method with the code editor.</span><br>
|
||||
<span style="color:green;">''' </summary></span><br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> InitializeComponent()<br>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()<br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span>()<br>
|
||||
<span style="color:blue;">Me</span>.BrowseButton = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
||||
<span style="color:blue;">Me</span>.ListBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>()<br>
|
||||
<span style="color:blue;">Me</span>.AddFiles = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
||||
<span style="color:blue;">Me</span>.OpenFileDialog = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span>()<br>
|
||||
<span style="color:blue;">Me</span>.SuspendLayout()<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'VaultsLabel</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.AutoSize = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(13, 26)<br>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Name = <span style="color:#a31515;">"VaultsLabel"</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(94, 13)<br>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.TabIndex = 0<br>
|
||||
<span style="color:blue;">Me</span>.VaultsLabel.Text = <span style="color:#a31515;">" Select vault view:"</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'VaultsComboBox</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.FormattingEnabled = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 42)<br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Name = <span style="color:#a31515;">"VaultsComboBox"</span><br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(121, 21)<br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.TabIndex = 1<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'BrowseButton</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 85)<br>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Name = <span style="color:#a31515;">"BrowseButton"</span><br>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(98, 23)<br>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.TabIndex = 3<br>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.Text = <span style="color:#a31515;">"Browse..."</span><br>
|
||||
<span style="color:blue;">Me</span>.BrowseButton.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'ListBox</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.ListBox.FormattingEnabled = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.ListBox.HorizontalScrollbar = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.ListBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 114)<br>
|
||||
<span style="color:blue;">Me</span>.ListBox.Name = <span style="color:#a31515;">"ListBox"</span><br>
|
||||
<span style="color:blue;">Me</span>.ListBox.SelectionMode = System.Windows.Forms.<span style="color:#2b91af;">SelectionMode</span>.MultiExtended<br>
|
||||
<span style="color:blue;">Me</span>.ListBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(259, 43)<br>
|
||||
<span style="color:blue;">Me</span>.ListBox.TabIndex = 4<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'AddFiles</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.AddFiles.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(84, 178)<br>
|
||||
<span style="color:blue;">Me</span>.AddFiles.Name = <span style="color:#a31515;">"AddFiles"</span><br>
|
||||
<span style="color:blue;">Me</span>.AddFiles.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(98, 23)<br>
|
||||
<span style="color:blue;">Me</span>.AddFiles.TabIndex = 5<br>
|
||||
<span style="color:blue;">Me</span>.AddFiles.Text = <span style="color:#a31515;">"Add files"</span><br>
|
||||
<span style="color:blue;">Me</span>.AddFiles.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'OpenFileDialog</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.OpenFileDialog.Multiselect = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.OpenFileDialog.Title = <span style="color:#a31515;">"Open"</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Form1</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.AutoScaleDimensions = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">SizeF</span>(6.0!, 13.0!)<br>
|
||||
<span style="color:blue;">Me</span>.AutoScaleMode = System.Windows.Forms.<span style="color:#2b91af;">AutoScaleMode</span>.Font<br>
|
||||
<span style="color:blue;">Me</span>.ClientSize = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(317, 215)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.AddFiles)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.ListBox)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.BrowseButton)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.VaultsComboBox)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.VaultsLabel)<br>
|
||||
<span style="color:blue;">Me</span>.Name = <span style="color:#a31515;">"Form1"</span><br>
|
||||
<span style="color:blue;">Me</span>.Text = <span style="color:#a31515;">"Add files to vault"</span><br>
|
||||
<span style="color:blue;">Me</span>.ResumeLayout(<span style="color:blue;">False</span>)<br>
|
||||
<span style="color:blue;">Me</span>.PerformLayout()<br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">#End</span> <span style="color:blue;">Region</span><br>
|
||||
<br>
|
||||
<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><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> VaultsComboBox <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> BrowseButton <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> ListBox <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> AddFiles <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> OpenFileDialog <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
</p>
|
||||
</font>
|
||||
<p align="center"><a href="#top">Back to top</a></p>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
Reference in New Issue
Block a user