Потребителски панел
Запомни
Категории
C/C++
C#
Pascal
Visual Basic
Python
Delphi
Perl
Java
Други
Реклама
Снимка на десктопа | Автор: admin | Дата: 30.10.2009


Отворете Visual Basic 2008 Express Edition, ако го нямате може да го изтеглите от ТУК

Сега направете нов проект, като натиснете Project... от дясно на Create:



От новопоявилия се прозорец изберете Windows Form Application, след това изберете име за вашата програма и натиснете ОК.



Натиснете на формата и от прозореца с настройки си променете името на формата с името на вашата програма.



Добавете три бутона. Сменете текста на първия бутон на Shoot (Снимай), втория на Save (Запази) и третия на Area.



Сменете Anchor на всеки бутон по отделно както следва:
Бутона Shoot: Top, Left.



Бутона Save: Top, Left, Right.
Бутона Area: Top, Right.

Добавете полето за снимките (Picture Box) от лентата с инструменти.



Сменете "size image" на Zoom, като кликнете на малката стрелкичка в горния десен край на полете определено за снимките.



Сменете и Anchor на Picture Box-а на Top, Bottom, Left, Right:



Сега ще трябва да добавим още една форма към проекта. Новата форма ще определя площа от дестопа в която ще се снима.

От менюто Project изберете Add Windows Form:



Сменете текста на новата форма на "Click here and drag" ("Кликни тук и влачи").
Махнете Control Box от формата, като го смените на False от прозореца с настройки:



Накрая сменете и прозрачността на формата на 50%, това ще позволи на потребителя да вижда какво има зад формата.



Сега формата ви трябва за изглежда така:



Върнете се обратно на първата форма за да добавите код бутоните.
Двоен клик на Shoot бутона и добавете следния код:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



Form2.Hide()



Dim area As Rectangle



Dim capture As System.Drawing.Bitmap



Dim graph As Graphics



area = Form2.Bounds



capture = New System.Drawing.Bitmap(Bounds.Width, Bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)



graph = Graphics.FromImage(capture)



graph.CopyFromScreen(area.X, area.Y, 0, 0, area.Size, CopyPixelOperation.SourceCopy)



PictureBox1.Image = capture



End Sub

Двоен клик на Save бутона и добавете следния код:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



Dim save As New SaveFileDialog



Try



save.Title = "Save File"



save.FileName = "Screenshot"



save.Filter = "Png |*.Png"



If save.ShowDialog() = DialogResult.OK Then



PictureBox1.Image.Save(save.FileName, System.Drawing.Imaging.ImageFormat.Png)



End If



Catch ex As Exception



End Try



End Sub

Двоен клик на Area бутона и добавете следния код:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click



Form2.Show()



End Sub

Това е. Може да стартирате вашата нова програма и да проверите дали всичко работи. Ако имате проблем пишете тук или във форума.

Може да изтеглите целият проект от тук - Снимане на десктопа

Урока е преведен специално за Programming-bg.com . Моля не копирайте без моето съгласие!
Източник: www.reflectionforbrain.com

Още уроци за Visual Basic


Искате да пишете коментари? Влезте от тук или се регистрирайте!


Коментари (2):

От ilko на 03.06.2010 в 21:50 часа
Бива , ама неупях да го направя
От programer на 15.07.2010 в 10:32 часа
При мене бачка....Брао на "Admin"