337 lines
44 KiB
HTML
337 lines
44 KiB
HTML
<html>
|
|
|
|
<head>
|
|
<title>Roll Back Revisions 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,revisions">
|
|
<meta name=MS-HKWD content="VB.NET examples,versions">
|
|
<meta name=MS-HKWD content="VB.NET examples,rollback">
|
|
<body>
|
|
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
|
<h1>Roll Back Revisions Example (VB.NET)</h1>
|
|
<p><a name="Top"></a>This example shows how to roll back a checked-in file to
|
|
its first revision in the current version.</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="Revision.gif" width="327" height="233"></p>
|
|
|
|
</font>
|
|
<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>RevisionVBNET</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 </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 </span>
|
|
<span style="color: green">' <a href="#Designer">this code</a>.</span>
|
|
<span style="color: green">' 2. Add <b>EPDM.Interop.epdm.dll</b> as a reference (right-click the project</span>
|
|
<span style="color: green">' name in the Solution Explorer, click <b>Add > Reference</b>, click </span>
|
|
<span style="color: green">' <b>Assemblies > Framework</b> in the left-side panel, browse to the top folder of </span>
|
|
<span style="color: green">' your SOLIDWORKS PDM Professional installation, locate and click </span>
|
|
<span style="color: green">' <b>EPDM.Interop.epdm.dll ></b> <b>Add</b> > <b>OK</b>).</span>
|
|
<span style="color: green">' 3. Right-click <b>EPDM.Interop.epdm</b> in References, click <b>Properties</b>, and set </span>
|
|
<span style="color: green">' <b>Embed Interop Types</b> to <b>False</b> to handle methods that pass arrays of </span>
|
|
<span style="color: green">' structures.</span>
|
|
<span style="color: green">' 4. To find a file with a revision scheme:</span>
|
|
<span style="color: green">' a. Open a vault view in File Explorer.</span>
|
|
<span style="color: green">' b. Click a checked-in file.</span>
|
|
<span style="color: green">' c. Click <b>Display > History</b>.</span>
|
|
<span style="color: green;">' d. Examine the Event column. If <b>Revision</b> is:</span>
|
|
<span style="color: green;">' * listed in the Event column, then the file </span>
|
|
<span style="color: green;">' has a revision scheme. Scroll down and examine the
|
|
' Event and Version columns to verify that at least three
|
|
' revisions exist for the current version of the file.</span><span style="color: green"> </span>
|
|
<span style="color: green">' * not listed in the Event column, then</span>
|
|
<span style="color: green">' repeat steps 4b - 4d until you find a file with </span>
|
|
<span style="color: green">' a revision scheme. </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 the Get revision names dialog box.</span>
|
|
<span style="color: green">' 2. Select a vault view.</span>
|
|
<span style="color: green">' 3. Click <b>Browse</b>.</span>
|
|
<span style="color: green">' 4. Displays the Select a file dialog box.</span>
|
|
<span style="color: green">' a. Click the file identified in Preconditions step 4 in the
|
|
' selected vault.</span>
|
|
<span style="color: green">' b. Click <b>Open</b> to display the selected file's path and file
|
|
' name in the Get revision names dialog box.</span>
|
|
<span style="color: green">' 5. Click <b>Get revisions</b>.</span><span style="color: green;">
|
|
' 6. Displays a message box listing the names of the revisions
|
|
' for the selected file. Click <b>OK</b> to close the message box.
|
|
' 7. Displays a message box showing the revision to which the file
|
|
' was rolled back and the current version. Click <b>OK</b> to close the
|
|
' message box.</span>
|
|
<span style="color: green;">' 8. Close the Get revision names dialog box.
|
|
' 9. Click the file in the vault in File Explorer for which revisions
|
|
' were rolled back.</span>
|
|
<span style="color: green;">' a. Click <b>Display > History</b>.</span>
|
|
<span style="color: green;">' b. Scroll down and examine the Event, Version, and Comment columns.
|
|
</span><span style="color: green">'----------------------------------------------------------------------------</span>
|
|
<span style="color: green"><a name="Form1"></a>'Form1.vb</span>
|
|
<span style="color: blue">Imports</span> EPDM.Interop.epdm
|
|
|
|
<span style="color: blue">Public</span> <span style="color: blue">Class</span> <span style="color: #2b91af">Form1</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">Dim</span> aFile <span style="color: blue">As</span> <span style="color: #2b91af">IEdmFile5</span>
|
|
<span style="color: blue">Dim</span> folder <span style="color: blue">As</span> <span style="color: #2b91af">IEdmFolder5</span>
|
|
|
|
<span style="color: blue">Private</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> vault <span style="color: blue">As</span> <span style="color: #2b91af">IEdmVault8</span> = <span style="color: blue">New</span> <span style="color: #2b91af">EdmVault5</span>
|
|
<span style="color: blue">Dim</span> Views() <span style="color: blue">As</span> <span style="color: #2b91af">EdmViewInfo</span> = <span style="color: blue">Nothing</span>
|
|
|
|
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">Public</span> <span style="color: blue">Sub</span> RevisionButton_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> RevisionButton.Click
|
|
<span style="color: blue">Try</span>
|
|
<span style="color: green">'Only create a new vault object</span>
|
|
<span style="color: green">'if one hasn't been created yet</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>
|
|
|
|
<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">'Get the local version number</span>
|
|
<span style="color: blue">Dim</span> version <span style="color: blue">As</span> <span style="color: blue">Integer</span>
|
|
version = aFile.<b>GetLocalVersionNo</b>(folder.ID)
|
|
<span style="color: blue">If</span> version < 1 <span style="color: blue">Then</span>
|
|
MsgBox(<span style="color: #a31515">"A local copy of "</span> + aFile.<b>Name</b> + <span style="color: #a31515">" does not exist."</span>)
|
|
<span style="color: blue">Exit Sub</span>
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
<span style="color: green">'Get the version interface</span>
|
|
<span style="color: blue">Dim</span> verEnum <span style="color: blue">As</span> <span style="color: #2b91af">IEdmEnumeratorVersion</span><span style="color: #2B91AF">7</span>
|
|
verEnum = aFile
|
|
<span style="color: blue">Dim</span> ver <span style="color: blue">As</span> <span style="color: #2b91af">IEdmVersion</span><span style="color: #2B91AF">8
|
|
</span> <span style="background-position: 0% 0%; background-color:#FFFFFF"> </span><span style="color: blue">Dim</span> rev <span style="color: blue">As</span> <span style="color: #2b91af">IEdmRevision</span><span style="color: #2B91AF">7
|
|
</span><font color="#0000FF">Dim </font>verNbr<font color="#0000FF"> As Integer</font><span style="color: #2B91AF">
|
|
</span>
|
|
ver = verEnum.<b>GetVersion</b>(version)
|
|
|
|
<span style="color: green">'Enumerate the revisions</span>
|
|
<span style="color: blue">Dim</span> message <span style="color: blue">As</span> <span style="color: blue">String</span>
|
|
<span style="color: blue">Dim</span> pos <span style="color: blue">As</span> <span style="color: #2b91af">IEdmPos5</span>
|
|
pos = ver.<b>GetFirstRevisionPosition</b>
|
|
<span style="color: blue">If</span> <span style="color: blue">Not</span> pos.<b>IsNull</b> <span style="color: blue">Then</span>
|
|
|
|
message = <span style="color: #a31515">"The following revisions are set on "</span> + aFile.<b>Name</b> + <span style="color: #a31515">": "</span> + vbLf
|
|
<span style="color: blue">While</span> <span style="color: blue">Not</span> pos.<b>IsNull</b>
|
|
rev = ver.<b>GetNextRevision</b>(pos)
|
|
message = message + <span style="color: #a31515">" "</span> + rev.<b>Name</b> + vbLf
|
|
verNbr = rev.<b>VersionNo</b>
|
|
<span style="color: blue">End</span> <span style="color: blue">While</span>
|
|
<span style="color: blue">Else</span>
|
|
message = <span style="color: #a31515">"A revision scheme is not defined for "</span> + aFile.<b>Name</b> + <span style="color: #a31515">"."</span> + vbLf
|
|
MsgBox(message)
|
|
<span style="color: blue">Exit Sub</span>
|
|
<span style="color: blue">End</span> <span style="color: blue">If</span>
|
|
|
|
MsgBox(message)<span style="color:green;">
|
|
|
|
'Roll back to first revision
|
|
</span> pos = ver.<b>GetFirstRevisionPosition</b>()
|
|
rev = ver.<b>GetNextRevision</b>(pos)
|
|
ver = verEnum.<b>GetVersion</b>(version)
|
|
message = (<span style="color:#a31515;">"Roll back to revision "</span> + rev.<b>Name</b> + <span style="color:#a31515;">" of version "</span> + verNbr.ToString)
|
|
rev.<b>Rollback3</b>(message, <span style="color:blue;">True</span>)
|
|
MsgBox(message)
|
|
|
|
<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>
|
|
<span style="color: green">'If one hasn't been created yet</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>
|
|
|
|
<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 Select a file dialog</span>
|
|
OpenFileDialog1.InitialDirectory = vault1.<b>RootFolderPath</b>
|
|
<span style="color: green">'Show the Select a file 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 = OpenFileDialog1.ShowDialog()
|
|
|
|
<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: green">'Do nothing</span>
|
|
<span style="color: blue">Else</span>
|
|
<span style="color: green">'Browse for a local file whose revisions you want to see</span>
|
|
<span style="color: blue">Dim</span> fileName <span style="color: blue">As</span> <span style="color: blue">String</span> = OpenFileDialog1.FileName
|
|
FileListBox.Items.Add(fileName)
|
|
aFile = vault1.<b>GetFileFromPath</b>(fileName, folder)
|
|
|
|
<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">End</span> <span style="color: blue">Class</span></pre>
|
|
<div align="center">
|
|
<pre style="font-family: Calibri; font-size: 13; color: black; background: white"><a href="#Top">Back to top</a></pre>
|
|
</div>
|
|
<div align="left">
|
|
<pre style="font-family: Courier New; font-size: 13; color: #008000; background: white"><a name="Designer"></a>'Form1.Designer.vb</pre>
|
|
</div>
|
|
<div align="left">
|
|
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><<span style="color: blue">Global</span>.Microsoft.VisualBasic.CompilerServices.<span style="color: #2b91af">DesignerGenerated</span>()> _
|
|
<span style="color: blue">Partial</span> <span style="color: blue">Class</span> <span style="color: #2b91af">Form1</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>.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>.FileListBox = <span style="color: blue">New</span> System.Windows.Forms.<span style="color: #2b91af">ListBox</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>.RevisionButton = <span style="color: blue">New</span> System.Windows.Forms.<span style="color: #2b91af">Button</span>()
|
|
<span style="color: blue">Me</span>.OpenFileDialog1 = <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>(24, 27)
|
|
<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 = 0
|
|
<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">'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>(27, 44)
|
|
<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>(166, 21)
|
|
<span style="color: blue">Me</span>.VaultsComboBox.TabIndex = 1
|
|
<span style="color: green">'</span>
|
|
<span style="color: green">'OpenFileDialog1</span>
|
|
<span style="color: green">'</span>
|
|
<span style="color: blue">Me</span>.OpenFileDialog1.FileName = <span style="color: #a31515">"OpenFileDialog1"</span>
|
|
<span style="color: blue">Me</span>.OpenFileDialog1.Multiselect = <span style="color: blue">True</span>
|
|
<span style="color: blue">Me</span>.OpenFileDialog1.Title = <span style="color: #a31515">"Select a file"</span>
|
|
<span style="color: green">'</span>
|
|
<span style="color: green">'FileListBox</span>
|
|
<span style="color: green">'</span>
|
|
<span style="color: blue">Me</span>.FileListBox.FormattingEnabled = <span style="color: blue">True</span>
|
|
<span style="color: blue">Me</span>.FileListBox.Location = <span style="color: blue">New</span> System.Drawing.<span style="color: #2b91af">Point</span>(27, 95)
|
|
<span style="color: blue">Me</span>.FileListBox.Name = <span style="color: #a31515">"FileListBox"</span>
|
|
<span style="color: blue">Me</span>.FileListBox.Size = <span style="color: blue">New</span> System.Drawing.<span style="color: #2b91af">Size</span>(206, 17)
|
|
<span style="color: blue">Me</span>.FileListBox.TabIndex = 2
|
|
<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>(239, 89)
|
|
<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>(62, 23)
|
|
<span style="color: blue">Me</span>.BrowseButton.TabIndex = 3
|
|
<span style="color: blue">Me</span>.BrowseButton.Text = <span style="color: #a31515">"Browse..."</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">'RevisionButton</span>
|
|
<span style="color: green">'</span>
|
|
<span style="color: blue">Me</span>.RevisionButton.Location = <span style="color: blue">New</span> System.Drawing.<span style="color: #2b91af">Point</span>(27, 140)
|
|
<span style="color: blue">Me</span>.RevisionButton.Name = <span style="color: #a31515">"RevisionButton"</span>
|
|
<span style="color: blue">Me</span>.RevisionButton.Size = <span style="color: blue">New</span> System.Drawing.<span style="color: #2b91af">Size</span>(88, 23)
|
|
<span style="color: blue">Me</span>.RevisionButton.TabIndex = 4
|
|
<span style="color: blue">Me</span>.RevisionButton.Text = <span style="color: #a31515">"Get revisions"</span>
|
|
<span style="color: blue">Me</span>.RevisionButton.TextAlign = System.Drawing.<span style="color: #2b91af">ContentAlignment</span>.MiddleLeft
|
|
<span style="color: blue">Me</span>.RevisionButton.UseVisualStyleBackColor = <span style="color: blue">True</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>(311, 195)
|
|
<span style="color: blue">Me</span>.Controls.Add(<span style="color: blue">Me</span>.RevisionButton)
|
|
<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>.FileListBox)
|
|
<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">"Get revision names"</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> 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> FileListBox <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> 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> RevisionButton <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> OpenFileDialog1 <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>
|
|
</div>
|
|
<div align="center">
|
|
<pre style="font-family: Calibri; font-size: 13; color: black; background: white"><a href="#Top">Back to top</a></pre>
|
|
</div>
|
|
|
|
</body>
|
|
|
|
</html>
|