Dec 1, 2013 11:28 AM
(This post was last modified: Dec 1, 2013 03:29 PM by Nervo.)
Well, today I was playing around with forms and animations and I came up with this:
Preview:
Spoiler (Click to View)
It's a simple animation you can use with your rat or whatever you want.
The form design is up to you, I made this just to show how it works.
Source:
Have fun! 🤝
Preview:
Spoiler (Click to View)
![[Image: QlHD9I0.gif]](https://i.imgur.com/QlHD9I0.gif)
It's a simple animation you can use with your rat or whatever you want.
The form design is up to you, I made this just to show how it works.
Source:
PHP Code
<?php
Imports System.Threading
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim t As New Thread(AddressOf MoveForm)
t.Start()
End Sub
Delegate Sub MoveFormDel()
Public Sub MoveForm()
If InvokeRequired = True Then
Invoke(New MoveFormDel(AddressOf MoveForm))
Else
Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width - Me.Width
Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height
Do While y <> Screen.PrimaryScreen.WorkingArea.Height - Me.Height
y -= 1
Me.Location = New Point(x, y)
Me.Refresh()
Threading.Thread.Sleep(10)
Loop
Threading.Thread.Sleep(1000)
Do While Me.Opacity <> 0
Me.Opacity -= 0.01
Threading.Thread.Sleep(20)
Loop
End If
End Sub
End Class
Have fun! 🤝
"Never be a spectator of unfairness or stupidity. Seek out argument and disputation for their own sake; the grave will supply plenty of time for silence." - C.H.
