14/03/08 14:28
crash outside control
Public Class Form1
Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
keybd_event(&H2C, 0, 0, 0)
keybd_event(&H2C, 0, &H2, 0)
'aspetta un po'
Sleep(500)
PictureBox1.Image = Clipboard.GetDataObject().GetData(DataFormats.Bitmap)
Dim a As String = "c:\immagine.bmp"
PictureBox1.Image.Save(a)
End Sub
End Class
Spero sia quello che cercavi
aaa