| Server IP : 180.180.241.3 / Your IP : 216.73.216.252 Web Server : Microsoft-IIS/7.5 System : Windows NT NETWORK-NHRC 6.1 build 7601 (Windows Server 2008 R2 Standard Edition Service Pack 1) i586 User : IUSR ( 0) PHP Version : 5.3.28 Disable Function : NONE MySQL : ON | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /Program Files (x86)/Microsoft Visual Studio 10.0/VB/Snippets/1033/os/ |
Upload File : |
<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
<CodeSnippet Format="1.0.0">
<Header>
<Title>Respond to Timer Event</Title>
<Author>Microsoft Corporation</Author>
<Description>Responds to a timer event.</Description>
<Shortcut>osTimer</Shortcut>
</Header>
<Snippet>
<References>
<Reference>
<Assembly>System.Windows.Forms</Assembly>
</Reference>
</References>
<Imports>
<Import>
<Namespace>Microsoft.VisualBasic</Namespace>
</Import>
<Import>
<Namespace>System.Windows.Forms</Namespace>
</Import>
<Import>
<Namespace>System</Namespace>
</Import>
</Imports>
<Declarations>
<Literal>
<ID>interval</ID>
<ToolTip>Replace with interval in milliseconds. </ToolTip>
<Default>1000</Default>
</Literal>
</Declarations>
<Code Language="VB" Kind="method decl"><![CDATA[' Start the timer with the given interval
Private Sub StartTimer()
Dim Timer1 As New Timer()
AddHandler Timer1.Tick, AddressOf Timer1_Tick
Timer1.Interval = $interval$
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal obj As Object, ByVal e As EventArgs)
End Sub]]></Code>
</Snippet>
</CodeSnippet>
</CodeSnippets>