1234567891011121314151617181920212223242526272829303132333435363738394041424344454647 |
- Public Class Background
- Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width
- Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
- Private Sub Background_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Me.Top = 0
- Me.Left = 0
- Me.Width = screenWidth
- Me.Height = screenHeight
- Panel1.Width = Me.Width / 2
- Panel2.Width = Me.Width / 2
- Panel1.Left = 0
- Panel2.Left = 0 + Panel1.Width
- For FadeIn = 0.0 To 1.1 Step 0.02
- Me.Opacity = FadeIn
- Me.Refresh()
- Threading.Thread.Sleep(10)
- Next
- End Sub
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- screenWidth = Screen.PrimaryScreen.Bounds.Width
- screenHeight = Screen.PrimaryScreen.Bounds.Height
- Me.Top = 0
- Me.Left = 0
- Me.Width = screenWidth
- Me.Height = screenHeight
- End Sub
- Private Sub Panel1_MouseClick(sender As Object, e As MouseEventArgs) Handles Panel1.MouseClick
- On Error Resume Next
- If Main.CheckBox2.Checked = True Then
- Main.MainVolDown()
- End If
- End Sub
- Private Sub Panel2_MouseClick(sender As Object, e As MouseEventArgs) Handles Panel2.MouseClick
- On Error Resume Next
- If Main.CheckBox2.Checked = True Then
- Main.MainVolUP()
- End If
- End Sub
- End Class
|