349 lines
49 KiB
HTML
349 lines
49 KiB
HTML
<html>
|
|
|
|
<head>
|
|
<title>Add File 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 File Example (VB.NET)</h1>
|
|
<p>This example shows how to add a file outside the vault
|
|
to the vault root.</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="AddFile.gif" width="333" height="253"></p>
|
|
|
|
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color: green">'----------------------------------------------------------------------------</span>
|
|
<span style="color: green">' Preconditions:</span>
|
|
<span style="color: green">' 1. Start Microsoft Visual Studio.</span>
|
|
<span style="color: green">' a. Click <b>File > New > Project > Visual Basic > Windows Forms Application</b>.</span>
|
|
<span style="color: green">' b. Type <b>AddFiles</b> in <b>Name</b>.</span>
|
|
<span style="color: green">' c. Click <b>Browse </b>and navigate to the folder where to create </span><b>
|
|
</b><span style="color: green"><b>' </b>the project.</span>
|
|
<span style="color: green">' d. Click <b>OK</b>. </span>
|
|
<span style="color: green">' e. Click <b>Show All Files</b> in the Solution Explorer toolbar and expand </span>
|
|
<span style="color: green">' <b>Form1.vb</b> in the Solution Explorer.</span>
|
|
<span style="color: green">' f. Replace the code in <b>Form1.vb</b> with <a href="#Form1">this code</a>.</span>
|
|
<span style="color: green">' g. To create the form, replace the code in <b>Form1.Designer.vb</b> with <a href="#Form1Designer">this code</a>.</span>
|
|
<span style="color: green">' 2. Add <b>EPDM.Interop.epdm.dll</b> as a reference (right-click the project</span>
|
|
<span style="color: green">' name in the Solution Explorer, click <b>Add Reference</b>, click </span>
|
|
<span style="color: green">' <b>Assemblies > Framework</b> in the left-side panel, browse to the top folder of </span>
|
|
<span style="color: green">' your SOLIDWORKS PDM Professional installation, locate and click </span>
|
|
<span style="color: green">' <b>EPDM.Interop.epdm.dll</b>, click <b>Open</b>, and click <b>Add</b>).</span>
|
|
<span style="color: green">' 3. Add <b>EPDM.Interop.EPDMResultCode.dll</b> as a reference (click <b>Browse</b>, locate and </span>
|
|
<span style="color: green">' click <b>EPDM.Interop.EPDMResultCode.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 References, click <b>Properties</b>, and set </span>
|
|
<span style="color: green">' <b>Embed Interop Types</b> to <b>False</b> to handle methods that pass arrays of </span>
|
|
<span style="color: green">' structures.
|
|
' 5. Run the Administration tool, log in as admin, expand the vault, </span>
|
|
<span style="color: green">' right-click <b>File Types</b>, click <b>Duplicate file name settings</b>, and </span>
|
|
<span style="color: green">' click <b>Do not allow duplicate</b> <b>files names in this file vault</b>.
|
|
' 6 Ensure that at least one file exists in a subfolder in the vault and
|
|
' the same-named file exists outside the vault.
|
|
' 7. Click <b>Debug > Start Debugging</b> or press F5.</span>
|
|
<span style="color: green">'</span>
|
|
<span style="color: green">' Postconditions: </span>
|
|
<span style="color: green">' 1. Displays the Add file to vault root dialog box.</span>
|
|
<span style="color: green">' a. Select a vault view.</span>
|
|
<span style="color: green">' b. Click <b>Browse to a file outside the vault</b>. </span>
|
|
<span style="color: green">' 1. Locate a file outside the vault that exists in </span>
|
|
<span style="color: green">' a subfolder in the vault.</span>
|
|
<span style="color: green">' 2. Click <b>Open</b>.</span>
|
|
<span style="color: green">' c. Click <b>Add file to vault</b> <b>root</b> to add the selected file to the </span>
|
|
<span style="color: green">' root folder of the vault.</span>
|
|
<span style="color: green">' d. Displays a message box warning you that the selected file is not </span>
|
|
<span style="color: green">' unique in the vault, but that the file will be added to the vault root.
|
|
' e. Click <b>OK</b>.</span>
|
|
<span style="color: green">' 2. Close the Add file to vault root<b> </b>dialog box. </span>
|
|
<span style="color: green">' 3. Examine the vault root.</span>
|
|
<span style="color: green">'----------------------------------------------------------------------------</span></pre>
|
|
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color: #008000"><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> System.Collections
|
|
<span style="color: blue">Imports</span> System.Collections.Generic
|
|
<span style="color: blue">Imports</span> System.Data
|
|
<span style="color: blue">Imports</span> System.Diagnostics
|
|
<span style="color: blue">Imports</span> System.Windows.Forms
|
|
<span style="color: blue">Imports</span> System.ComponentModel
|
|
<span style="color: blue">Imports</span> EPDM.Interop.epdm
|
|
<span style="color: blue">Imports</span> EPDM.Interop.EPDMResultCode
|
|
|
|
|
|
<span style="color: blue">Public</span> <span style="color: blue">Class</span> <span style="color: #2b91af">Form1</span>
|
|
<span style="color: blue">Implements</span> <span style="color: #2b91af">IEdmCallback6</span>
|
|
|
|
<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>
|
|
|
|
<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
|
|
|
|
<span style="color: blue">Try</span>
|
|
<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>()
|
|
<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>)
|
|
<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 = <span style="color: blue">DirectCast</span>(VaultsComboBox.Items(0), <span style="color: blue">String</span>)
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
<span style="color: blue">Catch</span> ex <span style="color: blue">As</span> System.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>) + <span style="color: #a31515">" "</span> + 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">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
|
|
<span style="color: blue">Try</span>
|
|
ListBox.Items.Clear()
|
|
|
|
<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>
|
|
vault1 = <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: blue">If</span> <span style="color: blue">Not</span> vault1.<b>IsLoggedIn</b> <span style="color: blue">Then</span>
|
|
<span style="color: green">'Log into selected vault as the current user</span>
|
|
vault1.<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">'Set the initial directory in the Open dialog</span>
|
|
OpenFileDialog.InitialDirectory = vault1.<b>RootFolderPath</b>
|
|
<span style="color: green">'Show the Open dialog</span>
|
|
<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>
|
|
DialogResult = OpenFileDialog.ShowDialog()
|
|
<span style="color: green">'If the user didn't click Open, exit</span>
|
|
<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>
|
|
<span style="color: blue">Return</span>
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<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
|
|
ListBox.Items.Add(FileName)
|
|
<span style="color: blue">Next</span>
|
|
<span style="color: blue">Catch</span> ex <span style="color: blue">As</span> System.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>) + <span style="color: #a31515">" "</span> + 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">Public</span> <span style="color: blue">Sub</span> AddFiles_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> AddFiles.Click
|
|
<span style="color: blue">Try</span>
|
|
|
|
<span style="color: blue">Dim</span> vault2 <span style="color: blue">As</span> <span style="color: #2b91af">IEdmVault7</span> = <span style="color: blue">Nothing</span>
|
|
<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>
|
|
vault1 = <span style="color: blue">New</span> <span style="color: #2b91af">EdmVault5</span>()
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
vault2 = <span style="color: blue">DirectCast</span>(vault1, <span style="color: #2b91af">IEdmVault7</span>)
|
|
<span style="color: blue">If</span> <span style="color: blue">Not</span> vault1.<b>IsLoggedIn</b> <span style="color: blue">Then</span>
|
|
<span style="color: green">'Log into selected vault as the current user</span>
|
|
vault1.<b>LoginAuto</b>(VaultsComboBox.Text, <span style="color: blue">Me</span>.Handle.ToInt32())
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<span style="color: blue">If</span> <span style="color: blue">Not</span> ListBox.Items.Count = 1 <span style="color: blue">Then</span>
|
|
<span style="color: #2b91af">MessageBox</span>.Show(<span style="color: #a31515">"</span><span style="color:#a31515;">Please browse to a file outside the vault.</span><span style="color: #a31515">"</span>)
|
|
<span style="color: blue">Exit Sub</span>
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<span style="color: green">'Add file to the root folder of the vault</span>
|
|
<span style="color: blue">Dim</span> Folder1 <span style="color: blue">As</span> <span style="color: #2b91af">IEdmFolder5</span> = <span style="color: blue">Nothing</span>
|
|
<span style="color: blue">Dim</span> Folder <span style="color: blue">As</span> <span style="color: #2b91af">IEdmFolder8</span> = <span style="color: blue">DirectCast</span>(Folder1, <span style="color: #2b91af">IEdmFolder5</span>)
|
|
|
|
Folder = vault2.RootFolder
|
|
|
|
<span style="color: blue">Dim</span> Files() <span style="color: blue">As</span> <span style="color: #2b91af">EdmAddFileInfo</span>
|
|
<span style="color: blue">ReDim</span> Files(ListBox.Items.Count - 1)
|
|
|
|
<span style="color: blue">Dim</span> FileNames(0) <span style="color: blue">As</span> <span style="color: blue">String</span>
|
|
<span style="color: blue">Dim</span> Index <span style="color: blue">As</span> <span style="color: blue">Integer</span> = 0
|
|
<span style="color: blue">Dim</span> fileStr = <span style="color: #a31515">""</span>
|
|
<span style="color: blue">For</span> <span style="color: blue">Each</span> FileName <span style="color: blue">In</span> ListBox.Items
|
|
fileStr = FileName.ToString()
|
|
FileNames(Index) = fileStr.Substring(fileStr.LastIndexOf(<span style="color: #a31515">"\"</span>))
|
|
Index = Index + 1
|
|
<span style="color: blue">Next</span>
|
|
|
|
<span style="color: blue">Dim</span> Path <span style="color: blue">As</span> <span style="color: blue">String</span>
|
|
<span style="color: blue">Dim</span> addFileStatus <span style="color: blue">As</span> <span style="color: blue">Integer</span>
|
|
Index = 0
|
|
<span style="color: blue">For</span> <span style="color: blue">Each</span> FileName <span style="color: blue">In</span> ListBox.Items
|
|
Path = FileName
|
|
Files(Index).<b>mbsPath</b> = Path
|
|
Files(Index).<b>mlEdmAddFlags</b> = <span style="color: #2b91af">EdmAddFlag</span>.EdmAdd_Simple
|
|
Files(Index).<b>mlFileID</b> = 0
|
|
Files(Index).<b>mlSrcDocumentID</b> = 0
|
|
Files(Index).<b>mlSrcProjectID</b> = 0
|
|
Files(Index).<b>mbsNewName</b> = <span style="color: #a31515">""</span>
|
|
Folder.<b>AddFile2</b>(<span style="color: blue">Me</span>.Handle.ToInt32(), Files(Index).<b>mbsPath</b>, addFileStatus, <span style="color: #a31515">""</span>, Files(Index).<b>mlEdmAddFlags</b>)
|
|
<span style="color: blue">Select</span> <span style="color: blue">Case</span> addFileStatus
|
|
<span style="color: blue">Case</span> <span style="color: #2b91af">EdmResultSuccessCodes_e</span>.S_EDM_FILES_NOT_UNIQUE_GLOBALLY
|
|
<span style="color: #2b91af">MessageBox</span>.Show(<span style="color: #a31515">"WARNING: File is not unique in the vault, but the file will be added to the vault root."</span>)
|
|
<span style="color: blue">Case Else</span>
|
|
<span style="color: #2b91af">MessageBox</span>.Show(<span style="color: #a31515">"SUCCESS: File will be added to the vault root."</span>)
|
|
<span style="color: blue">End</span> <span style="color: blue">Select</span>
|
|
Index = Index + 1
|
|
<span style="color: blue">Next</span>
|
|
|
|
<span style="color: blue">Catch</span> ex <span style="color: blue">As</span> System.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>) + <span style="color: #a31515">" "</span> + 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">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>
|
|
|
|
MsgBox(bsMsg)
|
|
IEdmCallback6_MsgBox = <span style="color: #2b91af">EdmMBoxResult</span>.EdmMbr_OK
|
|
|
|
<span style="color: blue">End</span> <span style="color: blue">Function</span>
|
|
|
|
<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>
|
|
|
|
<span style="color: blue">End</span> <span style="color: blue">Sub</span>
|
|
|
|
<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>
|
|
|
|
IEdmCallback6_SetProgress = <span style="color: blue">True</span>
|
|
|
|
<span style="color: blue">End</span> <span style="color: blue">Function</span>
|
|
|
|
<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>
|
|
|
|
<span style="color: blue">End</span> <span style="color: blue">Sub</span>
|
|
|
|
<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>
|
|
|
|
<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>
|
|
<pre style="font-family: Courier New; font-size: 13; color: #008000; background: white"><a name="Form1Designer"></a>'Form1.Designer.vb</pre>
|
|
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><<span style="color:blue;">Global</span>.Microsoft.VisualBasic.CompilerServices.<span style="color:#2b91af;">DesignerGenerated</span>()> _
|
|
<span style="color:blue;">Partial</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">Form1</span>
|
|
<span style="color:blue;">Inherits</span> System.Windows.Forms.<span style="color:#2b91af;">Form</span>
|
|
<span style="color:green;">''' <summary></span>
|
|
<span style="color:green;">''' Required designer variable.</span>
|
|
<span style="color:green;">''' </summary></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:blue;">Nothing</span>
|
|
|
|
<span style="color:green;">''' <summary></span>
|
|
<span style="color:green;">''' Clean up any resources being used.</span>
|
|
<span style="color:green;">''' </summary></span>
|
|
<span style="color:green;">''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param></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;">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;">MyBase</span>.Dispose(disposing)
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span>
|
|
|
|
<span style="color:blue;">#Region</span> <span style="color:#a31515;">"Windows Form Designer generated code"</span>
|
|
|
|
<span style="color:green;">''' <summary></span>
|
|
<span style="color:green;">''' Required method for Designer support - do not modify</span>
|
|
<span style="color:green;">''' the contents of this method with the code editor.</span>
|
|
<span style="color:green;">''' </summary></span>
|
|
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> InitializeComponent()
|
|
<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>.VaultsComboBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ComboBox</span>()
|
|
<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>.ListBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>()
|
|
<span style="color:blue;">Me</span>.AddFiles = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()
|
|
<span style="color:blue;">Me</span>.OpenFileDialog = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span>()
|
|
<span style="color:blue;">Me</span>.SuspendLayout()
|
|
<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>(13, 26)
|
|
<span style="color:blue;">Me</span>.VaultsLabel.Name = <span style="color:#a31515;">"VaultsLabel"</span>
|
|
<span style="color:blue;">Me</span>.VaultsLabel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(94, 13)
|
|
<span style="color:blue;">Me</span>.VaultsLabel.TabIndex = 0
|
|
<span style="color:blue;">Me</span>.VaultsLabel.Text = <span style="color:#a31515;">" Select vault view:"</span>
|
|
<span style="color:blue;">Me</span>.VaultsLabel.TextAlign = System.Drawing.<span style="color:#2b91af;">ContentAlignment</span>.MiddleLeft
|
|
<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>(16, 42)
|
|
<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>(121, 21)
|
|
<span style="color:blue;">Me</span>.VaultsComboBox.TabIndex = 1
|
|
<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>(16, 69)
|
|
<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>(259, 39)
|
|
<span style="color:blue;">Me</span>.BrowseButton.TabIndex = 3
|
|
<span style="color:blue;">Me</span>.BrowseButton.Text = <span style="color:#a31515;">"Browse to a file outside the vault:"</span>
|
|
<span style="color:blue;">Me</span>.BrowseButton.TextAlign = System.Drawing.<span style="color:#2b91af;">ContentAlignment</span>.MiddleLeft
|
|
<span style="color:blue;">Me</span>.BrowseButton.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'ListBox</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.ListBox.FormattingEnabled = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.ListBox.HorizontalScrollbar = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.ListBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 114)
|
|
<span style="color:blue;">Me</span>.ListBox.Name = <span style="color:#a31515;">"ListBox"</span>
|
|
<span style="color:blue;">Me</span>.ListBox.SelectionMode = System.Windows.Forms.<span style="color:#2b91af;">SelectionMode</span>.MultiExtended
|
|
<span style="color:blue;">Me</span>.ListBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(259, 43)
|
|
<span style="color:blue;">Me</span>.ListBox.TabIndex = 4
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'AddFiles</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.AddFiles.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 180)
|
|
<span style="color:blue;">Me</span>.AddFiles.Name = <span style="color:#a31515;">"AddFiles"</span>
|
|
<span style="color:blue;">Me</span>.AddFiles.RightToLeft = System.Windows.Forms.<span style="color:#2b91af;">RightToLeft</span>.No
|
|
<span style="color:blue;">Me</span>.AddFiles.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(121, 23)
|
|
<span style="color:blue;">Me</span>.AddFiles.TabIndex = 5
|
|
<span style="color:blue;">Me</span>.AddFiles.Text = <span style="color:#a31515;">"Add file to vault root"</span>
|
|
<span style="color:blue;">Me</span>.AddFiles.TextAlign = System.Drawing.<span style="color:#2b91af;">ContentAlignment</span>.MiddleLeft
|
|
<span style="color:blue;">Me</span>.AddFiles.UseVisualStyleBackColor = <span style="color:blue;">True</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'OpenFileDialog</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:blue;">Me</span>.OpenFileDialog.Multiselect = <span style="color:blue;">True</span>
|
|
<span style="color:blue;">Me</span>.OpenFileDialog.Title = <span style="color:#a31515;">"Open"</span>
|
|
<span style="color:green;">'</span>
|
|
<span style="color:green;">'Form1</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>(317, 215)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.AddFiles)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.ListBox)
|
|
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.BrowseButton)
|
|
<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>.Name = <span style="color:#a31515;">"Form1"</span>
|
|
<span style="color:blue;">Me</span>.Text = <span style="color:#a31515;">"Add file to vault root"</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;">#End</span> <span style="color:blue;">Region</span>
|
|
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> VaultsLabel <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> 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> 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> ListBox <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>
|
|
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> AddFiles <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> OpenFileDialog <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span>
|
|
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></pre>
|
|
|
|
</body>
|
|
|
|
</html>
|