home *** CD-ROM | disk | FTP | other *** search
/ ftp.tcs3.com / ftp.tcs3.com.tar / ftp.tcs3.com / DRIVERS / Audio / Office2010 / InfoPath.en-us / InfLR.cab / FL_DefineAProperty_snippet_142751_ENU____.3643236F_FC70_11D3_A536_0090278A1BB8 < prev    next >
Extensible Markup Language  |  2008-09-17  |  1KB  |  43 lines
  1. ∩╗┐<?xml version="1.0" encoding="UTF-8"?>
  2. <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  3.   <CodeSnippet Format="1.0.0">
  4.     <Header>
  5.       <Title>Define a Property</Title>
  6.       <Author>Microsoft Corporation</Author>
  7.       <Description>Defines a Property with a backing field.</Description>
  8.       <Shortcut>Property</Shortcut>
  9.     </Header>
  10.     <Snippet>
  11.       <Declarations>
  12.         <Literal>
  13.           <ID>PropertyName</ID>
  14.           <Type>String</Type>
  15.           <ToolTip>Replace with property name.</ToolTip>
  16.           <Default>NewProperty</Default>
  17.         </Literal>
  18.         <Literal>
  19.           <ID>PropertyType</ID>
  20.           <Type>
  21.           </Type>
  22.           <ToolTip>Replace with the property type.</ToolTip>
  23.           <Default>Integer</Default>
  24.         </Literal>
  25.         <Object>
  26.           <ID>PrivateVariable</ID>
  27.           <Type>Object</Type>
  28.           <ToolTip>Replace this with the private variable name.</ToolTip>
  29.           <Default>newPropertyValue</Default>
  30.         </Object>
  31.       </Declarations>
  32.       <Code Language="VB" Kind="method decl"><![CDATA[Private $PrivateVariable$ As $PropertyType$
  33. Public Property $PropertyName$() As $PropertyType$
  34.     Get
  35.         Return $PrivateVariable$ 
  36.     End Get
  37.     Set(ByVal value As $PropertyType$)
  38.         $PrivateVariable$ = value
  39.     End Set
  40. End Property]]></Code>
  41.     </Snippet>
  42.   </CodeSnippet>
  43. </CodeSnippets>