Initial Commit of the PDM project (ready for DWS migration)
This commit is contained in:
will
475
documentation/api_extracted/Load_Addin_Example_VBNET.htm
Normal file
475
documentation/api_extracted/Load_Addin_Example_VBNET.htm
Normal file
@@ -0,0 +1,475 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Install Add-in 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 add-ins, install">
|
||||
<meta name=MS-HKWD content="VB.NET add-ins, files">
|
||||
<meta name=MS-HKWD content="VB.NET add-ins, information">
|
||||
|
||||
|
||||
<body>
|
||||
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
||||
<h1>Install Add-in Example (VB.NET)</h1>
|
||||
<p><a name="top"></a>This example shows how to install an add-in, obtain
|
||||
information about it, and uninstall it.</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="LoadAddin.gif" width="333" height="352"></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>AddinMgr</b> in <b>Name</b>.</span><br>
|
||||
<span style="color:green;">' c. Click <b>Browse</b> and navigate to the folder where to create 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. Create a form similar to the form shown above and change:</span><br>
|
||||
<span style="color:green;">' 1. Top label to <b>VaultsLabel</b>.</span><br>
|
||||
<span style="color:green;">' 2. Combo box to <b>VaultsComboBox</b>.</span><br>
|
||||
<span style="color:green;">' 3. <b>Browse for
|
||||
add-in</b> button to <b>BrowseButton</b>.</span><br>
|
||||
<span style="color:green;">' 4. List box to <b>AddinListBox</b>.</span><br>
|
||||
<span style="color:green;">' 5. <b>Install add-in</b> button to <b>LoadAddin</b>.</span><br>
|
||||
<span style="color:green;">' g. Replace the code in <b>Form1.vb</b> with <a href="#form1">this code</a>.</span><br>
|
||||
<span style="color:green;">' h. Replace the code in <b>Form1.Designer.vb</b> with <a href="#form1designer">this code</a>.</span><br>
|
||||
<span style="color:green;">' 2. Add <b>EPDM.Interop.epdm.dll</b> as a reference (right-click the project</span><br>
|
||||
<span style="color:green;">' name in the Solution Explorer, click <b>Add Reference</b>, click </span><br>
|
||||
<span style="color:green;">' <b>Assemblies > Framework</b> in the left-side panel, browse to the top folder of </span><br>
|
||||
<span style="color:green;">' your SOLIDWORKS PDM Professional installation, locate and click </span><br>
|
||||
<span style="color:green;">' <b>EPDM.Interop.epdm.dll</b>, click <b>Open</b>, click <b>Add</b>, and click <b>Close</b>).</span><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.</span><br>
|
||||
<span style="color:green;">' 4. 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. The Install add-in dialog box displays.</span><br>
|
||||
<span style="color:green;">' a. Select a vault view.</span><br>
|
||||
<span style="color:green;">' b. Click <b>Browse for add-in</b>.</span><br>
|
||||
<span style="color:green;">' c. In the Browse for add-ins dialog:</span><br>
|
||||
<span style="color:green;">' 1. Navigate to your add-in directory
|
||||
and click <i>addin_name</i><b>.dll</b> <br>
|
||||
' and <b>EPDM.Interop.epdm.dll</b>.</span><br>
|
||||
<span style="color:green;">' 2. Click <b>Open</b>.</span><br>
|
||||
<span style="color:green;">' d. Click <b>Install add-in</b>.<br>
|
||||
' A message box containing information
|
||||
about each add-in installed in<br>
|
||||
' the selected vault displays.</span><br>
|
||||
<span style="color:green;">' e. Click <b>OK</b> to close each message box.<br>
|
||||
' f. Click <b>Remove add-in</b>.</span><br>
|
||||
<span style="color:green;">' 2. Close the Install add-in dialog box.</span><br>
|
||||
<span style="color:green;">
|
||||
'----------------------------------------------------------------------------</span><br>
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:green;"><a name="form1"></a>'Form1.vb</span><br>
|
||||
<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>
|
||||
<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<br>
|
||||
Dim </span>addinName<span style="color:blue;"> As String </span>
|
||||
= <font color="#A31515">""</font><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.mbsVaultName)<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>
|
||||
AddinListBox.Items.Clear()<br>
|
||||
<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>
|
||||
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 Browse
|
||||
for add-ins dialog</span><br>
|
||||
AddinOpenFileDialog.InitialDirectory = vault1.<b>RootFolderPath<br>
|
||||
</b><br>
|
||||
<span style="color:green;">'Show the Browse
|
||||
for add-ins 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 = AddinOpenFileDialog.ShowDialog()<br>
|
||||
<br>
|
||||
<span style="color:green;">'If the user did
|
||||
not click Open, exit this subroutine</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> AddinOpenFileDialog.FileNames<br>
|
||||
AddinListBox.Items.Add(FileName)<br>
|
||||
<span style="color:blue;">Next<br>
|
||||
</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> LoadAddin_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> LoadAddin.Click<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
<br>
|
||||
<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><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>
|
||||
vault2 = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault7</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>
|
||||
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;">Dim</span> AddinMgr <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmAddInMgr8</span><br>
|
||||
AddinMgr = vault1<br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> ppoFiles() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmAddInFileInfo</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<span style="color:blue;">Dim</span> fileList <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
||||
fileList = <span style="color:#a31515;">""</span><br>
|
||||
<span style="color:blue;">Dim</span> fileidx <span style="color:blue;">As</span> <span style="color:blue;">Integer</span> = 1<br>
|
||||
<br>
|
||||
<span style="color:green;">' Save the path and name of the add-in just installed</span><br>
|
||||
<span style="color:blue;">Dim</span> justInstalledPathName <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">""</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> AddinListBox.Items<br>
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> (FileName.Contains(<span style="color:#a31515;">"Interop"</span>)) <span style="color:blue;">Then</span><br>
|
||||
justInstalledPathName = FileName<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">If</span> fileidx = 1 <span style="color:blue;">Then</span><br>
|
||||
fileList = FileName<br>
|
||||
<br>
|
||||
<span style="color:blue;">Else</span><br>
|
||||
fileList = fileList & vbLf & FileName<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
fileidx = fileidx + 1<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<br>
|
||||
AddinMgr.<b>AddAddIns</b>(fileList, <span style="color:#2b91af;">EdmAddAddInFlags</span>.EdmAddin_AddAllFilesToOneAddIn, <span style="color:blue;">Nothing</span>)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Get information about each
|
||||
of the installed add-ins</span><br>
|
||||
<span style="color:blue;">Dim</span> addIns() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmAddInInfo2</span> = <span style="color:blue;">Nothing</span><br>
|
||||
AddinMgr.<b>GetInstalledAddIns</b>(addIns)<br>
|
||||
<br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> addinPath <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">""</span><br>
|
||||
<span style="color:blue;">Dim</span> s <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">""</span><br>
|
||||
<span style="color:blue;">Dim</span> idx <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
idx = LBound(addIns)<br>
|
||||
<br>
|
||||
<span style="color:blue;">While</span> idx <= UBound(addIns)<br>
|
||||
<br>
|
||||
s = <span style="color:#a31515;">"Add-in: "</span> + addIns(idx).<b>mbsAddInName</b> + vbLf + <span style="color:#a31515;">"Class: "</span> + addIns(idx).<b>mbsClassID</b> + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Company: "</span> + addIns(idx).<b>mbsCompany</b> + vbLf + <span style="color:#a31515;">"Description: "</span> + addIns(idx).<b>mbsDescription</b> + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Path: "</span> + addIns(idx).mbsModulePath + vbLf + <span style="color:#a31515;">"Version: "</span> + <span style="color:blue;">CStr</span>(addIns(idx).<b>mlAddInVersion</b>) + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Req ver: "</span> + <span style="color:blue;">CStr</span>(addIns(idx).<b>mlRequiredVersionMajor</b>) + <span style="color:#a31515;">"."</span> + <span style="color:blue;">CStr</span>(addIns(idx).<b>mlRequiredVersionMinor</b>)<br>
|
||||
<br>
|
||||
MsgBox(s)<br>
|
||||
addinName = addIns(idx).<b>mbsAddInName</b> <span style="color:green;">' Save the name of the add-in just installed</span><br>
|
||||
idx = idx + 1<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
<span style="color:green;">' Get information about each add-in installed for debugging</span><br>
|
||||
<span style="color:blue;">Dim</span> debugAddIns() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmAddInInfo2</span> = <span style="color:blue;">Nothing</span><br>
|
||||
AddinMgr.<b>GetDebugAddIns</b>(debugAddIns)<br>
|
||||
<br>
|
||||
idx = LBound(debugAddIns)<br>
|
||||
<span style="color:blue;">While</span> idx <= UBound(debugAddIns)<br>
|
||||
<br>
|
||||
s = <span style="color:#a31515;">"Debug add-in: "</span> + debugAddIns(idx).<b>mbsAddInName</b> + vbLf + <span style="color:#a31515;">"Class: "</span> + debugAddIns(idx).<b>mbsClassID</b> + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Company: "</span> + debugAddIns(idx).<b>mbsCompany</b> + vbLf + <span style="color:#a31515;">"Description: "</span> + debugAddIns(idx).<b>mbsDescription</b> + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Path: "</span> + debugAddIns(idx).<b>mbsModulePath</b> + vbLf + <span style="color:#a31515;">"Version: "</span> + <span style="color:blue;">CStr</span>(debugAddIns(idx).<b>mlAddInVersion</b>) + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Req ver: "</span> + <span style="color:blue;">CStr</span>(debugAddIns(idx).<b>mlRequiredVersionMajor</b>) + <span style="color:#a31515;">"."</span> + <span style="color:blue;">CStr</span>(debugAddIns(idx).<b>mlRequiredVersionMinor</b>)<br>
|
||||
<br>
|
||||
MsgBox(s)<br>
|
||||
idx = idx + 1<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
<span style="color:green;">' Get information about the add-in just installed</span><br>
|
||||
<span style="color:blue;">Dim</span> poInfo <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmAddInInfo2</span> = <span style="color:blue;">Nothing</span><br>
|
||||
AddinMgr.<b>GetAddInInfo2</b>(justInstalledPathName, <span style="color:blue;">Nothing</span>, poInfo)<br>
|
||||
<br>
|
||||
s = <span style="color:#a31515;">"Getting info for add-in: "</span> + poInfo.<b>mbsAddInName</b> + vbLf + <span style="color:#a31515;">"Class: "</span> + poInfo.<b>mbsClassID</b> + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Company: "</span> + poInfo.<b>mbsCompany</b> + vbLf + <span style="color:#a31515;">"Description: "</span> + poInfo.<b>mbsDescription</b> + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Path: "</span> + poInfo.<b>mbsModulePath</b> + vbLf + <span style="color:#a31515;">"Version: "</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlAddInVersion</b>) + vbLf<br>
|
||||
s = s + <span style="color:#a31515;">"Req ver: "</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlRequiredVersionMajor</b>) + <span style="color:#a31515;">"."</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlRequiredVersionMinor</b>)<br>
|
||||
<br>
|
||||
MsgBox(s)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Extract information about the add-in just installed</span><br>
|
||||
<span style="color:blue;">Dim</span> ppoCmds() <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmAddInMenuInfo</span> = <span style="color:blue;">Nothing</span><br>
|
||||
AddinMgr.<b>GetInstalledAddIn</b>(addinName, <span style="color:#a31515;">"c:\temp"</span>, poInfo, ppoFiles, ppoCmds)<br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> msg <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
||||
msg = <span style="color:#a31515;">"Extracting info for add-in: "</span> + poInfo.<b>mbsAddInName</b> + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"CLSID="</span> + poInfo.<b>mbsClassID</b> + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"Company="</span> + poInfo.<b>mbsCompany</b> + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"Module="</span> + poInfo.<b>mbsModulePath</b> + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"Version="</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlAddInVersion</b>) + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"Requires version="</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlRequiredVersionMajor</b>) + <span style="color:#a31515;">"."</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlRequiredVersionMinor</b>)<br>
|
||||
msg = msg + vbLf + <span style="color:#a31515;">"Files:"</span> + vbLf<br>
|
||||
<br>
|
||||
idx = LBound(ppoFiles)<br>
|
||||
<span style="color:blue;">While</span> idx <= UBound(ppoFiles)<br>
|
||||
msg = msg + ppoFiles(idx).<b>mbsFileName</b> + <span style="color:#a31515;">" Flags="</span> + <span style="color:blue;">CStr</span>(ppoFiles(idx).<b>mlEdmAddInFileInfoFlags</b>) + vbLf<br>
|
||||
idx = idx + 1<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
msg = msg + vbLf + <span style="color:#a31515;">"Commands:"</span> + vbLf<br>
|
||||
<br>
|
||||
idx = LBound(ppoCmds)<br>
|
||||
<span style="color:blue;">While</span> idx <= UBound(ppoCmds)<br>
|
||||
msg = msg + <span style="color:#a31515;">"'"</span> + ppoCmds(idx).<b>mbsMenuStr</b> + <span style="color:#a31515;">"' Flags="</span> + <span style="color:blue;">CStr</span>(ppoCmds(idx).<b>mlEdmMenuFlags</b>) + vbLf<br>
|
||||
idx = idx + 1<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
vault1.<b>MsgBox</b>(<span style="color:blue;">Me</span>.Handle.ToInt32, msg)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Get CAF information about the add-in just installed</span><br>
|
||||
AddinMgr.<b>GetCAFInfo</b>(poInfo.<b>mbsModulePath</b>, <span style="color:#a31515;">"c:\temp"</span>, poInfo, ppoFiles, ppoCmds)<br>
|
||||
msg = <span style="color:#a31515;">"Getting CAF info for add-in: "</span> + poInfo.<b>mbsAddInName</b> + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"CLSID="</span> + poInfo.<b>mbsClassID</b> + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"Company="</span> + poInfo.<b>mbsCompany</b> + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"Module="</span> + poInfo.mbsModulePath + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"Version="</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlAddInVersion</b>) + vbLf<br>
|
||||
msg = msg + <span style="color:#a31515;">"Requires version="</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlRequiredVersionMajor</b>) + <span style="color:#a31515;">"."</span> + <span style="color:blue;">CStr</span>(poInfo.<b>mlRequiredVersionMinor</b>)<br>
|
||||
msg = msg + vbLf + <span style="color:#a31515;">"Files:"</span> + vbLf<br>
|
||||
<br>
|
||||
idx = LBound(ppoFiles)<br>
|
||||
<span style="color:blue;">While</span> idx <= UBound(ppoFiles)<br>
|
||||
msg = msg + ppoFiles(idx).<b>mbsFileName</b> + <span style="color:#a31515;">" Flags="</span> + <span style="color:blue;">CStr</span>(ppoFiles(idx).<b>mlEdmAddInFileInfoFlags</b>) + vbLf<br>
|
||||
idx = idx + 1<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
msg = msg + vbLf + <span style="color:#a31515;">"Commands:"</span> + vbLf<br>
|
||||
<br>
|
||||
idx = LBound(ppoCmds)<br>
|
||||
<span style="color:blue;">While</span> idx <= UBound(ppoCmds)<br>
|
||||
msg = msg + <span style="color:#a31515;">"'"</span> + ppoCmds(idx).<b>mbsMenuStr</b> + <span style="color:#a31515;">"' flags="</span> + <span style="color:blue;">CStr</span>(ppoCmds(idx).<b>mlEdmMenuFlags</b>) + vbLf<br>
|
||||
idx = idx + 1<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">While</span><br>
|
||||
<br>
|
||||
vault1.<b>MsgBox</b>(<span style="color:blue;">Me</span>.Handle.ToInt32, msg)<br>
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:blue;">
|
||||
Me</span>.Button1.Enabled = <span style="color:blue;">True</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Exit Sub</span><br>
|
||||
<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>
|
||||
<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;"> Private</span> <span style="color:blue;">Sub</span> Button1_Click(sender <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, e <span style="color:blue;">As</span> <span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> Button1.Click<br>
|
||||
<span style="color:blue;">Try</span><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>
|
||||
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;">Dim</span> AddinMgr <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmAddInMgr9</span><br>
|
||||
AddinMgr = vault1<br>
|
||||
<br>
|
||||
AddinMgr.<b>RemoveAddIn</b>(addinName)<br>
|
||||
<span style="color:blue;">Me</span>.Button1.Enabled = <span style="color:blue;">False</span><br>
|
||||
<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></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE"><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" 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>'Form1.Designer.vb</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:gray;">'''</span><span style="color:green;"> </span><span style="color:gray;"><summary></span><br>
|
||||
<span style="color:gray;">'''</span><span style="color:green;"> Required designer variable.</span><br>
|
||||
<span style="color:gray;">'''</span><span style="color:green;"> </span><span style="color:gray;"></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:gray;">'''</span><span style="color:green;"> </span><span style="color:gray;"><summary></span><br>
|
||||
<span style="color:gray;">'''</span><span style="color:green;"> Clean up any resources being used.</span><br>
|
||||
<span style="color:gray;">'''</span><span style="color:green;"> </span><span style="color:gray;"></summary></span><br>
|
||||
<span style="color:gray;">'''</span><span style="color:green;"> </span><span style="color:gray;"><param name="disposing"></span><span style="color:green;">true if managed resources should be disposed; otherwise, false.</span><span style="color:gray;"></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:gray;">'''</span><span style="color:green;"> </span><span style="color:gray;"><summary></span><br>
|
||||
<span style="color:gray;">'''</span><span style="color:green;"> Required method for Designer support - do not modify</span><br>
|
||||
<span style="color:gray;">'''</span><span style="color:green;"> the contents of this method with the code editor.</span><br>
|
||||
<span style="color:gray;">'''</span><span style="color:green;"> </span><span style="color:gray;"></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>.AddinListBox = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>()<br>
|
||||
<span style="color:blue;">Me</span>.LoadAddin = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
||||
<span style="color:blue;">Me</span>.AddinOpenFileDialog = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span>()<br>
|
||||
<span style="color:blue;">Me</span>.Button1 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</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>(91, 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, 59)<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, 98)<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>(271, 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 for add-in..."</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;">'AddinListBox</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.AddinListBox.FormattingEnabled = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.AddinListBox.HorizontalScrollbar = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.AddinListBox.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 151)<br>
|
||||
<span style="color:blue;">Me</span>.AddinListBox.Name = <span style="color:#a31515;">"AddinListBox"</span><br>
|
||||
<span style="color:blue;">Me</span>.AddinListBox.SelectionMode = System.Windows.Forms.<span style="color:#2b91af;">SelectionMode</span>.MultiSimple<br>
|
||||
<span style="color:blue;">Me</span>.AddinListBox.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(259, 56)<br>
|
||||
<span style="color:blue;">Me</span>.AddinListBox.TabIndex = 4<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Load add-in</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.LoadAddin.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 230)<br>
|
||||
<span style="color:blue;">Me</span>.LoadAddin.Name = <span style="color:#a31515;">"LoadAddin"</span><br>
|
||||
<span style="color:blue;">Me</span>.LoadAddin.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(259, 23)<br>
|
||||
<span style="color:blue;">Me</span>.LoadAddin.TabIndex = 5<br>
|
||||
<span style="color:blue;">Me</span>.LoadAddin.Text = <span style="color:#a31515;">"Install add-in"</span><br>
|
||||
<span style="color:blue;">Me</span>.LoadAddin.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'AddinOpenFileDialog</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.AddinOpenFileDialog.Multiselect = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.AddinOpenFileDialog.Title = <span style="color:#a31515;">"Browse for add-ins"</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Remove add-in</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.Button1.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(16, 273)<br>
|
||||
<span style="color:blue;">Me</span>.Button1.Name = <span style="color:#a31515;">"Button1"</span><br>
|
||||
<span style="color:blue;">Me</span>.Button1.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(259, 23)<br>
|
||||
<span style="color:blue;">Me</span>.Button1.TabIndex = 6<br>
|
||||
<span style="color:blue;">Me</span>.Button1.Text = <span style="color:#a31515;">"Remove add-in"</span><br>
|
||||
<span style="color:blue;">Me</span>.Button1.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.Button1.Enabled = <span style="color:blue;">False</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, 314)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Button1)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.LoadAddin)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.AddinListBox)<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;">"Install add-in"</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> AddinListBox <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> LoadAddin <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> AddinOpenFileDialog <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Button1 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</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