.:KeihanCPU:.
چهارشنبه 25 دی 1387, 23:48 عصر
سلام.
من از این کد برای عکس گرفتن از صفحه نمایش استفاده میکنم.
Private Sub GetPicture()
Dim I As Integer
I = Screen.PrimaryScreen.WorkingArea.Width
Dim h As Integer = Screen.PrimaryScreen.WorkingArea.Height
Dim bim As New Bitmap(I, h)
Dim g As Graphics = Graphics.FromImage(bim)
Dim siz As Drawing.Size
Dim PT As String
siz.Width = I
siz.Height = h
g.CopyFromScreen(0, 0, 0, 0, siz)
PT = GetSetting("SysPro", "Setting", "SavePath")
For q = 1 To 1000000
If IO.File.Exists(PT & "\" & q & ".jpg") = False Then
bim.Save(PT & "\" & q & ".jpg")
Exit For
End If
Next
اما این کد و کدهای مشابه نمیتونن از فیلمهایی که مثلا در مدیا پلیر یا هر نرم افزار دیگه عکس بگیرن و تصویر فیلم رو سیاه نشون میده.
میخواستم بدونم علت چیه؟و برای حل این مشکل چه باید کرد
من از این کد برای عکس گرفتن از صفحه نمایش استفاده میکنم.
Private Sub GetPicture()
Dim I As Integer
I = Screen.PrimaryScreen.WorkingArea.Width
Dim h As Integer = Screen.PrimaryScreen.WorkingArea.Height
Dim bim As New Bitmap(I, h)
Dim g As Graphics = Graphics.FromImage(bim)
Dim siz As Drawing.Size
Dim PT As String
siz.Width = I
siz.Height = h
g.CopyFromScreen(0, 0, 0, 0, siz)
PT = GetSetting("SysPro", "Setting", "SavePath")
For q = 1 To 1000000
If IO.File.Exists(PT & "\" & q & ".jpg") = False Then
bim.Save(PT & "\" & q & ".jpg")
Exit For
End If
Next
اما این کد و کدهای مشابه نمیتونن از فیلمهایی که مثلا در مدیا پلیر یا هر نرم افزار دیگه عکس بگیرن و تصویر فیلم رو سیاه نشون میده.
میخواستم بدونم علت چیه؟و برای حل این مشکل چه باید کرد