麻辣家族討論版版 - Powered by Discuz! Board

標題: [原創] Print Screen 程式 [打印本頁]

作者: ivanyung 時間: 2010-8-14 11:16 標題: Print Screen 程式

本帖最後由 ivanyung 於 2010-8-20 21:18 編輯

看到論壇有朋友想要一個 Print Screen 程式, 貪玩的做了一個, 基本上沒什麼功能可言‧
就是運行程式後, 按一下 Print Screen, 就會將現行畫面儲到我的圖片裡‧(filename : PrintScreen.jpg)
附上已編好的程式及原代碼, 請隋便更改‧

[attach]2416[/attach]

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

複製代碼

9 樓有新程式

作者: PD961A 時間: 2010-8-15 15:34

回復 1# ivanyung
感謝先進ivanyung您寫的這個螢幕擷取程式
可以請問您

您圖片的路徑指定到"我的圖片"如果希望更改到其他指定資料夾..可以修改嗎?

另外試過您這程式後他是您的標題"PRINT SCREEN"的動作
在截圖軟體發文那篇是希望能針對，小區塊的截取畫面，不用再用其他軟體(例如小畫家)再去做處理.
請問您這個程式是否也能截取.當滑鼠"按右鍵"後出現的那段畫面...
謝謝您.....

作者: ivanyung 時間: 2010-8-15 21:06

本帖最後由 ivanyung 於 2010-8-15 21:11 編輯

回復 2# PD961A

基本上要儲存到那一個目錄也可以, 只是想做到最簡單.
同時按下 "alt + print screen". 即可取出現時視窗的圖片.

建議您可以先將目標視窗拉小至您喜歡的大小, 之後再按下 "alt + print screen"

作者: ivanyung 時間: 2010-8-15 21:49

至於這個... 暫時功力不足.....

請問您這個程式是否也能截取.當滑鼠"按右鍵"後出現的那段畫面...

作者: ivanyung 時間: 2010-8-16 22:14

回復 ivanyung
感謝先進ivanyung您寫的這個螢幕擷取程式
可以請問您

您圖片的路徑指定到"我的圖片"如 ...
PD961A 發表於 2010-8-15 15:34

http://www.codeproject.com/KB/graphics/image_croppingVBNet.aspx
剛剛根據了這個程式, 加入了 print screen 功能, 改好了,

用法:
按 print screen 後, 用 mouse 選定要取出的範圍, 再按 SAVE, 鍵入名稱即可.
[attach]2452[/attach]

作者: PD961A 時間: 2010-8-17 08:55

回復 5# ivanyung

謝謝 ivanyung先進
花時間寫這個程式
試完後..
擷取的畫面..會很模糊...
還是很謝謝您

[attach]2461[/attach]

[attach]2462[/attach]

[attach]2463[/attach]

作者: ivanyung 時間: 2010-8-18 21:33

回復 ivanyung

謝謝 ivanyung先進
花時間寫這個程式
試完後..
擷取的畫面..會很模糊...
還是 ...
PD961A 發表於 2010-8-17 08:55

經測試... 真的很模糊...

這個技術上有待改進‧小弟是業餘玩玩，莫怪‧

朋友幫忙測試一下這個新程式，會將現行畫面分成六個。這個用了另一種寫法，出來的畫面很清楚的。
[attach]2486[/attach]
用法：
按 print screen, 畫面會自動分成六個並 save 到我的圖片裡，filename is printscreen01 ... printscreen06

作者: PD961A 時間: 2010-8-19 17:25

回復 7# ivanyung

謝謝ivanyung先進
您的這個新程式，會將現行畫面分成六個。這個用了另一種寫法，出來的畫面很清楚的。
按 print screen, 畫面會自動分成六個並 save 到我的圖片裡，filename is printscreen01 ... printscreen06

1.他執行後每按一次print screen.就會覆蓋掉上次的那6個小圖..
2.要如何合併6個小圖成1張完整的原"print screen"螢幕整頁畫面?
您可以不用這麼辛苦..再"改良"這個程式...
以上2個敘述..是感謝您...謝謝!

作者: ivanyung 時間: 2010-8-19 21:16

回復 ivanyung

謝謝ivanyung先進
您的這個新程式，會將現行畫面分成六個。這個用了另一種寫法，出來的 ...
PD961A 發表於 2010-8-19 17:25

今次加入了全幅圖再加六幅小圖, 用時間來區分, 覆蓋的機會相對小了
filename :
全幅圖: PScrHHMMSSA.jpg
小圖: PScrHHMMSS01.jpg ... 06.jpg

其中:
A 字尾代表全幅圖
HH 代表時
MM 代表分
SS 代表秒

接著要 fine tune 這個小型 program ..............

[attach]2495[/attach]

作者: ivanyung 時間: 2010-8-20 21:16

本帖最後由 ivanyung 於 2010-8-21 10:11 編輯

20 - 8 - 2010 版本:
分成 2 種擷取模式:
1) 2 x 3 = 6 pictures
2) 3 x 4 = 12 pictures
程式執行後只會出現於通知區域內, 利用 mouse right click 會出現如下圖片, 即可選取 image size.

預設是 1) 2 x 3, 同樣是按 print screen 鍵即可擷取, 圖片會儲存到我的圖片裡.

[attach]2509[/attach]

[attach]2510[/attach]

Project Completed.

作者: PD961A 時間: 2010-8-21 21:53

回復 10# ivanyung

謝謝ivanyung您真的很熱心
這個PRINTSCREEN的小程式可以讓您變化到這樣
真是創新.....
針對單一區域您的選擇已可分切12(4x3)
已是相當不錯的PRINT SCREEN的程式了

謝謝您....

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)