namespace e
extern HWND hpicturebox; // это окно где что-то рисуется
>
void PaintAll( HWND hwnd)
HDC hdc, hcmpdc;
HBITMAP hbmp;
HBRUSH hbrush;
HPEN hpen;
PAINTSTRUCT ps;
RECT rect;
BeginPaint(hwnd, // здесь hwnd окна на котором расположен hpicturebox
EndPaint(hwnd,
GetClientRect(e::hpicturebox,
hdc = GetDC(e::hpicturebox);
hcmpdc = CreateCompatibleDC(hdc);
hbmp = CreateCompatibleBitmap(hdc, rect.right — rect.left, rect.bottom — rect.top);
hbrush = CreateSolidBrush(RGB(255, 255, 255));
hpen = CreatePen(PS_INSIDEFRAME, 1, RGB(255, 255, 255));
BeginPaint(e::hpicturebox,
SelectObject(hcmpdc, hbmp);
SelectObject(hcmpdc, hbrush);
SelectObject(hcmpdc, hpen);
Rectangle(hcmpdc, rect.left, rect.top, rect.right, rect.bottom);
//
PaintPicturebox(hcmpdc); // //
SetStretchBltMode(hdc, COLORONCOLOR);
BitBlt(hdc, 0, 0, rect.right — rect.left, rect.bottom — rect.top, hcmpdc, 0, 0, SRCCOPY);
Занятие 10. Как рисовать на компьютере
EndPaint(e::hpicturebox,
ReleaseDC(e::hpicturebox, hdc);
DeleteDC(hcmpdc);
DeleteObject(hbmp);
DeleteObject(hbrush);
DeleteObject(hpen);
>
Источник: prog-cpp.ru
Программа для рисования – исходный код на языке Visual Basic
В данном уроке мы рассмотрим исходный код программы для рисования на форме написанной на языке Visual Basic. Функционал данной программы позволяет изменять фон формы, а также мы рассмотрим такую полезную вещь в Visual Basic это появление сообщения на какие-нибудь действия, в данной программе приведен пример, когда при закрытии программы Вам будет показано сообщение о том, что «Вы действительно хотите закрыть программу?» с возможностью выбора.
Давайте приступим к написанию этой программы, открываем среду программирования Microsoft Visual Basic v 6.0 и можете сразу вставлять код, но Вам также нужно будет создать меню, для того чтобы Вы могли изменять цвет фона, очищать содержимое формы и выйти из программы. Для этого нажимайте «Инструменты ->Редактор меню» в появившемся окошке добавьте 5 пунктов меню по следующему принципу:
Название Имя
- Зеленый -cmda
- Серый — cmdb
- Красный — cmdc
- Очистить — cmdd
- Выход — cmdi
И у Вас должно получиться примерно как на следующей картинке. Также в свойстве формы измените параметр StartUpPosition, он у Вас должен быть равен 1-centerowner, это для того чтобы наша программа запускалась по центру.
Исходный код на языке Visual Basic
Private Sub cmda_Click() Form1.BackColor = QBColor(2) End Sub Private Sub cmdb_Click() Form1.BackColor = QBColor(7) End Sub Private Sub cmdc_Click() Form1.BackColor = QBColor(4) End Sub Private Sub cmdd_Click() Cls End Sub Private Sub cmdi_Click() Beep Dim message As String Dim buttonsandicons As Integer Dim title As String Dim response As String message = «Хотите выйти?» title = «Выход» buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If End Sub Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0) End If End Sub
Сначала у нас идет описание всех пунктов меню, например Form1.BackColor = QBColor(2) говорит программе, что при нажатии этой кнопки наша форма будет зеленым цветом, за это отвечает функция QBColor(2), а цифра внутри скобок говорит, каким будет цвет формы. Описание всех цветов приведено ниже:
БЕСПЛАТНОЕ ПРИЛОЖЕНИЕ ДЛЯ РИСОВАНИЯ
- 0 – Черный
- 1 – Синий
- 2 – Зеленый
- 3 – Голубой
- 4 – Красный
- 5 – Пурпурный
- 6 – Желтый
- 7 – Белый
- 8 – Серый
- 9 – Светло-синий
- 10 – Светло-зеленый
- 11 – Светло-голубой
- 12 – Ярко-красный
- 13 – Ярко-пурпурный
- 14 – Ярко-желтый
- 15 – Ярко-белый
Когда мы доходим до пункта cmdi_Click, здесь описывается вывод сообщения на экран с помощью функции MsgBox. Далее идет код формы (Form_MouseDown и Form_MouseMove), в котором мы задаем параметры, при каких будет происходить сам процесс рисования, и как это будет отображаться на экране. Вот и все можете запустить программу и порисовать, программа не сложная, поэтому и функционал ее тоже простой, но для начинающих программистов на Visual Basic самое то!
Источник: info-comp.ru