Imports System
Imports System.IO
Imports System.Drawing
Imports System.Environment
Imports System.Exception
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.WindowState = FormWindowState.Minimized
ScreenShot.Save(TextBox1.Text)
End Sub
Public Shared Function ScreenShot() As Bitmap
SendKeys.SendWait("^{PRTSC}")
Dim Obj As IDataObject = Clipboard.GetDataObject
If (Obj.GetDataPresent(DataFormats.Bitmap)) Then
Dim Img As Bitmap = New Bitmap(CType((Obj.GetData("System.Drawing.Bitmap")), Bitmap))
Return Img
End If
Return Nothing
End Function
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Dir
If Directory.Exists(TextBox2.Text) Then
MessageBox.Show("La Cartella Esiste!", "Control Directory", MessageBoxButtons.OK)
Else
Dir = MessageBox.Show("La Cartella Non Esiste!Vuoi Crearla?", "Create Directory", MessageBoxButtons.YesNo)
If Dir = vbYes Then
Directory.CreateDirectory(TextBox2.Text)
MessageBox.Show("Directory Creata!", "Create Directory", MessageBoxButtons.OK)
Else
MessageBox.Show("La Directory Non è Stata Creata!", "Create Directory", MessageBoxButtons.OK)
End If
End If
End Sub
End Class