Страница: 1 |
Страница: 1 |
Вопрос: ScreenShot в файл
Добавлено: 30.01.06 20:45
Автор вопроса: Skorpion84 | ICQ: 6099871
Подскажите пожалуйста как сохранить сделать и сохранить screenshot.
Ответы
Всего ответов: 11
Номер ответа: 1
Автор ответа:
HACKER
Разработчик Offline Client
Вопросов: 236
Ответов: 8362
Профиль | | #1
Добавлено: 31.01.06 00:01
можно API, точно так же как и в вб6, а на вб6 не найти пример
скриншота - не искать вообще.
Номер ответа: 2
Автор ответа:
Skorpion84
ICQ: 6099871
Вопросов: 1
Ответов: 4
Профиль | | #2
Добавлено: 31.01.06 21:39
Хорошо. Спрошу по другому. Как сохранить в файл то, что нарисовано на DC формы???
Номер ответа: 3
Автор ответа:
Маха Мур
Вопросов: 12
Ответов: 48
Профиль | | #3
Добавлено: 03.02.06 12:35
Найди какой-нибудь контрол по работе с графикой,
скинь в него изобр с формы, а потом сохраняй контроловскими методами.
Номер ответа: 4
Автор ответа:
Fever
Вопросов: 60
Ответов: 808
Профиль | | #4
Добавлено: 04.02.06 15:01
Scorpion, я могу дать пример. ООООООООочень мощный.
Номер ответа: 5
Автор ответа:
Skorpion84
ICQ: 6099871
Вопросов: 1
Ответов: 4
Профиль | | #5
Добавлено: 04.02.06 17:24
Буду благодарен
Номер ответа: 6
Автор ответа:
Fever
Вопросов: 60
Ответов: 808
Профиль | | #6
Добавлено: 04.02.06 20:20
Слушай, а как я тебе его дам, ты ж свой email не показываешь? Я сюда зайду где-то в 20:45 по Московскому
Номер ответа: 7
Автор ответа:
Skorpion84
ICQ: 6099871
Вопросов: 1
Ответов: 4
Профиль | | #7
Добавлено: 05.02.06 12:47
Упс. Упустил момент. Кидай сюда: skorpion200284[что-то там]mail.ru
Номер ответа: 8
Автор ответа:
Fever
Вопросов: 60
Ответов: 808
Профиль | | #8
Добавлено: 05.02.06 13:08
OK
Номер ответа: 9
Автор ответа:
Fever
Вопросов: 60
Ответов: 808
Профиль | | #9
Добавлено: 05.02.06 13:14
Primer ne na NET
Номер ответа: 10
Автор ответа:
Skorpion84
ICQ: 6099871
Вопросов: 1
Ответов: 4
Профиль | | #10
Добавлено: 05.02.06 16:27
RКто-нибудь может дать пример сохранения скриншота на VB.NET???
Номер ответа: 11
Автор ответа:
mich
ICQ: 261800349
Вопросов: 19
Ответов: 148
Web-сайт:
Профиль | | #11
Добавлено: 01.03.06 22:08
Даю пример:
Imports System.Drawing
Public Class clsScreen
Dim pt As String = Windows.Forms.Application.StartupPath & "\ScreenShot"
Sub New()
If IO.Directory.Exists(pt) = False Then MkDir(pt)
End Sub
Private Sub PrtSc()
SendKeys.SendWait("^{PRTSC}"
End Sub
Private Sub AltPrtSc()
SendKeys.SendWait("%{PRTSC}"
End Sub
Public Sub PrintScreen()
PrtSc()
tSaveClip = New Threading.Thread(AddressOf SaveClipJpg)
tSaveClip.Start()
End Sub
Public Sub PrintApp()
AltPrtSc()
tSaveClip = New Threading.Thread(AddressOf SaveClipPng)
tSaveClip.Start()
End Sub
Dim tSaveClip As Threading.Thread
Private Sub SaveClipJpg()
Dim b As Drawing.Bitmap = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
b.Save(NewName() & ".jpg", Drawing.Imaging.ImageFormat.Jpeg)
tSaveClip.Abort()
End Sub
Private Sub SaveClipPng()
Dim b As Drawing.Bitmap = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
b.Save(NewName() & ".png"
tSaveClip.Abort()
End Sub
Private Function NewName() As String
Dim fn As String = Microsoft.VisualBasic.DateString & " " & Microsoft.VisualBasic.TimeString
fn = fn.Replace(":", "-"
Randomize()
Return pt & "\" & fn & " " & CStr(Math.Round(Rnd() * 899 + 100))
End Function
End Class