史萊姆論壇

返回   史萊姆論壇 > 綜合討論二區 > 生活話題、日常閒聊、喇勒唬爛灌水區
忘記密碼?
論壇說明

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』


 
 
主題工具 顯示模式
舊 2017-06-28, 09:08 PM   #2 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:99 | 在線時長:10207小時 | 升級還需:193小時級別:99 | 在線時長:10207小時 | 升級還需:193小時級別:99 | 在線時長:10207小時 | 升級還需:193小時級別:99 | 在線時長:10207小時 | 升級還需:193小時級別:99 | 在線時長:10207小時 | 升級還需:193小時級別:99 | 在線時長:10207小時 | 升級還需:193小時級別:99 | 在線時長:10207小時 | 升級還需:193小時級別:99 | 在線時長:10207小時 | 升級還需:193小時級別:99 | 在線時長:10207小時 | 升級還需:193小時
註冊日期: 2002-12-07
文章: 13530
精華: 0
現金: 26949 金幣
資產: 3024879 金幣
預設

以前在WinXP+VB6 時有接觸過螢幕截圖
找了一下還蠻單純的

使用三個 WinAPI
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hDC As Long) As Long

程式碼:
PHP 語法:
Private Sub mCopyScreen_Click()

    
Dim hDC As Longsx As Integersy As Integer
    
    Me
.Hide
    DoEvents    
' 若不執行此一敘述,可讓 Me.Hide 不會即時被執行
    
    picCopy.Width = Screen.Width
    picCopy.Height = Screen.Height
    
    picCopy.AutoRedraw = True
    
    ' 
圖像的轉移
    hDC 
GetDC(0)                              ' 取得螢幕DC
    sx = Screen.Width \ Screen.TwipsPerPixelX   ' 
螢幕寬度(以Pixel為單位)
    
sy Screen.Height Screen.TwipsPerPixelY  ' 螢幕高度(以Pixel為單位)
    ' 
將螢幕DC的圖像轉移到名稱為picCopy的PictureBox中
    BitBlt picCopy
.hDC00sxsyhDC00vbSrcCopy
    ReleaseDC 0
hDC                            ' 釋放螢幕DC
    
    picCopy.AutoRedraw = False
    
    SetPicture      ' 
設定 PictureBox 與捲動軸之間的關係
    Me
.Show

End Sub 
(試了一下在Windows 10依舊可執行)

只要看得懂要翻譯成C/C++應該很簡單

HyperSnap 除了截圖
就是喜好他的畫箭頭與文字框
拿來製作簡單的說明用圖解很好用
不過覺得要用向量製圖還是首推
Corel Draw 或 Adobe Illustrator
只是屬於大型套裝軟體開啟速度不如HyperSnap
所以目前還是偏好HyperSnap
mini 目前線上  
送花文章: 2060, 收花文章: 8087 篇, 收花: 26943 次
回覆時引用此帖
向 mini 送花的會員:
魔術王子 (2017-06-28)
感謝您發表一篇好文章
 



發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
請問有能介紹一下電腦硬體裝修"乙級技術士內容 editer0246 硬體疑難使用問題討論區 7 2003-09-02 05:00 PM
有沒有辦法"網路"控制 vincent3358 一般電腦疑難討論區 0 2003-08-30 02:36 PM
求助一台"完全能破防烤"的燒錄器 geneming 硬體疑難使用問題討論區 8 2003-08-30 01:13 PM


所有時間均為台北時間。現在的時間是 09:18 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2026, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1