- ©«¤l
- 49
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 92
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-7-31
- ³Ì«áµn¿ý
- 2011-10-19
|
¥»©«³Ì«á¥Ñ ivanyung ©ó 2010-8-20 21:18 ½s¿è
¬Ý¨ì½×¾Â¦³ªB¤Í·Qn¤@Ó Print Screen µ{¦¡, ³gª±ªº°µ¤F¤@Ó, °ò¥»¤W¨S¤°»ò¥\¯à¥i¨¥¡E
´N¬O¹B¦æµ{¦¡«á, «ö¤@¤U Print Screen, ´N·|±N²{¦æµe±Àx¨ì§Úªº¹Ï¤ù¸Ì¡E(filename : PrintScreen.jpg)
ªþ¤W¤w½s¦nªºµ{¦¡¤Îì¥N½X, ½Ð¶¦«K§ó§ï¡E
PrintScreen.zip (6.68 KB)
- Public Class Form1
- Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short
- Private WithEvents tmr As New Timer
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
- tmr.Interval = 200
- tmr.Start()
- End Sub
- Private Sub tmr_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles tmr.Tick
- If GetAsyncKeyState(Keys.PrintScreen) Then
- Dim myImg As Image = Clipboard.GetImage()
- myImg.Save(Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) & "\PrintScreen.jpg")
- End If
- End Sub
- End Class
½Æ»s¥N½X 9 ¼Ó¦³·sµ{¦¡ |
-
1
µû¤À¤H¼Æ
-
-
Min:
«D±`·PÁ±zµL¨pªº¤À¨É!ª÷¿ú + 1
|