12
返回列表 上一主題 發帖

[原創] Print Screen 程式

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-8-14 11:16 | 只看該作者

[原創] Print Screen 程式

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

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

PrintScreen.zip (6.68 KB)
  1. Public Class Form1
  2.     Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Short

  4.     Private WithEvents tmr As New Timer

  6.     Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  7.         tmr.Interval = 200
  8.         tmr.Start()
  9.     End Sub

  11.     Private Sub tmr_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles tmr.Tick
  12.         If GetAsyncKeyState(Keys.PrintScreen) Then
  13.             Dim myImg As Image = Clipboard.GetImage()
  14.             myImg.Save(Environment.GetFolderPath(Environment.SpecialFolder.MyPictures) & "\PrintScreen.jpg")
  15.         End If
  16.     End Sub
  17. End Class
複製代碼
9 樓有新程式
1

評分人數

    • Min: 非常感謝您無私的分享!金錢 + 1
收藏 分享

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2010-8-15 15:34 | 只看該作者
回復 1# ivanyung
感謝先進ivanyung您寫的這個螢幕擷取程式
可以請問您

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

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

TOP

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
3#
發表於 2010-8-15 21:06 | 只看該作者
本帖最後由 ivanyung 於 2010-8-15 21:11 編輯

回復 2# PD961A

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

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

TOP

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
4#
發表於 2010-8-15 21:49 | 只看該作者
至於這個... 暫時功力不足.....
請問您這個程式是否也能截取.當滑鼠"按右鍵"後出現的那段畫面...

TOP

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
5#
發表於 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, 鍵入名稱即可.
ImageCroppingDemo.zip (10.26 KB)

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2010-8-17 08:55 | 只看該作者
回復 5# ivanyung


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

2.jpg



4.jpg
學如逆水行舟 不進則退

TOP

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
7#
發表於 2010-8-18 21:33 | 只看該作者
回復  ivanyung


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



經測試... 真的很模糊... 這個技術上有待改進‧小弟是業餘玩玩，莫怪‧

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

TOP

PD961A

帖子
1180 
主題
204 
精華
0 
積分
1051 
點名
0  
作業系統
Mac.OS10.6 
軟體版本
Office 2003 
閱讀權限
100 
性別
男 
註冊時間
2010-5-3 
最後登錄
2012-9-19 

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 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個敘述..是感謝您...謝謝!
學如逆水行舟 不進則退

TOP

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
9#
發表於 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 ..............
CropScreen.zip (75.21 KB)

TOP

ivanyung

帖子
49 
主題
5 
精華
0 
積分
92 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2011-10-19 
10#
發表於 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 鍵即可擷取, 圖片會儲存到我的圖片裡.



CropScreen.zip (110.67 KB)

Project Completed.

TOP

        靜思自在 : 話多不如話少，話少不如話好。
12
返回列表 上一主題