08-11-18, 04:30 AM
(آخر تعديل لهذه المشاركة : 08-11-18, 04:31 AM {2} بواسطة ScreamVoice.)
السلام عليكم ورحمة الله وبركاته
كنت عايز تعديل علي كود سكرين شوت بستخدمه وهو
لما بضغط علشان ياخد شوت سكرين بيطلع بالشكل دا
ممكن تعديل الكود يحيث الصوره تبقي فول سكرين طبيعيه
وترجع تاني بعد الالتقاط
ولو الماوس يختفي من الصوره يبقي احسن
وشكرا
كنت عايز تعديل علي كود سكرين شوت بستخدمه وهو
كود :
Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
Try
AxVLCPlugin21.video.fullscreen = True
Threading.Thread.Sleep(1000)
PictureBox12.Image = GetScreen()
Threading.Thread.Sleep(1000)
AxVLCPlugin21.video.fullscreen = False
Catch ex As Exception
MessageBox.Show(ex.Message, "get Desktop Image", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Try
Dim SavePath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\myDesktopImage.jpg"
SavePath = NextAvailableFilename(SavePath)
PictureBox12.Image.Save(SavePath, Imaging.ImageFormat.Jpeg)
Catch ex As Exception
MessageBox.Show(ex.Message, "Save Image", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
لما بضغط علشان ياخد شوت سكرين بيطلع بالشكل دا
ممكن تعديل الكود يحيث الصوره تبقي فول سكرين طبيعيه
وترجع تاني بعد الالتقاط
ولو الماوس يختفي من الصوره يبقي احسن
وشكرا