Как сделать снимок (screenshot) и сохранить его в JPG?
Господа, помогите решить проблему:
Как сделать снимок (screenshot) и сохранить его в JPG?
Как сделать снимок (screenshot) и сохранить его в JPG?
Нажимаешь кнопку "PrtSc" (Print Screen)(есть такая на клавиатуре ) чтобы сохранить весь экран или "Alt" + "PrtSc" для сохранения текущего окна, потом идешь в "Paint" вставляешь содержимое буфера и сохраняешь в нужном тебе формате. Если у паинта нет нужного формата воспользуйся программой которая умеет преобразовывать форматы графических файлов, например ACDSee
Цитата:
On 2001-11-19 1054, Gauss wrote
Нажимаешь кнопку "PrtSc" (Print Screen)(есть такая на клавиатуре ) чтобы сохранить весь экран или "Alt" + "PrtSc" для сохранения текущего окна, потом идешь в "Paint" вставляешь содержимое буфера и сохраняешь в нужном тебе формате. Если у паинта нет нужного формата воспользуйся программой которая умеет преобразовывать форматы графических файлов, например ACDSee
Классно! А может прогу скинешь как это программно сделать? =)
Сайтик-то вроде для кодеров, а не ламеров... да и раздел VB называется... может я чё-то перепутал?
Цитата:
On 2001-11-19 1054, Gauss wrote
Нажимаешь кнопку "PrtSc" (Print Screen)(есть такая на клавиатуре ) чтобы сохранить весь экран или "Alt" + "PrtSc" для сохранения текущего окна, потом идешь в "Paint" вставляешь содержимое буфера и сохраняешь в нужном тебе формате. Если у паинта нет нужного формата воспользуйся программой которая умеет преобразовывать форматы графических файлов, например ACDSee
Slis Gauss - ti konesno umnii sto pro knopku print screen znaes, no tolko mosno po idee i na VB napisat, esli ne znaes to ne suisa i ne pisi raznuju 4us,
господа что-за лепет?(Нажимаешь кнопку "PrtSc")
Особенно горько слышать такое от Gauss(он назвался программером)
Для Gauss ламо если сам позоришься то хоть
всех программеров не позорь,человек хотел ответ услышать, а не этот ламерский лепет...
И вообще странно на 300 просмотров ни одного вразумительного ответа!
Или в этом форуме отвечать на вопросы не принято?
Может я все перепутал, и это не форум,
а конкурс на лучшую загадку?
в формат jpg не сохраняют, а конвертируют, код довольно громоздкий, но если тебе интересно > в jpg и gif. забирай на http//vsdad.pisem.net в исходники > графика > Jpg_konv.zip
Особенно горько слышать такое от Gauss(он назвался программером)
Для Gauss ламо если сам позоришься то хоть
всех программеров не позорь,человек хотел ответ услышать, а не этот ламерский лепет...
И вообще странно на 300 просмотров ни одного вразумительного ответа!
Или в этом форуме отвечать на вопросы не принято?
Может я все перепутал, и это не форум,
а конкурс на лучшую загадку?
Код:
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
'виртуальный код 'Print Screen' - &H2C
Private Sub Command1_Click()
'скриншот экрана
keybd_event &H2C, 1, 0, 0
'активной формы
'keybd_event &H2C, 0, 0, 0
'загружаем рисунок из буфера
Picture1.Picture = Clipboard.GetData
'можно сохранить в BMP
SavePicture Picture1.Image, "Ctemp.bmp"
End Sub
(ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
'виртуальный код 'Print Screen' - &H2C
Private Sub Command1_Click()
'скриншот экрана
keybd_event &H2C, 1, 0, 0
'активной формы
'keybd_event &H2C, 0, 0, 0
'загружаем рисунок из буфера
Picture1.Picture = Clipboard.GetData
'можно сохранить в BMP
SavePicture Picture1.Image, "Ctemp.bmp"
End Sub
На vb.net я делал так
P.S. В имени фала должно быть два символа "слэш" но форма ответа почему-то удаляет их. Какая-то хрень непонятная ...
Код:
Public Sub GetScreenshot()
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(0, 0, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
screenshot.Save("C:screen.jpg", Imaging.ImageFormat.Jpeg)
End Sub
Dim bounds As Rectangle
Dim screenshot As System.Drawing.Bitmap
Dim graph As Graphics
bounds = Screen.PrimaryScreen.Bounds
screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppRgb)
graph = Graphics.FromImage(screenshot)
graph.CopyFromScreen(0, 0, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
screenshot.Save("C:screen.jpg", Imaging.ImageFormat.Jpeg)
End Sub
