Initial Commit of the PDM project (ready for DWS migration)
This commit is contained in:
will
304
documentation/api_extracted/Find_Users_Example_VBNET.htm
Normal file
304
documentation/api_extracted/Find_Users_Example_VBNET.htm
Normal file
@@ -0,0 +1,304 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<title>Find Users 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,users">
|
||||
<body>
|
||||
<h1><font size="1"><span style="font-weight: 400">SOLIDWORKS PDM Professional API Help</span></h1>
|
||||
<h1>Find Users Example (VB.NET)</h1>
|
||||
<p><a name="Top"></a>This example shows how to find users in the
|
||||
vault.</p>
|
||||
<p><b>NOTE</b>: If using the primary interop assembly
|
||||
provided with SOLIDWORKS PDM Professional, see
|
||||
<a href="Using_NET_Framework_in_Applications.htm">Using .NET Framework 4.0 in
|
||||
Stand-alone Applications</a>.</p>
|
||||
<p><img border="0" src="FindUsers.gif" width="422" height="485"></p>
|
||||
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><span style="color: green">'----------------------------------------------------------------------------</span>
|
||||
<span style="color: green">' Preconditions:</span>
|
||||
<span style="color: green">' 1. Start Microsoft Visual Studio.</span>
|
||||
<span style="color: green">' a. Click <b>File > New > Project > Visual Basic > Windows Forms Application</b>.</span>
|
||||
<span style="color: green">' b. Type <b>FindUser</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>, click <b>Open</b>, click <b>Add</b>, and click <b>Close</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. 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 Find Users dialog box.</span>
|
||||
<span style="color: green">' a. Select a vault view.</span>
|
||||
<span style="color: green">' b. In <b>Full name contains</b>, type a substring of the full name of a
|
||||
' user that exists in the vault.</span>
|
||||
<span style="color: green">' c. Click <b>Find Users</b>.
|
||||
' A message box confirms the substring typed in Postconditions
|
||||
' step 1b.
|
||||
' d. Click <b>OK</b>.
|
||||
' Displays a Search for users dialog.
|
||||
' e. Click <b>Find</b>.
|
||||
' Displays a Search for users dialog with results.
|
||||
' f. Click the first row.
|
||||
' g. Click <b>Select</b>.
|
||||
' * Displays a message box with the updated user information.
|
||||
' * The selected user's phone and website information are updated.
|
||||
' h. Click <b>OK</b>.
|
||||
' 2. Updates the Find Users dialog box with the full name and picture, if
|
||||
' it exists, of the last user found whose full name contains the substring
|
||||
' typed in Postconditions step 1b. </span>
|
||||
<span style="color: green">' 3. Close the Find Users dialog box.</span>
|
||||
<span style="color: green">'----------------------------------------------------------------------------</span>
|
||||
<span style="color: green"><a name="Form1"></a>'Form1.vb</span></pre>
|
||||
<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;">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>
|
||||
<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>
|
||||
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>
|
||||
<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> FindUsers_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> FindUsers.Click<br>
|
||||
<br>
|
||||
<span style="color:blue;">Try</span><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>
|
||||
<span style="color:green;">'Get the user search interface </span><br>
|
||||
<span style="color:blue;">Dim</span> poFind <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmFindUser</span><br>
|
||||
poFind = vault2.<b>CreateUtility</b>(<span style="color:#2b91af;">EdmUtility</span>.EdmUtil_FindUser)<br>
|
||||
<br>
|
||||
<span style="color:green;">'Search for a user with specified text in the full user name </span><br>
|
||||
poFind.<b>SetPropt</b>(<span style="color:#2b91af;">EdmFindUserProp</span>.Edmfup_FullName, <span style="color:blue;">Me</span>.TextBox1.Text)<br>
|
||||
<span style="color:blue;">Dim</span> val <span style="color:blue;">As</span> <span style="color:blue;">String</span><br>
|
||||
val = poFind.<b>GetPropt</b>(<span style="color:#2b91af;">EdmFindUserProp</span>.Edmfup_FullName)<br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(<span style="color:#a31515;">"Find users whose full
|
||||
names contain "</span> & <span style="color:#a31515;">""""</span> & val & <span style="color:#a31515;">""""</span>)<br>
|
||||
<br>
|
||||
poFind.<b>ShowFindUI</b>(<span style="color:blue;">Me</span>.Handle.ToInt32(), <span style="color:blue;">True</span>, <span style="color:#a31515;">"Search for users"</span>)<br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> poResult <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmEnum</span><br>
|
||||
poResult = poFind.<b>Result</b><br>
|
||||
<span style="color:blue;">Dim</span> str <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:#a31515;">"Found "</span> & poResult.<b>Count</b>.ToString & <span style="color:#a31515;">" users with full
|
||||
names containing, "</span> & <span style="color:#a31515;">""""</span> & <span style="color:blue;">Me</span>.TextBox1.Text & <span style="color:#a31515;">""""</span> & <span style="color:#a31515;">":"</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">Dim</span> oImg <span style="color:blue;">As</span> System.Drawing.<span style="color:#2b91af;">Image</span><br>
|
||||
<span style="color:blue;">Dim</span> poUser <span style="color:blue;">As</span> <span style="color:#2b91af;">IEdmUser10</span><br>
|
||||
<span style="color:blue;">Dim</span> UserInfo <span style="color:blue;">As</span> <span style="color:#2b91af;">EdmUserDataEx</span> = <span style="color:blue;">New</span> <span style="color:#2b91af;">EdmUserDataEx</span>()<br>
|
||||
UserInfo.<b>mlEdmUserDataExFlags</b> = <span style="color:#2b91af;">EdmUserDataExFlag</span>.Edmudex_All<br>
|
||||
<br>
|
||||
<span style="color:blue;">For</span> <span style="color:blue;">Each</span> element <span style="color:blue;">In</span> poResult<br>
|
||||
poUser = element<br>
|
||||
<br>
|
||||
<span style="color:green;">'Get user's information</span><br>
|
||||
poUser.<b>GetUserDataEx</b>(UserInfo)<br>
|
||||
<br>
|
||||
<span style="color:green;">'Update user's information</span><br>
|
||||
UserInfo.<b>mbsPhone</b> = <span style="color:#a31515;">"123456789"</span><br>
|
||||
UserInfo.<b>mbsWebSite1</b> = <span style="color:#a31515;">"http://www.solidworks.com"</span><br>
|
||||
UserInfo.<b>mbsWebSite2</b> = <span style="color:#a31515;">"https://www.facebook.com/solidworks"</span><br>
|
||||
poUser.<b>SetUserDataEx</b>(UserInfo)<br>
|
||||
<br>
|
||||
str = str & vbLf & <span style="color:#a31515;">"Full name: "</span> & UserInfo.<b>mbsCompleteName</b> & <span style="color:#a31515;">", Phone: "</span> & UserInfo.<b>mbsPhone</b> & <span style="color:#a31515;">", WebSite1: "</span> & UserInfo.<b>mbsWebSite1</b> & <span style="color:#a31515;">", Website2: "</span> & UserInfo.<b>mbsWebSite2</b><br>
|
||||
<span style="color:blue;">Next</span><br>
|
||||
<br>
|
||||
<span style="color:#2b91af;">MessageBox</span>.Show(str)<br>
|
||||
<br>
|
||||
<span style="color:green;">'Display the picture, if available, of the last user found </span><br>
|
||||
<span style="color:blue;">If</span> <span style="color:blue;">Not</span> UserInfo.<b>mbsPicturePath</b> = <span style="color:blue;">Nothing</span> <span style="color:blue;">Then</span><br>
|
||||
<span style="color:blue;">Me</span>.TextBox2.Text = UserInfo.<b>mbsCompleteName</b><br>
|
||||
oImg = System.Drawing.<span style="color:#2b91af;">Bitmap</span>.FromFile(UserInfo.<b>mbsPicturePath</b>)<br>
|
||||
<span style="color:blue;">Me</span>.CreateGraphics().DrawImage(oImg, 40, 220)<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>
|
||||
<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>
|
||||
<div align="center">
|
||||
<pre style="font-family: Courier New; font-size: 13; color: black; background: white"><font face="Calibri"><a href="#Top">Back to top</a></font></pre>
|
||||
</div>
|
||||
<div align="left">
|
||||
<pre style="font-family: Courier New; font-size: 13; color: #008000; background-image: none; background-repeat: repeat; background-attachment: scroll"><a name="Designer"></a>'Form1.Designer.vb</pre>
|
||||
</div>
|
||||
<div align="left">
|
||||
<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>.FindUsers = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Button</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>.Label1 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()<br>
|
||||
<span style="color:blue;">Me</span>.Label2 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()<br>
|
||||
<span style="color:blue;">Me</span>.TextBox1 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">TextBox</span>()<br>
|
||||
<span style="color:blue;">Me</span>.Label3 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">Label</span>()<br>
|
||||
<span style="color:blue;">Me</span>.TextBox2 = <span style="color:blue;">New</span> System.Windows.Forms.<span style="color:#2b91af;">TextBox</span>()<br>
|
||||
<span style="color:blue;">Me</span>.SuspendLayout()<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'FindUsers</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.FindUsers.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(72, 136)<br>
|
||||
<span style="color:blue;">Me</span>.FindUsers.Name = <span style="color:#a31515;">"FindUsers"</span><br>
|
||||
<span style="color:blue;">Me</span>.FindUsers.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(66, 23)<br>
|
||||
<span style="color:blue;">Me</span>.FindUsers.TabIndex = 0<br>
|
||||
<span style="color:blue;">Me</span>.FindUsers.Text = <span style="color:#a31515;">"Find Users"</span><br>
|
||||
<span style="color:blue;">Me</span>.FindUsers.TextAlign = System.Drawing.<span style="color:#2b91af;">ContentAlignment</span>.MiddleLeft<br>
|
||||
<span style="color:blue;">Me</span>.FindUsers.UseVisualStyleBackColor = <span style="color:blue;">True</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>(30, 39)<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>(169, 21)<br>
|
||||
<span style="color:blue;">Me</span>.VaultsComboBox.TabIndex = 1<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Label1</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.Label1.AutoSize = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.Label1.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(27, 23)<br>
|
||||
<span style="color:blue;">Me</span>.Label1.Name = <span style="color:#a31515;">"Label1"</span><br>
|
||||
<span style="color:blue;">Me</span>.Label1.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(91, 13)<br>
|
||||
<span style="color:blue;">Me</span>.Label1.TabIndex = 2<br>
|
||||
<span style="color:blue;">Me</span>.Label1.Text = <span style="color:#a31515;">"Select vault view:"</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Label2</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.Label2.AutoSize = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.Label2.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(27, 77)<br>
|
||||
<span style="color:blue;">Me</span>.Label2.Name = <span style="color:#a31515;">"Label2"</span><br>
|
||||
<span style="color:blue;">Me</span>.Label2.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(104, 13)<br>
|
||||
<span style="color:blue;">Me</span>.Label2.TabIndex = 3<br>
|
||||
<span style="color:blue;">Me</span>.Label2.Text = <span style="color:#a31515;">"Full name contains:"</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'TextBox1</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.TextBox1.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(32, 93)<br>
|
||||
<span style="color:blue;">Me</span>.TextBox1.Name = <span style="color:#a31515;">"TextBox1"</span><br>
|
||||
<span style="color:blue;">Me</span>.TextBox1.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(167, 20)<br>
|
||||
<span style="color:blue;">Me</span>.TextBox1.TabIndex = 4<br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'Label3</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.Label3.AutoSize = <span style="color:blue;">True</span><br>
|
||||
<span style="color:blue;">Me</span>.Label3.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(29, 172)<br>
|
||||
<span style="color:blue;">Me</span>.Label3.Name = <span style="color:#a31515;">"Label3"</span><br>
|
||||
<span style="color:blue;">Me</span>.Label3.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(83, 13)<br>
|
||||
<span style="color:blue;">Me</span>.Label3.TabIndex = 6<br>
|
||||
<span style="color:blue;">Me</span>.Label3.Text = <span style="color:#a31515;">"Last user found:"</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:green;">'TextBox2</span><br>
|
||||
<span style="color:green;">'</span><br>
|
||||
<span style="color:blue;">Me</span>.TextBox2.Location = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Point</span>(30, 188)<br>
|
||||
<span style="color:blue;">Me</span>.TextBox2.Name = <span style="color:#a31515;">"TextBox2"</span><br>
|
||||
<span style="color:blue;">Me</span>.TextBox2.Size = <span style="color:blue;">New</span> System.Drawing.<span style="color:#2b91af;">Size</span>(169, 20)<br>
|
||||
<span style="color:blue;">Me</span>.TextBox2.TabIndex = 7<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>(406, 447)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.TextBox2)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Label3)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.TextBox1)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Label2)<br>
|
||||
<span style="color:blue;">Me</span>.Controls.Add(<span style="color:blue;">Me</span>.Label1)<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>.FindUsers)<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;">"Find Users"</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> FindUsers <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> 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> Label1 <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> Label2 <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> TextBox1 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">TextBox</span><br>
|
||||
<span style="color:blue;">Friend</span> <span style="color:blue;">WithEvents</span> Label3 <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> TextBox2 <span style="color:blue;">As</span> System.Windows.Forms.<span style="color:#2b91af;">TextBox</span><br>
|
||||
<br>
|
||||
<span style="color:blue;">End</span> <span style="color:blue;">Class</span></div>
|
||||
<div align="center">
|
||||
<pre style="font-family: Courier New; font-size: 13; color: #008000; background-image: none; background-repeat: repeat; background-attachment: scroll"><font face="Calibri"><a href="#Top">Back to top</a></font></pre>
|
||||
</div>
|
||||
|
||||
<p> </p>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
Reference in New Issue
Block a user