Visual Basic

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data

<br />
Public Class PopUpForm<br />
    <br />
	Dim X As Integer = 0<br />
    Dim Y As Integer = 0	<br />
    Private Sub PopUpForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        '*The Screen.GetWorkingArea(control) will provide you the working<br />
        'area of a screen without the system tray area. The working area <br />
        'depends on the resolution of your monitor*/<br />
<br />
        X = Screen.GetWorkingArea(Me).Width  ' This line gives the width of working area<br />
        Y = Screen.GetWorkingArea(Me).Height ' This line gives the width of working area			<br />
        Me.Location = New Point(X - Me.Width, Y + Me.Height)  ' This line sets the initial location of the form<br />
<br />
        Timer1.Enabled = True<br />
        Timer1.Start()  ' We'll start the timer which handles the opening of form.<br />
    End Sub<br />
<br />
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick<br />
        '    The logic is that, first we will open the form below<br />
        ' taskbar at specified location and then in Timer's TICK event <br />
        '   we() 'll just bring the form above taskbar to have the animated <br />
        ' effect.<br />
        Dim i As Integer<br />
<br />
        i = Me.Location.Y      ' First we will know form's Y-axis location<br />
        ' which will act as upper limit for form's location<br />
        If (i > Y - Me.Height) Then<br />
<br />
            Me.Location = New Point(X - Me.Width, i - 8) '	 Here we just change the location<br />
            '	of form by 8 pixels(i-8)<br />
<br />
        Else   ' else we stop Timer1 and start Timer3 which holds the form for some time<br />
<br />
            Timer1.Stop()<br />
            Timer1.Enabled = False<br />
<br />
            Timer3.Start()<br />
            Timer3.Enabled = True<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick<br />
<br />
        'Here the logic is same as opening the form, only location value of Y-axis<br />
        'is increased, so that form slowly hides behind Task Bar.<br />
<br />
        Timer3.Stop()<br />
        Timer3.Enabled = False<br />
        Dim i As Integer<br />
        i = Me.Location.Y<br />
        If (i < Y) Then<br />
            Me.Location = New Point(X - Me.Width, i + 8)<br />
        Else<br />
            Timer2.Stop()<br />
            Timer2.Enabled = False<br />
            Me.Close()<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick<br />
        Timer2.Start()          ' Here we start Timer2 which handles closing of form<br />
        Timer2.Enabled = True<br />
    End Sub<br />
End Class

Dave Kreskowiak wrote:

SHORTEN YOUR NAME!

	'Local var to hold the table<br />
	Private mvApp As DataTable<br />
<br />
	'Public property to expose the table<br />
	Public Property App() As DataTable<br />
		Get<br />
			If mvApp Is Nothing Then<br />
				mvApp = LoadApp()<br />
			End If<br />
			Return mvApp<br />
		End Get<br />
		Set(ByVal Value As DataTable)<br />
			'this allows the system to reload the table when the value is nothing<br />
			mvApp = Value<br />
		End Set<br />
	End Property<br />
<br />
	Private Function LoadApp() As DataTable<br />
		' Load the app table from the database<br />
		Dim oClass As New clsApp<br />
		Return oClass.GetRecord(cAllRecords)<br />
	End Function

tibmark wrote:

What is the best way to store a small amount of data that the user does not have access to

Chun2 wrote:

Does that mean I cannot develop programs on Vista and distribute it to XP customers?