Source of my screenshot taker(messy):
Code:
Public Class Form1
Dim dt As String
Dim name1 As String
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bmp.Checked = My.Settings.bmp
jpeg.Checked = My.Settings.jpeg
gif.Checked = My.Settings.gif
tiff.Checked = My.Settings.tiff
png.Checked = My.Settings.png
If My.Settings.path = "" Then
My.Settings.path = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
End If
TextBox1.Text = My.Settings.path
End Sub
Private Sub checkformat()
If bmp.Checked = True Then
PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".bmp", Drawing.Imaging.ImageFormat.Bmp)
ElseIf gif.Checked = True Then
PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".gif", Drawing.Imaging.ImageFormat.Gif)
ElseIf png.Checked = True Then
PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".png", Drawing.Imaging.ImageFormat.Png)
ElseIf tiff.Checked = True Then
PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".tiff", Drawing.Imaging.ImageFormat.Tiff)
ElseIf jpeg.Checked = True Then
PictureBox1.Image.Save(TextBox1.Text & "\" & name1 & ".jpeg", Drawing.Imaging.ImageFormat.Jpeg)
End If
End Sub
Private Sub ss()
My.Settings.Save()
My.Settings.Reload()
End Sub
Private Sub bmp_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bmp.CheckedChanged
My.Settings.bmp = bmp.Checked
ss()
End Sub
Private Sub jpeg_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jpeg.CheckedChanged
My.Settings.jpeg = jpeg.Checked
ss()
End Sub
Private Sub gif_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gif.CheckedChanged
My.Settings.gif = gif.Checked
ss()
End Sub
Private Sub png_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles png.CheckedChanged
My.Settings.png = png.Checked
ss()
End Sub
Private Sub tiff_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tiff.CheckedChanged
My.Settings.tiff = tiff.Checked
ss()
End Sub
Private Sub taskbar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles taskbar.CheckedChanged
My.Settings.taskbar = taskbar.Checked
ss()
If taskbar.Checked = True Then
Me.ShowInTaskbar = True
Else
Me.ShowInTaskbar = False
End If
End Sub
Private Sub hotkeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hotkeys.Tick
dt = Date.Today & " " & TimeOfDay
Dim f8 As Boolean
f8 = GetAsyncKeyState(Keys.F8)
If f8 = True Then
SendKeys.SendWait("{PRTSC}")
Application.DoEvents()
Try
PictureBox1.Image = My.Computer.Clipboard.GetImage
Application.DoEvents()
name1 = dt.Replace(":", ".")
checkformat()
Catch
MsgBox(ErrorToString)
End Try
End If
End Sub
Private Sub ShowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowToolStripMenuItem.Click
Me.Show()
End Sub
Private Sub HideToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HideToolStripMenuItem.Click
Me.Hide()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fbd As New FolderBrowserDialog
fbd.ShowDialog()
TextBox1.Text = fbd.SelectedPath
My.Settings.path = TextBox1.Text
ss()
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
My.Settings.path = TextBox1.Text
ss()
End Sub
Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
Me.Show()
End Sub
End Class