既然能夠取得整個屏幕,可以取到整個屏幕以后創建一個全屏窗體顯示靜態的屏幕圖像,然后在窗體上實現部分截取。
網站設計、成都網站設計服務團隊是一支充滿著熱情的團隊,執著、敏銳、追求更好,是創新互聯的標準與要求,同時竭誠為客戶提供服務是我們的理念。創新互聯建站把每個網站當做一個產品來開發,精雕細琢,追求一名工匠心中的細致,我們更用心!
估計別的截圖也是這個原理,因為一點開始截圖屏幕就變為靜態不動了,肯定是在截圖初期復制了當時的屏幕場景
問題:引用原文:“要是換個思路,先截全屏,然后將窗體全屏,讓Picturebox占滿全屏幕,但是無論利用什么方法(最大化,boderstyle設為none)都遮擋不了任務欄。”
解決方法:經測試,代碼可以實現你得要求,即能遮擋任務欄。
設置:在窗體上添加一個PictureBox1,,dock屬性設置為Fill。隨便導入一張圖片用于顯示。
代碼如下:
Public?Class?Form1
Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load
Me.FormBorderStyle?=?Windows.Forms.FormBorderStyle.None
Me.WindowState?=?FormWindowState.Maximized
End?Sub
Private?Sub?PictureBox1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?PictureBox1.Click
Me.Close()
End?Sub
End?Class
程序截圖:
Me.Refresh()
Dim?memory?As?Image?=?New?Bitmap(Me.Width,?Me.Height)
Dim?g?As?Graphics?=?Graphics.FromImage(memory)
g.CopyFromScreen(Me.Left,?Me.Top,?0,?0,?New?Size(Me.Width,?Me.Height))?'這里是截屏核心代碼
Dim?FilePath?As?String?=?""
Dim?d?As?New?SaveFileDialog
d.Filter?=?"JPEG圖像|*.JPEG"
If?d.ShowDialog?=?Windows.Forms.DialogResult.OK?Then
FilePath?=?d.FileName
If?FilePath?=?""?Then?Exit?Sub
'If?FilePath.Substring(FilePath.Length?-?1,?1)??"\"?Then?FilePath?=?FilePath??"\"
Else
Exit?Sub
End?If
d.Dispose()
memory.Save(FilePath)
MessageBox.Show("圖像已經保存到:?"??FilePath,?"截圖成功",?MessageBoxButtons.OK,?MessageBoxIcon.Information)
INTOUCH自帶的就有,打印屏幕的命令
自己寫個時間條件運行那命令就可以了
PRINTSCREEN這個命令 具體怎么用 看下幫助
希望我的回答對你有所幫助
如有其他問題,可以繼續追問,您的采納是我前進的動力!
'沒辦法,需的把窗口隱藏一下,還的隱藏后延遲一下再截圖。
Dim?WithEvents?Timer1?As?New?Timer?With?{.Interval?=?30,?.Enabled?=?False}
Dim?Imgrect?As?Rectangle
Dim?img?As?Bitmap
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Imgrect?=?Me.RectangleToScreen(Me.ClientRectangle)
img?=?New?Bitmap(Imgrect.Width,?Imgrect.Height)
Me.Hide()
Timer1.Start()
End?Sub
Private?Sub?Timer1_Tick(ByVal?sender?As?Object,?ByVal?e?As?System.EventArgs)?Handles?Timer1.Tick
Timer1.Stop()
Graphics.FromImage(img).CopyFromScreen(Imgrect.X,?Imgrect.Y,?0,?0,?Imgrect.Size)
Me.BackgroundImage?=?img
Me.Show()
End?Sub
建立滾動條的方法如下:
(1)將鼠標移到ToolBox內的WinForm標簽頁的HscrollBar控件上,單擊鼠標左鍵。
(2)將指針移至窗體中適當的位置,按住鼠標左鍵并拖動鼠標將HscrollBar控件調整到合適的大小放開左鍵。
(3)同樣,再在Form上設置一個VscrollBar控件。
當前名稱:vb.net滾動截屏,截屏 滾動
文章源于:http://m.newbst.com/article24/phhgce.html
成都網站建設公司_創新互聯,為您提供軟件開發、網站策劃、外貿網站建設、、域名注冊、營銷型網站建設
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯