Visual Basic Opacity Changer

This Is My Opacity Changer With A Colour Changer!!!!!

Codes:

Form 1:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Form2.Show() End Sub

Form2 :

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated TrackBar1.SetRange(1, 100) TrackBar1.Value = 100 End Sub Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll Form1.Opacity = TrackBar1.Value / 100 Label2.Text = TrackBar1.Value End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged Form1.BackColor = Color.Black End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged Form1.BackColor = Color.Gold End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged Form1.BackColor = Color.Purple End Sub Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged Form1.BackColor = Color.Red End Sub Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged Form1.BackColor = Color.Blue End Sub Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged Form1.BackColor = Color.Green End Sub Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged Form1.BackColor = Color.Yellow End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Form1.Close() Me.Close() End Sub

Category:

Education

Tags:

• Visual
• Basic
• Urmum156
• Youtube
• Opacity
• Changer
• Colour
• 2010
• Tranparent
• Transparency