|
Takvim |
| | Pzt | Sal | Çar | Per | Cum | Cmt | Paz |
|---|
| 29 | 30 | 31 | 1 | 2 | 3 | 4 | | 5 | 6 | 7 | 8 | 9 | 10 | 11 | | 12 | 13 | 14 | 15 | 16 | 17 | 18 | | 19 | 20 | 21 | 22 | 23 | 24 | 25 | | 26 | 27 | 28 | 29 | 30 | 31 | 1 | | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
|
|
|
|
|
VB.Net ile Print Screen |
|
|
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal iFlags As Integer, ByVal iExtraInfo As Integer)
Const cPrntScrn As Short = &H2CS
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
keybd_event(cPrntScrn, 0, 0, 0)
Dim IDO As IDataObject = Clipboard.GetDataObject()
Dim iImage As Image = CType(IDO.GetData(DataFormats.Bitmap), Image)
Me.BackgroundImage = iImage
End Sub |
|
|
|
Eklenme Tarihi: 14.12.2007 10:09:00
|
|