عکس گرفتن از دسکتاب با vb.net

[AmiRReZzZzA]

سلام دوستان عزیز می خواستم بدونم چجوری با vb از دسکتاب عکس بگیریم ؟ ؟ اگه سورسی چیزی دارین ممنون میشم :لبخند:

[JaVa]

سلام و...




Public Class Form1


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



End Sub
''' <summary>
''' این متد جهت ذخیره عکس مورد نظر بکار می رود
''' </summary>
''' <param name="b"></param>
''' <remarks></remarks>
Private Sub SaveImage(ByVal b As Bitmap)
b.Save("C:\image.bmp")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim graph As Graphics = Nothing
Try
Dim bmp As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
graph = Graphics.FromImage(bmp)
graph.CopyFromScreen(0, 0, 0, 0, bmp.Size)
SaveImage(bmp)
Finally
graph.Dispose()
End Try
End Sub
End Class

[alimanam]

با سلام


سلام دوستان عزیز می خواستم بدونم چجوری با vb از دسکتاب عکس بگیریم ؟ ؟ اگه سورسی چیزی دارین ممنون میشم

از خود دسکتاپ میخوای عکس بگیری یا از مانیتور ( صفحه فعال ) ؟

[AmiRReZzZzA]

با سلام



از خود دسکتاپ میخوای عکس بگیری یا از مانیتور ( صفحه فعال ) ؟

صفحه فعال

دوسته عزیز mrg_vb جواب دادن و کار کرد فقط 1 مشکل داره که عکس رو فقط با 1 اسم save می کنه . چیکارکنم که با اسم های مختلف save کنه ؟

[JaVa]

کارکنم که با اسم های مختلف save کنه ؟

منظورتون همینه:


Public Class Form1

''' <summary>
''' این متد جهت ذخیره عکس مورد نظر بکار می رود
''' </summary>
''' <param name="b"></param>
''' <remarks></remarks>
'''
Dim sfd As New SaveFileDialog

Private Sub SaveImage(ByVal b As Bitmap)
With sfd
.DefaultExt = "bmp"
.AddExtension = True

.Title = "ذخیره تصویر"
If .ShowDialog = Windows.Forms.DialogResult.OK Then
b.Save(.FileName)
End If
End With

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim graph As Graphics = Nothing
Try
Dim bmp As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
graph = Graphics.FromImage(bmp)
graph.CopyFromScreen(0, 0, 0, 0, bmp.Size)
SaveImage(bmp)
Finally
graph.Dispose()
End Try
End Sub
End Class

[AmiRReZzZzA]

منظورتون همینه:


Public Class Form1

''' <summary>
''' این متد جهت ذخیره عکس مورد نظر بکار می رود
''' </summary>
''' <param name="b"></param>
''' <remarks></remarks>
'''
Dim sfd As New SaveFileDialog

Private Sub SaveImage(ByVal b As Bitmap)
With sfd
.DefaultExt = "bmp"
.AddExtension = True

.Title = "ذخیره تصویر"
If .ShowDialog = Windows.Forms.DialogResult.OK Then
b.Save(.FileName)
End If
End With

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim graph As Graphics = Nothing
Try
Dim bmp As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
graph = Graphics.FromImage(bmp)
graph.CopyFromScreen(0, 0, 0, 0, bmp.Size)
SaveImage(bmp)
Finally
graph.Dispose()
End Try
End Sub
End Class

مرسی از زحمتت ولی منظوره من این نبود ..

منمیخوام تو همون فایله مثلا c خودش عکس رو بسازه ولی با اسم های مختلف ماله شما اولین سورستون با اسم image میسازه و دومی هم باید خودمون انتخاب کنیم من میخوام همه ی اسم هارو خودش بده و با هم فرق داشته باشن

[JaVa]

فکر کنم همینه دیگه :گیج:



Public Class Form1
Private Sub SaveImage(ByVal b As Bitmap)
Dim stri As String

stri = Now.TimeOfDay.TotalMilliseconds

b.Save("C:\" & CStr(stri) & ".bmp")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim graph As Graphics = Nothing
Try
Dim bmp As Bitmap = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
graph = Graphics.FromImage(bmp)
graph.CopyFromScreen(0, 0, 0, 0, bmp.Size)
SaveImage(bmp)
Finally
graph.Dispose()
End Try
End Sub
End Class

[AmiRReZzZzA]

مرسی داداش خیلی خوب بود :d