Отправляет email-рассылки с помощью сервиса Sendsay

Функции API для Visual Basic 6.0

Подписаться Бесплатная новостная рассылка Подписчиков 23 RSS
  Ноябрь 2003   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://www.Iqsoft.narod.ru
Открыта: 02-11-2003

Автор
Кузмич

Статистика

23 подписчиков
0 за неделю
←   Все выпуски   →

Функции API для Visual Basic 6.0 Функция AngleArc


Информационный Канал Subscribe.Ru
2003 ОКТЯБРЬ

                                                 

2003 ОКТЯБРЬ. #01                                              
 

 

Код моей кнопки:

 

Раскрутимся!
Приглашаю авторов рассылок обменяться формами для быстрой подписки. Раскрутим друг-друга! :)
  ЧАТ |  Гостевая книга | ФОРУМ | Помощь
 

Добро пожаловать на страницы руководства по функциям API. Это руководство имеет дело с API для всех 32-разрядных версий Windows: Windows 95/98, Windows NT.           

Мы  искренне рады видеть Вас в рядах наших подписчиков.

Что такое "API"?

API сокращенно Application Programming Interface(интерфейс прикладного программирования). Проще говоря, API - набор функций, которые операционная система предоставляет программисту. API обеспечивает относительно простой путь для программистов для использования полных функциональных возможностей аппаратных средств или операционной системы .

Понятие о Windows API

Windows API могут вызываться из Visual Basic для выполнения задач,для которых недостаточно стандартного программного кода Visual Basic и позволяют использовать новые функциональные возможности, принципиально не реализуемых на уровне встроенных возможностей языка.Например,стандартные средства Visual Basic не позволяют перезагрузить компьютер.Однако перезагрузку можно выполнить через обращение к соответствующей функции Window API.Кроме того,существует возможность замены встроенных операторов языка на альтернативные варианты, которые на уровне Windows API зачастую выполняются быстрее

32-разрядные версии Windows, или 95/98 или NT, обычно используют один и тот же набор функций API, хотя имеются некоторые различия между платформами. 32-разрядный API содержит многочисленные расширения и поддержки к устаревшему 16-разрядному API, используемому в Windows 3.x. Старые функции поддерживаются по причинам совместимости. Однако, 32-разрядные приложения должны использовать исключительно 32-разрядные функции. Это не проблема, так как 16-разрядные функции обычно заменялись подобными функциями.

Как организованы функции Windows API ?

Почти все функции, которые составляют Windows API - внутри DLL (Dynamic Link Library) . Эти dll-файлы находятся в системной папке Windows.Существует свыше 1000 функций API,которые условно делятся на на четыре основные категории.

  • Работа с приложениями-запуск и закрытие приложений,обработка команд меню,перемещения и изменения размера окон.
  • Графика-создание изображений.
  • Системная информация-определение текущего диска,объем памяти,имя текущего пользователя и т.д.
  • Работа с реестром-манипуляции с реестром Windows

Использование функций API в Visual Basic

Функции API,вызываемые в Visual Basic должны быть предварительно объявлены. При объявлении указывается имя DLL и функции,а также информация о количестве и типе аргументов.

Объявление функций API и DLL

Процедуры DLL объявляются командой Declare в секции General Declarations модуля формы или стандартного модуля:
Declare Function имя Lib "библиотека" [Alias "псевдоним"] [([[ByVal ] _
переменная [As тип] [,ByVal,] переменная [As тип]]...])] As тип

Процедуры DLL,находящиеся в стандартных модулях,по умолчанию являются открытыми и могут вызываться из любой точки приложения.Процедуры,объявленные в модуле формы,являются закрытыми и перед их объявлением должно стоять ключевое слово Private.
Примечание.
Начиная с версии Visual Basic 5,в именах процедур учитывается регистр символов.

Вот и пришло время перейти непосредственно к самим функциям API. В рассылки описание всех функции будет идти строго по алфавиту.

Функция AngleArc

Declare Function AngleArc Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dwRadius As Long, ByVal eStartAngle As Single, ByVal eSweepAngle As Single) As Long

Платформа

  • Windows 95/98: Не поддерживается
  • Windows NT: Требуется Windows NT 3.1 или выше
  • Windows 2000: Поддерживается
  • Windows CE: Не поддерживается

AngleArc рисует дугу на устройстве используя текущее для устройства перо. Круг, которым рисуется дуга,определена ее центром и радиусом. Начало и конечные точки дуги определены угловыми мерами в градусах, и рисуются против часовой стрелки от линии, параллельной положительной оси X. Дуга непосредственно оттянута или по часовой стрелке или против часовой стрелки соединненых точек, в зависимости от параметров настройки устройства. AngleArc также рисует линию, соединяющую текущий точку устройства к началу дуги

Возвращаемое значение
В случае ошибки функция возвращает 0 (используйте GetLastError для получения кода ошибки),в успешном случае функция возвращает значение,отличное от нуля

Параметры

hdc
Дескриптор контекста устройства для рисования дуги
x
Координата x центра круга
y
Координата y центра круга
dwRadius
Радиус круга
eStartAngle
Угол (в градусах) для идентификации отправной точки дуги
eSweepAngle
Угол (в градусах) для идентификации конечной точки дуги

Пример 

' Рисуем дугу, сформированную верхней половиной круга (от 0 до 180
' градусов против часовой стрелки). Круг центрирован в (100, 150) и имеет радиус
' 50. Дуга оттянута, используя сплошное черное перо.
Dim hpen As Long  ' дескриптор черного пера
Dim holdpen As Long   ' дескриптор предварительно выбранного пера Form1
Dim retval As Long   ' возвращаемое значение

' Получаем сплошное черное перо для использования в Form1
hpen = GetStockObject(BLACK_PEN)  ' дескриптор черного пера
holdpen = SelectObject(Form1.hDC, hpen)  ' выбираем перо

' Выбираем направление против часовой стрелки
' для вывода дуги
retval = SetArcDirection(Form1.hDC, AD_COUNTERCLOCKWISE)
' рисуем дугу
retval = AngleArc(Form1.hDC, 100, 150, 50, 0, 180)

' Выбираем прежнее перо Form1 для установки по умолчанию
retval = SelectObject(Form1.hDC, holdpen)  ' выбираем старое перо

Более подробную информацию о программировании на Visual Basic 6.0 Вы найдёте на сайте www.IqSoft.narod.ru (и не забудте оставить пожелание в гостевой книге)                                                                                                                         

Удачи!
С уважением,                                                                                                                       Администрация рассылки.

 

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное