seodiva.us - Как сделать крест или точку посередине экрана - Visual Basic


Как сделать точку вначале

SoftIce

10039 / 3575 / 917

Регистрация: 27.07.2011

Сообщений: 8,541

Завершенные тесты: 1

27.02.2012, 23:47 #2 Visual Basic 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 Option Explicit Private Declare Function GetDesktopWindow Lib "user32" () As Long Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long Private Declare Function CreatePen Lib "gdi32" (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Const PS_SOLID = 0 Private Const PS_INSIDEFRAME = 6 Private Sub Command1_Click() Dim DC As Long, hwnd As Long Dim oBr As Long, Br As Long, oPn As Long, Pn As Long Dim Color As Long ' Цвет Dim X As Long, Y As Long, pWidth As Long ' Координаты толщина Dim eX As Long, eY As Long Color = vbRed hwnd = GetDesktopWindow DC = GetWindowDC(hwnd) Br = CreateSolidBrush(Color) Pn = CreatePen(PS_SOLID Or PS_INSIDEFRAME, 1, Color) oBr = SelectObject(DC, Br) oPn = SelectObject(DC, Pn) ' Задаем координаты и толщину X = (Screen.Width / Screen.TwipsPerPixelX) / 2 Y = (Screen.Height / Screen.TwipsPerPixelY) / 2 pWidth = 4 eX = X - (pWidth / 2) eY = Y - (pWidth / 2) Ellipse DC, eX, eY, eX + pWidth, eY + pWidth SelectObject DC, oPn SelectObject DC, oBr DeleteObject Br DeleteObject Pn ReleaseDC hwnd, DC End Sub

2


Источник: http://www.cyberforum.ru/visual-basic/thread454156.html



Рекомендуем посмотреть ещё:


Закрыть ... [X]

Как сделать точечную сварку в домашних условиях Как сделать виду в германию

Как сделать точку вначале Точечная сварка своими руками: как сделать?
Как сделать точку вначале Как из телефона сделать wifi точку доступа
Как сделать точку вначале Как сделать ноутбук точкой доступа wifi
Как сделать точку вначале Как сделать точку доступа из iPhone
Как сделать точку вначале Точка доступа Wi-Fi в Windows 7
Как сделать точку вначале Moroving. Жрец. Фотографий 1
Давайте обсудим "Белые голуби из бумаги " в технике поделки из бумаги Задать вопрос Как вернуть стройность и привлекательность молодой маме? Как сделать фотографии товаров для интернет-магазина Ecwid Как я избавилась от рубцов после угрей и прыщей! форум

Похожие новости