Страница: 1 |
Вопрос: ScreenShot в файл | Добавлено: 30.01.06 20:45 |
Автор вопроса: ![]() |
Подскажите пожалуйста как сохранить сделать и сохранить screenshot. |
Ответы | Всего ответов: 11 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #1 | Добавлено: 31.01.06 00:01 |
можно API, точно так же как и в вб6, а на вб6 не найти пример
скриншота - не искать вообще. |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ICQ: 6099871 Вопросов: 1 Ответов: 4 |
Профиль | Цитата | #2 | Добавлено: 31.01.06 21:39 |
Хорошо. Спрошу по другому. Как сохранить в файл то, что нарисовано на DC формы??? |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 12 Ответов: 48 |
Профиль | Цитата | #3 | Добавлено: 03.02.06 12:35 |
Найди какой-нибудь контрол по работе с графикой,
скинь в него изобр с формы, а потом сохраняй контроловскими методами. |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 60 Ответов: 808 |
Профиль | Цитата | #4 | Добавлено: 04.02.06 15:01 |
Scorpion, я могу дать пример. ООООООООочень мощный. |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ICQ: 6099871 Вопросов: 1 Ответов: 4 |
Профиль | Цитата | #5 | Добавлено: 04.02.06 17:24 |
Буду благодарен |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 60 Ответов: 808 |
Профиль | Цитата | #6 | Добавлено: 04.02.06 20:20 |
Слушай, а как я тебе его дам, ты ж свой email не показываешь? Я сюда зайду где-то в 20:45 по Московскому |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() ![]() ICQ: 6099871 Вопросов: 1 Ответов: 4 |
Профиль | Цитата | #7 | Добавлено: 05.02.06 12:47 |
Упс. Упустил момент. Кидай сюда: skorpion200284[что-то там]mail.ru |
Номер ответа: 8 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 60 Ответов: 808 |
Профиль | Цитата | #8 | Добавлено: 05.02.06 13:08 |
OK |
Номер ответа: 9 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 60 Ответов: 808 |
Профиль | Цитата | #9 | Добавлено: 05.02.06 13:14 |
Primer ne na NET |
Номер ответа: 10 Автор ответа: ![]() ![]() ![]() ![]() ![]() ICQ: 6099871 Вопросов: 1 Ответов: 4 |
Профиль | Цитата | #10 | Добавлено: 05.02.06 16:27 |
RКто-нибудь может дать пример сохранения скриншота на VB.NET??? |
Номер ответа: 11 Автор ответа: ![]() ![]() ![]() ICQ: 261800349 Вопросов: 19 Ответов: 148 |
Web-сайт: Профиль | Цитата | #11 | Добавлено: 01.03.06 22:08 |
Даю пример:
Imports System.Windows.Forms
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 |
Страница: 1 |
|