Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Можно ли как то сделать скрин только области Form1? чтобы не было даже рамок окна формы

47K
11 июля 2012 года
Rayrat7
99 / / 09.06.2012
Можно ли как то сделать скрин только области Form1? чтобы не было даже рамок окна формы?
только то что находится на BackgroundImage



Код:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer) '  Private Const VK_SNAPSHOT As Short = &H2CS


 Public Function SaveScreen(ByVal theFile As String) As Boolean
     Dim data As IDataObject
        data = Clipboard.GetDataObject()
     Dim bmap As Bitmap
      If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
          Me.PictureBox1.Image = bmap
          Me.PictureBox1.Image.Save(theFile, Imaging.ImageFormat.Jpeg)
     End If

     End Function
     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
      Call keybd_event(System.Windows.Forms.Keys.Snapshot, 0, 0, 0)
      System.Threading.Thread.Sleep(200) ' To have time to catch the clipboard
      SaveScreen("c:\aaa.jpg")
    End Sub
40K
11 июля 2012 года
D129
228 / / 18.04.2012
Цитата: Rayrat7
еще пишет
Предупреждение 1 Функция "SaveScreen" возвращает значение не для всех путей выполнения. Отсутствует оператор Return?
Блин что это за проблема как ее исправить??? НЕСкриншотит.....



Ну это как раз просто. вы же в виби - пишите всегда в начале функции
SaveScreen = False

47K
11 июля 2012 года
Rayrat7
99 / / 09.06.2012
еще пишет
Предупреждение 1 Функция "SaveScreen" возвращает значение не для всех путей выполнения. Отсутствует оператор Return?
Блин что это за проблема как ее исправить??? НЕСкриншотит.....
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог