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
In questa pagina del sito puoi guardare il video online Visual Basic Opacity Changer della durata di ore minuti seconda in buona qualità , che l'utente ha caricato Darren Chow 02 luglio 2010, condividi il link con amici e conoscenti, su youtube questo video è già stato visto 725 volte e gli è piaciuto 1 spettatori. Buona visione!
