View Full Version : سوال: عکس گرفتن از دسکتاب با vb.net
AmiRReZzZzA
جمعه 27 مرداد 1391, 15:28 عصر
سلام دوستان عزیز می خواستم بدونم چجوری با vb از دسکتاب عکس بگیریم ؟ ؟ اگه سورسی چیزی دارین ممنون میشم :لبخند:
JaVa
جمعه 27 مرداد 1391, 16:02 عصر
سلام و...
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
جمعه 27 مرداد 1391, 16:11 عصر
با سلام
سلام دوستان عزیز می خواستم بدونم چجوری با vb از دسکتاب عکس بگیریم ؟ ؟ اگه سورسی چیزی دارین ممنون میشم
از خود دسکتاپ میخوای عکس بگیری یا از مانیتور ( صفحه فعال ) ؟
AmiRReZzZzA
جمعه 27 مرداد 1391, 16:27 عصر
با سلام
از خود دسکتاپ میخوای عکس بگیری یا از مانیتور ( صفحه فعال ) ؟
صفحه فعال
دوسته عزیز mrg_vb جواب دادن و کار کرد فقط 1 مشکل داره که عکس رو فقط با 1 اسم save می کنه . چیکارکنم که با اسم های مختلف save کنه ؟
JaVa
جمعه 27 مرداد 1391, 16:48 عصر
کارکنم که با اسم های مختلف 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
جمعه 27 مرداد 1391, 17:07 عصر
منظورتون همینه:
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
جمعه 27 مرداد 1391, 17:35 عصر
فکر کنم همینه دیگه :گیج:
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
جمعه 27 مرداد 1391, 17:41 عصر
مرسی داداش خیلی خوب بود :d
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.