Reply to thread

Message: <blockquote data-quote="Ranhiru" data-source="post: 3253957" data-attributes="member: 17748">Well ill post one of my codes! If any of you have downloaded my software and checked the About part in the program it gives a flashing color background and music and scrolling text <img src="/styles/default/xenforo/smilies/default/D.gif"  class="smilie" loading="lazy" alt=":D" title="Big grin    :D" data-shortname=":D" /> So here's how you do itLanguage : VB .NETCreate a Timer. This timer takes care of the flashing color background[CODE]Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        Dim Red, Green, Blue As Integer        Red = Int((255 - 0 + 1) * Rnd() + 0)        Green = Int((255 - 0 + 1) * Rnd() + 0)        Blue = Int((255 - 0 + 1) * Rnd() + 0)        Me.BackColor = Color.FromArgb(Red, Green, Blue)    End Sub[/CODE]Create another Timer. This timer takes care of the scrolling text. If the Location is 110 which is the position where my text should stop, the timer is disabled[CODE]Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick        Label1.Location = New Point(35, Label1.Location.Y - 1)        If Label1.Location.Y = 110 Then            Timer2.Enabled = False            Button1.Visible = True        End If    End Sub[/CODE]And finally the music. The music is an embedded resource (wav) in the resource file and will be played when the form loads[CODE]Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        My.Computer.Audio.Play(My.Resources.Wasath_Kalaye___IntenZe_Ft__Dirty_X_from_ELAKIRI_COM__Custom_, AudioPlayMode.Background)    End Sub[/CODE]</blockquote>

Verification: Payakata winadi keeyak tibeda?

Top Bottom