Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - .NET

Страница: 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-сайт: belkyokushin.net
 Профиль | | #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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам