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

[saeed_rezaei]

سلام
آیا واسه شما هم پیش اومده که بنا به دلایلی، مثلا ساخت 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")


http://barnamenevis.org/forum/e:%5Csa.jpg