آیا تا به حال شما هم خواستید که از desktop عکس بگیرید (Capture)

سلام
آیا واسه شما هم پیش اومده که بنا به دلایلی، مثلا ساخت screensaver بخواید که از desktop و آیکنهای روش عکس بگیرید.

 

PrivateSub btn_capture_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_capture.Click

Dim w AsInteger = Screen.PrimaryScreen.WorkingArea.Width

Dim h AsInteger = Screen.PrimaryScreen.WorkingArea.Height

Dim bim AsNew Bitmap(w, h)

Dim g As Graphics = Graphics.FromImage(bim)

Dim siz As Drawing.Size

 

Me.Visible = False

siz.Width = w

siz.Height = h

g.CopyFromScreen(0, 0, 0, 0, siz)

Me.BackgroundImage = bim

Me.Visible = True

EndSub

 

دراین کد من یه تصویر از desktop گرفتم و اون رو در پس زمینه فرمم نشون می دم. شما می تونید bim رو که تصویر در اون ذخیره شده رو در یک فایل ذخیره کنید.

 bim.Save("d:\test.jpg")

https://barnamenevis.org/e:%5Csa.jpg