Screenshoter - 簡易截圖程式 VB.net

這是Google來的~改了一小部分...
我其實很久以前就看過有人寫這樣的東東~只是不知道丟哪去了...
其實是在寫程式的時候一直切換視窗很煩就想說拍下來比較快XD


一個 Form 一個 PictureBox 足以~

  1. Public Class Form1
  2.     Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click '點擊執行
  3.         Opacity = 0 '視窗透明(不然會照到自己)
  4.         Dim ScrnPB As PictureBox = PictureBox1
  5.         Dim ScrnSize As Size = My.Computer.Screen.Bounds.Size
  6.         Dim ScrnImage As New Bitmap(ScrnSize.Width, ScrnSize.Height)
  7.         Dim g As Graphics = Graphics.FromImage(ScrnImage)
  8.         g.CopyFromScreen(New Point(Me.Left + 8, Me.Top + 30), New Point(0, 0), ScrnSize) '以自己視窗為始點修正偏移
  9.         Dim dc As IntPtr = g.GetHdc
  10.         g.ReleaseHdc(dc)
  11.         With ScrnPB '使大小相同
  12.             .Size = ScrnSize
  13.             .Image = ScrnImage
  14.         End With
  15.         Opacity = 70 '視窗透明度70%
  16.     End Sub
  17. End Class
複製代碼

留言

本月最夯

偷用電腦,怎知?事件檢視器全記錄!(開機時間、啟動項時間...)

楓之谷洋蔥4.1.2 - 最後更新日期04/03