Initial Commit of the PDM project (ready for DWS migration)
This commit is contained in:
will
456
documentation/api_extracted/Create_Card_View_Example_VBNET.htm
Normal file
456
documentation/api_extracted/Create_Card_View_Example_VBNET.htm
Normal file
@@ -0,0 +1,456 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Create Card View 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">
|
||||
<style type="text/css">
|
||||
.auto-style1 {
|
||||
color: blue;
|
||||
}
|
||||
</style>
|
||||
</head>
|
||||
<meta name=MS-HKWD content="VB.NET examples, folders">
|
||||
<meta name=MS-HKWD content="VB.NET examples, files">
|
||||
<meta name=MS-HKWD content="VB.NET examples, card views">
|
||||
<meta name=MS-HKWD content="VB.NET examples, callbacks">
|
||||
<body>
|
||||
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
||||
<h1>Create Card View Example (VB.NET)</h1>
|
||||
<p><a name="top"></a>This example shows how to create a file or folder card
|
||||
view.</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="CreateCardView.gif" width="300" height="365"></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>CreateCardView</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. Replace the code in <b>Form1.vb</b> with <a href="#form1">this code</a>.</span><br>
|
||||
<span style="color:green;">' g. To create the
|
||||
form, replace the code in <b>Form1.Designer.vb</b> with <br>
|
||||
' <a href="#form1designer">this code</a>.</span><br>
|
||||
<span style="color:green;">' 2. Add references to:<br>
|
||||
' a. <b>EPDM.Interop.epdm.dll</b> (right-click the project</span><br>
|
||||
<span style="color:green;">' name in the Solution Explorer, click <b>Add
|
||||
> Reference</b> > </span><br>
|
||||
<span style="color:green;">' <b> Assemblies > Framework</b> >
|
||||
<b>Browse</b> and browse </span><span style="color:green;">to the top folder of </span>
|
||||
<span style="color:green;">your </span><br>
|
||||
<span style="color:green;">' SOLIDWORKS PDM Professional installation, </span><span style="color:green;">click </span><br>
|
||||
<span style="color:green;">' <b> EPDM.Interop.epdm.dll</b>
|
||||
> <b>Add</b>).<br>
|
||||
' b. </span><b><font color="#008000">
|
||||
EPDM.interop.EPDMResultCode.dll</font></b> (<font color="#008000">click <b>
|
||||
Browse ></b><br>
|
||||
' <b>EPDM.interop.EPDMResultCode.dll > Add >
|
||||
OK</b>).</font><br>
|
||||
<span style="color:green;">' 3. Right-click <b>EPDM.Interop.epdm</b> in References, click <b>Properties</b>, and set </span><br>
|
||||
<span style="color:green;">' <b>Embed Interop Types</b> to <b>False</b> to handle methods that pass arrays of </span><br>
|
||||
<span style="color:green;">' structures.<br>
|
||||
</span><font color="#008000">' 4. Create a folder in the vault.<br>
|
||||
' 5. </font><font color="#008000" size="2">Check
|
||||
out a file from the vault in which you created the folder.</font><font color="#008000"><br>
|
||||
' 6. Click <b>Debug > Start Debugging</b> or press F5.<br>
|
||||
'<br>
|
||||
' Postconditions: <br>
|
||||
' 1. Displays the Create Card View dialog box.<br>
|
||||
' 2. Select the vault in which you created a folder and<br>
|
||||
' checked out a file.<br>
|
||||
' 3. Click either:<br>
|
||||
' a. <b>Select file</b>.<br>
|
||||
' b. In the Select File dialog:<br>
|
||||
' 1. Click the file checked out in
|
||||
Preconditions step 5.<br>
|
||||
' 2. Click <b>Open</b>.<br>
|
||||
' 3. Inspect the message box, then click <b>
|
||||
OK</b>.<br>
|
||||
' c. In the file data card, modify a field.<br>
|
||||
' d. Click <b>Save data card</b>.<br>
|
||||
' e. Check in the file and inspect its data
|
||||
card.<br>
|
||||
' - or -<br>
|
||||
' a. <b>Select folder</b>.<br>
|
||||
' b. In the Select Folder dialog, select the vault folder
|
||||
created in<br>
|
||||
' Preconditions step 4 and click <b>OK</b>.<br>
|
||||
' c. Inspect the message box, then click <b>OK</b>.<br>
|
||||
' d. In the folder data card, click the <b>Edit Values</b>
|
||||
tab.<br>
|
||||
' e. Modify a field.<br>
|
||||
' f. Click <b>Save data card</b>.<br>
|
||||
' g. Inspect the folder card in the vault.<br>
|
||||
' 4. Close the Create Card View dialog box.</font><br>
|
||||
<span style="color:green;">
|
||||
'----------------------------------------------------------------------------</span><br>
|
||||
<font color="#008000"><a name="form1"></a>'Form1.vb</font></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<span style="color:blue;">Imports</span> System.IO<br>
|
||||
<span style="color:blue;">Imports</span> System.Xml.Serialization<br>
|
||||
<span style="color:blue;">Imports</span> System.Collections<br>
|
||||
<span style="color:blue;">Imports</span> System.Collections.Generic<br>
|
||||
<span style="color:blue;">Imports</span> System.Data<br>
|
||||
<span style="color:blue;">Imports</span> System.Diagnostics<br>
|
||||
<span style="color:blue;">Imports</span> System.Windows.Forms<br>
|
||||
<span style="color:blue;">Imports</span> System.ComponentModel<br>
|
||||
<span style="color:blue;">Imports</span> EPDM.Interop.epdm<br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Class</span> <span style="color:#2b91af;">Form1</span><br>
|
||||
<span style="color:blue;">Implements</span> <span style="color:#2b91af;">EdmCallback</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> vault1 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span> = <span style="color:blue;">Nothing</span><br>
|
||||
<span style="color:blue;">Dim</span> view <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmCardView64</span><br>
|
||||
<span style="color:blue;">Dim</span> aFile <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFile7</span><br>
|
||||
<span style="color:blue;">Dim</span> aFolder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder5</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> Form1_Load(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.<span style="color:#2b91af;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.<span style="color:#2b91af;">EventArgs</span>) <span style="color:blue;">Handles</span> <span style="color:blue;">MyBase</span>.Load<br>
|
||||
<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">Dim</span> vault1 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span> = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmVault5</span>()<br>
|
||||
<span style="color:blue;">Dim</span> vault <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault8</span> = <span style="color:blue;">DirectCast</span>(vault1, <span style="color:#2b91af;">IEdmVault8</span>)<br>
|
||||
<span style="color:blue;">Dim</span> Views <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span>() = <span style="color:blue;">Nothing</span><br>
|
||||
<br>
|
||||
vault.<b>GetVaultViews</b>(Views, <span style="color:blue;">False</span>)<br>
|
||||
VaultsComboBox.Items.Clear()<br>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> View <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmViewInfo</span> <span style="color:blue;">In</span> Views<br>
|
||||
VaultsComboBox.Items.Add(View.<b>mbsVaultName</b>)<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<span style="color:blue;">If</span> VaultsComboBox.Items.Count > 0 <span style="color:blue;">Then</span><br>
|
||||
VaultsComboBox.Text = <span style="color:blue;">DirectCast</span>(VaultsComboBox.Items(0), <span style="color:blue;">String</span>)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> System.Runtime.InteropServices.<span style="color:#2b91af;">COMException</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"HRESULT = 0x"</span> + ex.ErrorCode.ToString(<span style="color:#a31515;">"X"</span>) + <span style="color:#a31515;">" "</span> + ex.Message)<br>
|
||||
<span style="color:blue;">Catch</span> ex <span style="color:blue;">As</span> <span style="color:#2b91af;">Exception</span><br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(ex.Message)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Try</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> SelectFile_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> SelectFile.Click<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
File1List.Items.Clear()<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>
|
||||
<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>
|
||||
SelectFolder.Enabled = <span style="color:blue;">False</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'Set the initial directory in the Select File dialog</span><br>
|
||||
OpenFileDialog1.InitialDirectory = vault1.<b>RootFolderPath</b><br>
|
||||
<br>
|
||||
<span style="color:green;">'Show the Select File 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 = OpenFileDialog1.ShowDialog()<br>
|
||||
<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:green;">' do nothing</span><br>
|
||||
<span style="color:blue;">Else</span><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> OpenFileDialog1.FileNames<br>
|
||||
File1List.Items.Add(FileName)<br>
|
||||
|
||||
aFile = <span style="color:blue;">CType</span>(vault1.<b>GetFileFromPath</b>(FileName, aFolder), <span style="color:#2b91af;">IEdmFile7</span>)<br>
|
||||
ShowCard(aFolder, aFile.<b>ID</b>)<br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</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><br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> SelectFolder_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> SelectFolder.Click<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
Folder1List.Items.Clear()<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>
|
||||
<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>
|
||||
SelectFile.Enabled = <span style="color:blue;">False</span><br>
|
||||
aFolder = vault1.<b>BrowseForFolder</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:#a31515;">"Select folder:"</span>)<br>
|
||||
<span style="color:blue;">If</span> Folder1List <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span> <span style="color:blue;">Exit Sub</span><br>
|
||||
Folder1List.Items.Add(aFolder.<b>Name</b>)<br>
|
||||
ShowCard(aFolder, 0)<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><br>
|
||||
<br>
|
||||
<span style="color:blue;">Public</span> <span style="color:blue;">Sub</span> SaveCard_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> SaveCard.Click<br>
|
||||
<span style="color:blue;">Try</span><br>
|
||||
Folder1List.Items.Clear()<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>
|
||||
<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>
|
||||
view.<b>SaveData</b>()<br>
|
||||
SaveCard.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><br>
|
||||
<br>
|
||||
<span style="color:green;">'Display the card of the selected file or folder </span><br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> ShowCard(<span style="color:blue;">ByVal</span> folder <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder5</span>, <span style="color:blue;">ByVal</span> fileID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Create the card view interface</span><span style="color:blue;"><br>
|
||||
Dim</span> folder10 <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFolder10</span> = <span style="color:blue;">Nothing</span><br>
|
||||
folder10 = <span style="color:blue;">DirectCast</span>(folder, <span style="color:#2b91af;">IEdmFolder10</span>)<span style="color:green;"> </span><br>
|
||||
view = <span style="color:blue;">CType</span>(folder10.<b>CreateCardView2</b>(fileID, <span style="color:blue;">Me</span>.Handle.ToInt32(), 40, 300, <span style="color:blue;">Me</span>, <span style="color:#2b91af;">EdmCardViewFlag</span>.EdmCvf_Normal), <span style="color:#2b91af;">IEdmCardView64</span>)<br>
|
||||
<br>
|
||||
<span style="color:blue;">If</span> view <span style="color:blue;">Is</span> <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
||||
MsgBox(<span style="color:#a31515;">"The file does not have a card."</span>)<br>
|
||||
<span style="color:blue;">Exit Sub</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">If</span><br>
|
||||
<br>
|
||||
view.<strong>SetFlagIsFocusOnDataCard</strong>(<span class="auto-style1">True</span>)<span style="color:green;"><br>
|
||||
<br> ' Set input focus to the first control in the card</span><br>
|
||||
view.<b>SetFocus</b>(0)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Enable all controls in the card</span><br>
|
||||
view.<b>Update</b>(<span style="color:#2b91af;">EdmCardViewUpdateType</span>.EdmCvut_EnableCtrl)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Get the size needed to display the card </span><br>
|
||||
<span style="color:blue;">Dim</span> width <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
<span style="color:blue;">Dim</span> height <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
view.<b>GetCardSize</b>(width, height)<br>
|
||||
<br>
|
||||
<span style="color:green;">' Resize the form window to make room for the card </span><br>
|
||||
<span style="color:blue;">Me</span>.Width = (width + 100)<br>
|
||||
<span style="color:blue;">Me</span>.Height = (height + 400)<br>
|
||||
view.<b>ShowWindow</b>(<span style="color:blue;">True</span>)</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<font color="#0000FF"> D</font><span style="color:blue;">im</span> ID <span style="color:blue;">As</span> <span style="color:blue;">Integer</span><br>
|
||||
<span style="color:blue;"> Dim</span> folderName <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
||||
<span style="color:blue;"> Dim</span> vaultName <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
||||
<span style="color:blue;"> Dim</span> vaultObject <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmVault5</span><br>
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
<font color="#008000"> ' Get some
|
||||
folder information</font><br>
|
||||
ID = folder10.<b>ID</b><br>
|
||||
folderName = folder10.<b>Name</b><br>
|
||||
vaultObject = folder10.<b>Vault</b><br>
|
||||
vaultName = vaultObject.<b>Name</b><br>
|
||||
<span style="color:#2b91af;">
|
||||
MessageBox</span>.Show(<span style="color:#a31515;">"Database ID: "</span> + ID.ToString() + <span style="color:#a31515;">"; Vault name: "</span> + vaultName + <span style="color:#a31515;">"; Folder name: "</span> + folderName)<br>
|
||||
<br>
|
||||
folder10.<b>Refresh</b>()<br>
|
||||
<br>
|
||||
SaveCard.Enabled = <span style="color:blue;">False</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Cancel_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> Cancel.Click<br>
|
||||
view.<b>OnCancel</b>()<br>
|
||||
SaveCard.Enabled = <span style="color:blue;">False</span><br>
|
||||
SelectFile.Enabled = <span style="color:blue;">True</span><br>
|
||||
SelectFolder.Enabled = <span style="color:blue;">True</span><br>
|
||||
view.<b>ShowWindow</b>(<span style="color:blue;">False</span>)<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> EdmCallback_SetModifiedFlag() <span style="color:blue;">Implements</span> <span style="color:#2b91af;">EdmCallback</span>.<b>SetModifiedFlag</b><br>
|
||||
SaveCard.Enabled = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> EdmCallback_SetProgressPos(<span style="color:blue;">ByVal</span> lPos <span style="color:blue;">As</span> <span style="color:blue;">Integer</span>) <span style="color:blue;">Implements</span> <span style="color:#2b91af;">EdmCallback</span>.<b>SetProgressPos</b><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> EdmCallback_SetProgressRange(<span style="color:blue;">ByVal</span> lMin <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;">EdmCallback</span>.<b>SetProgressRange</b><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> EdmCallback_SetStatusMessage(<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;">EdmCallback</span>.<b>SetStatusMessage</b><br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Sub</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE">
|
||||
</p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: black; background: white" class="APICODE" align="center">
|
||||
<a href="#top">Back to top</a> </p>
|
||||
<p style="font-family: Courier New; font-size: 13; color: #008000; background: white" class="APICODE">
|
||||
<a name="form1designer"></a>'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>
|
||||
<br>
|
||||
<span style="color:green;">'Form overrides dispose to clean up the component list.</span><br>
|
||||
<System.Diagnostics.<span style="color:#2b91af;">DebuggerNonUserCode</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;">Try</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;">Finally</span><br>
|
||||
<span style="color:blue;">MyBase</span>.Dispose(disposing)<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:green;">'Required by the Windows Form Designer</span><br>
|
||||
<span style="color:blue;">Private</span> components <span style="color:blue;">As</span> System.ComponentModel.<span style="color:#2b91af;">IContainer</span><br>
|
||||
<br>
|
||||
<span style="color:green;">'NOTE: The following procedure is required by the Windows Form Designer</span><br>
|
||||
<span style="color:green;">'It can be modified using the Windows Form Designer. </span><br>
|
||||
<span style="color:green;">'Do not modify it using the code editor.</span><br>
|
||||
<System.Diagnostics.<span style="color:#2b91af;">DebuggerStepThrough</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>.SelectFile = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
||||
<span style="color:blue;">Me</span>.File1List = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>()<br>
|
||||
<span style="color:blue;">Me</span>.SaveCard = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
||||
<span style="color:blue;">Me</span>.OpenFileDialog1 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">OpenFileDialog</span>()<br>
|
||||
<span style="color:blue;">Me</span>.SelectFolder = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span>()<br>
|
||||
<span style="color:blue;">Me</span>.Folder1List = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">ListBox</span>()<br>
|
||||
<span style="color:blue;">Me</span>.Cancel = <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>(36, 24)<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>(39, 40)<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;">'SelectFile</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.SelectFile.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(39, 85)<br>
|
||||
<span style="color:blue;">Me</span>.SelectFile.Name = <span style="color:#a31515;">"SelectFile"</span><br>
|
||||
<span style="color:blue;">Me</span>.SelectFile.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(157, 23)<br>
|
||||
<span style="color:blue;">Me</span>.SelectFile.TabIndex = 2<br>
|
||||
<span style="color:blue;">Me</span>.SelectFile.Text = <span style="color:#a31515;">"Select file..."</span><br>
|
||||
<span style="color:blue;">Me</span>.SelectFile.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'File1List</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.File1List.FormattingEnabled = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.File1List.HorizontalScrollbar = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.File1List.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(40, 114)<br>
|
||||
<span style="color:blue;">Me</span>.File1List.Name = <span style="color:#a31515;">"File1List"</span><br>
|
||||
<span style="color:blue;">Me</span>.File1List.SelectionMode = System.Windows.Forms.<span style="color:#2b91af;">SelectionMode</span>.MultiExtended<br>
|
||||
<span style="color:blue;">Me</span>.File1List.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(220, 43)<br>
|
||||
<span style="color:blue;">Me</span>.File1List.TabIndex = 4<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'SaveCard</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.SaveCard.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(40, 255)<br>
|
||||
<span style="color:blue;">Me</span>.SaveCard.Name = <span style="color:#a31515;">"SaveCard"</span><br>
|
||||
<span style="color:blue;">Me</span>.SaveCard.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(107, 23)<br>
|
||||
<span style="color:blue;">Me</span>.SaveCard.TabIndex = 6<br>
|
||||
<span style="color:blue;">Me</span>.SaveCard.Text = <span style="color:#a31515;">"Save data card"</span><br>
|
||||
<span style="color:blue;">Me</span>.SaveCard.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'OpenFileDialog1</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.OpenFileDialog1.FileName = <span style="color:#a31515;">"OpenFileDialog1"</span><br>
|
||||
<span style="color:blue;">Me</span>.OpenFileDialog1.Title = <span style="color:#a31515;">"Select File"</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'SelectFolder</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.SelectFolder.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(40, 163)<br>
|
||||
<span style="color:blue;">Me</span>.SelectFolder.Name = <span style="color:#a31515;">"SelectFolder"</span><br>
|
||||
<span style="color:blue;">Me</span>.SelectFolder.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(157, 23)<br>
|
||||
<span style="color:blue;">Me</span>.SelectFolder.TabIndex = 7<br>
|
||||
<span style="color:blue;">Me</span>.SelectFolder.Text = <span style="color:#a31515;">"Select folder..."</span><br>
|
||||
<span style="color:blue;">Me</span>.SelectFolder.UseVisualStyleBackColor = <span style="color:blue;">True</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Folder1List</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.Folder1List.FormattingEnabled = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.Folder1List.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(39, 192)<br>
|
||||
<span style="color:blue;">Me</span>.Folder1List.Name = <span style="color:#a31515;">"Folder1List"</span><br>
|
||||
<span style="color:blue;">Me</span>.Folder1List.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(220, 43)<br>
|
||||
<span style="color:blue;">Me</span>.Folder1List.TabIndex = 8<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Cancel</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.Cancel.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(163, 255)<br>
|
||||
<span style="color:blue;">Me</span>.Cancel.Name = <span style="color:#a31515;">"Cancel"</span><br>
|
||||
<span style="color:blue;">Me</span>.Cancel.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(96, 23)<br>
|
||||
<span style="color:blue;">Me</span>.Cancel.TabIndex = 9<br>
|
||||
<span style="color:blue;">Me</span>.Cancel.Text = <span style="color:#a31515;">"Cancel"</span><br>
|
||||
<span style="color:blue;">Me</span>.Cancel.UseVisualStyleBackColor = <span style="color:blue;">True</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>(284, 327)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Cancel)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Folder1List)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.SelectFolder)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.SaveCard)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.File1List)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.SelectFile)<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;">"Create Card View"</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>
|
||||
<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> SelectFile <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> File1List <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> SaveCard <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> OpenFileDialog1 <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> SelectFolder <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> Folder1List <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> Cancel <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">Button</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></p>
|
||||
</font>
|
||||
<p align="center"><a href="#top">Back to top</a></p>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
Reference in New Issue
Block a user