Notes

KALKAN FORM
Public Class KalkanFrm


Private Sub KalkanFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Width = Screen.PrimaryScreen.Bounds.Width
Me.Height = Screen.PrimaryScreen.Bounds.Height

KalkanRengi = GetSetting(Application.ProductName, ProductName, "Kalkan Rengi", 1)
Select Case KalkanRengi
Case 1
Me.BackColor = Color.SteelBlue
Case 2
Me.BackColor = Color.Yellow
Case 3
Me.BackColor = Color.Red
Case 4
Me.BackColor = Color.Green
End Select
Timer1.Start()
End Sub

Private Sub KalkanFrm_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
On Error Resume Next
Select Case AnaFrm.SesCmb.SelectedIndex
Case 0
My.Computer.Audio.Play(Application.StartupPath & "sesKlik1.wav", AudioPlayMode.Background)
Case 1
My.Computer.Audio.Play(Application.StartupPath & "sesKlik1.wav", AudioPlayMode.Background)
Case 2
My.Computer.Audio.Play(Application.StartupPath & "sesKlik2.wav", AudioPlayMode.Background)
Case 3
My.Computer.Audio.Play(Application.StartupPath & "sesKlik3.wav", AudioPlayMode.Background)
End Select

End Sub

Private Sub KalkanFrm_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.F12 Then
AcceptButton = AnaFrm.KapatBtn
AnaFrm.KapatBtn.Text = "Gizle"
AnaFrm.Show()
AnaFrm.ParolaTxt.Focus()
End If
If e.KeyCode = Keys.F11 Then
AnaFrm.DosyaCalistir()
End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'Taskmanager ile kapatılmak istenirse Engelle

Try
Dim Engelle As Process
For Each Engelle In Process.GetProcesses

If Engelle.ProcessName = "taskmgr" Then
Engelle.Kill()
End If
Next Engelle

Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

Private Sub KalkanFrm_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
KilitPic.Top = 275
KilitPic.Left = 600
End Sub

Private Sub KalkanFrm_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
If e.CloseReason = CloseReason.TaskManagerClosing Then

e.Cancel = False
MessageBox.Show("Hey, du Schummler!!!" & vbNewLine & _
"Du darfst das Programm nicht abbrechen!" & vbNewLine & vbNewLine & _
"Leider wird das Beenden mitgeloggt, sodass deine" & vbNewLine & _
"Eltern das nachvollziehen können...", "Unerlaubte Beendigung", MessageBoxButtons.OK, MessageBoxIcon.Stop)

' Eintrag in Datenbank oder Datei...

Application.Exit()

End If

End Sub
End Class