Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.ComponentModel
- Imports System.Runtime.InteropServices
- Public Class Form1
- Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
- Close()
- End Sub
- Dim czas_do
- Dim czas_od
- Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- If (My.Settings.Liczenie = "tak") Then
- czas_do = My.Settings.Czas_Odliczony
- czas_od = My.Settings.Czas_Odliczony
- Timer1.Start()
- PictureBox3.Hide()
- NumericUpDown1.Hide()
- Call EnableScreenSaver(False)
- Else
- End If
- End Sub
- Public Const WM_NCLBUTTONDOWN As Integer = &HA1
- Public Const HT_CAPTION As Integer = &H2
- <DllImportAttribute("user32.dll")>
- Public Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
- End Function
- <DllImportAttribute("user32.dll")>
- Public Shared Function ReleaseCapture() As Boolean
- End Function
- Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown, PictureBox2.MouseDown
- If e.Button = Windows.Forms.MouseButtons.Left Then
- ReleaseCapture()
- SendMessage(Handle, WM_NCLBUTTONDOWN, HT_CAPTION, 0)
- End If
- End Sub
- Dim czas = 0
- Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
- My.Settings.Reset()
- PictureBox3.Hide()
- Label2.Text = NumericUpDown1.Value.ToString
- If NumericUpDown1.Value = 0 Then
- czas_do = NumericUpDown1.Value + 1
- Else
- czas_do = NumericUpDown1.Value
- End If
- NumericUpDown1.Hide()
- Timer1.Start()
- Call EnableScreenSaver(False)
- My.Settings.Liczenie = "tak"
- My.Settings.Czas_Ustawiony = czas_do
- My.Settings.Save()
- End Sub
- Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
- End Sub
- Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
- If My.Settings.Liczenie = "tak" Then
- Dim result As Integer = MessageBox.Show("Czy naprawdę chcesz ten licznik który teraz liczy zrestartować?", "Uwaga!", MessageBoxButtons.YesNo)
- If result = DialogResult.No Then
- ElseIf result = DialogResult.Yes Then
- My.Settings.Reset()
- Application.Exit()
- End If
- Else
- My.Settings.Reset()
- Application.Exit()
- End If
- End Sub
- Dim czas_ile
- Dim sek
- Dim sek2
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- sek = sek + 1
- If sek = 1 Then
- czas_ile = czas_ile + 1
- czas = czas_do - czas_ile * System.Math.PI / (System.Math.PI * 3.14) * 2 * Int(Rnd() * 100) + 1
- czas_od = czas
- Label2.Text = czas
- sek = 0
- My.Settings.Czas_Odliczony = czas
- 'My.Settings.Save()
- If czas = 0 Then
- czas_do = 1
- czas = 0
- czas_ile = 0
- My.Computer.Audio.PlaySystemSound(
- System.Media.SystemSounds.Asterisk)
- MsgBox("Odliczanie zakończone!" + vbNewLine + "Aby zamknąć okno naciśnij ""Ok"" lub klawisz ESC(ESCAPE)", MsgBoxStyle.SystemModal)
- Label2.Text = "Koniec odliczania"
- 'My.Settings.Reset()
- PictureBox3.Show()
- NumericUpDown1.Show()
- Timer1.Stop()
- End If
- End If
- End Sub
- Private Const SPI_SETSCREENSAVEACTIVE = 17
- Private Declare Function SystemParametersInfo Lib "user32" _
- Alias "SystemParametersInfoA" (ByVal uAction As Long,
- ByVal uParam As Long, ByVal lpvParam As Long,
- ByVal fuWinIni As Long) As Long
- Public Function EnableScreenSaver(ByVal bStatus As Boolean) As Boolean
- Dim lActiveFlag As Long
- Dim lRetval As Long
- lActiveFlag = IIf(bStatus, 1, 0)
- lRetval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, lActiveFlag, 0, 0)
- If lRetval > 0 Then
- EnableScreenSaver = True
- Else
- EnableScreenSaver = False
- End If
- End Function
- Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
- Call EnableScreenSaver(True)
- If My.Settings.Liczenie = "tak" Then
- MsgBox("Trwa odliczanie!")
- e.Cancel = True
- End If
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement