.:: .:: Lib-Code - VB.NET - Blinking Forms ::. ::.

C++ PHP Java Linux & UNIX ColdFusion Visual Basic ActionScript CGI/Perl JavaScript HTML/CSS Other Languages Bash ASP C mySQL Python C# Assembly VB.NET Scheme Ruby





Blinking Forms






IP Resolution






Open CD tray using VB.NET






Computer beep using API






Open a Folder Browse Dialog window






Load bitmap into PictureBox using OpenFileDialog






Running an external executable file






Determining if an external file exists






Use KeyChar to limit the characters that can be entered into a Text Bo..






Dice Roller






Recursively delete a directory






RegEdit






Resize Image






Populating ListBoxes






Using ColorDialog boxes in code






Calorie Counter






Microsoft Access connection






List Tables In Database






2005 Tax Information in code






Stooge Sort






Shell sort






Selection Sort






Insertion Sort






Non- numeric patterns






IsPrime






Generate image a la bitmap






Save bitmap as a bitmap file.






Remove multiple spaces form string recursively






Class Root






Change bitmaps certain color transparency






Catching ArithmeticException






Tic Tac Toe






Multi-threading with background worker






My Quiz






Restart a program






2007 Federal Tax rate information in code






VB.net web syntax color up  [ Demo ]






Control Arrays in VB 2005






Create Control Arrays at runtime in VB 2005 with Events






IsPalindrome






Drag & Drop






Create an application desktop toolbar






Add a richtextbox to application desktop toolbar dynamicly






How to google for brains






Pong






Limiting List Box Selections






Clear All Routine






Abort Windows Shutdown






In Code Timer






Bubble Sort






File Search Engine






Quick make a random string






How to change the font of a textbox






Flash Cards (Can be used for other purposes)






Get global mouse positions class






Global screen_capture class






Get all IP address on a LAN (w/o Active Directory)






Write to the System Event Log






Temperature Converter






XCopy in VB.Net






Get connection string from app.config






GetBindingSource






Check to see if user is trying to open 2nd instance of application






Get all child subkeys for a specified subkey






Multiplication Table






Convert ArrayList to delimited file






Bind a control to an enumeration






SQL SELECT statement using forms






SQL INSERT statement using forms






SQL DELETE statement using forms






SQL UPDATE statement using forms






Class using linked list of (string;integer) to parse string(complex pa..






VB.Net XCOPY






Read the web page and retrieve the URL links in it.






Mouse drag event addition






ReplaceFile






How to move a control at run-time






Message box






Spoof you are online on a message board, etc.






Embedded Images in XML






Log Off/ Shutdown / Restart / Hibernate Class






Run program outside vb






Convert Internet Slang into readable sentences.






Validate email address with Regular Expressions






Validate IP address with Regular Expression






Validate IP address with TryParse






Study cards






Retrieve a list of colors in VB.Net






Verify Active Directory login in VB.Net






Retrieve Active Directory login






Convert delimited file to a DataSet






Read from Excel sheet and populate a DataSet

Code : VB.NET - BLINKING FORMS

Code Discription : Get that having-trouble-starting effect where the box blinks real fast. Also includes full fade in finale to reduce jumpy views

Right Click And Copy This Code

Public Class Frame1

    Private Sub Frame1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Opacity = 0
        Call InitializeTimer()
    End Sub

    Private Sub InitializeTimer()
        " Set timer1 to 2 seconds.
        Timer1.Interval = 2000
        "Set timer2 to .001 second
        Timer2.Interval = 1
        " Enable timers.
        Timer1.Enabled = True
        Timer2.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal Sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        " Stops all timers and blinking effects
        Timer1.Enabled = False
        Timer2.Enabled = False
        " Fade to full opacity
        While (Me.Opacity < 1)
            Me.Opacity = Me.Opacity + 0.02
        End While
    End Sub

    Private Sub Timer2_Tick(ByVal Sender As Object, ByVal e As EventArgs) Handles Timer2.Tick
        " Create 2 random numbers
        Dim randx As Double = Rnd()
        Dim randy As Integer = CInt(Int((65 * Rnd()) + 1))
        " Set random opacity for blinking effect
        Me.Opacity = randx
        " Reset timer
        Timer2.Interval = randy
    End Sub

End Class