Отправляет 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 Функция ArcTo


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

                                                

2003 НОЯБРЬ. #02                                             
 

 

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

 

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

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

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

        Функция ArcTo

Declare Function ArcTo Lib "gdi32" (ByVal hdc As Long, ByVal nLeftRect As Long, ByVal nTopRect As Long, ByVal nRightRect As Long, ByVal nBottomRect As Long, ByVal nXRadial1 As Long, ByVal nYRadial1 As Long, ByVal nXRadial2 As Long, ByVal nYRadial2 As Long) As Long

Платформа

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

ArcTo рисует дугу на устройстве,используя текущее перо контекста. После вывода дуги,текущая точка контекста устанавливается в последнюю точку дуги. Эллипс, на котором рисуются дуги,находится в пределах координат ограничительного прямоугольника. Начальная и конечная точки определяются двумя величинами.Ннаправление вывода дуги зависит от текущей установки устройства

Возвращаемое значение

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

 

Параметры

hdc
Дескриптор контекста устройства для вывода дуги
nLeftRect
Координата x верхней левой точки прямоугольника, ограничивающего эллипс
nTopRect
Координата y верхней левой точки прямоугольника, ограничивающего эллипс
nRightRect
Координата x нижней правой точки прямоугольника, ограничивающего эллипс
nBottomRect
Координата y нижней правой точки прямоугольника, ограничивающего эллипс
nXRadial1
Координата x радиальной точки,определяющей начальную точку дуги
nYRadial1
Координата y радиальной точки,определяющей начальную точку дуги
nXRadial2
Координата x радиальной точки,определяющей конечную точку дуги
nYRadial2
Координата y радиальной точки,определяющей конечную точку дуги
 
А дальше все даже ёжику понятно:

Пример 

' Рисуем дугу, которая формирует верхнюю половину эллипса. Эллипс
' отцентрирован в (100, 100), имеет ширину 200, и имеет высоту 100.Дуга оттянута
' на окне Form1, использующем черное сплошное перо
Dim hpen As Long  ' дескриптор черного сплошного пера
Dim holdpen As Long  ' дескриптор к старому перу,используемому Form1
Dim retval Avs Long  ' возвращаемое значение

' Получаем дескрипток к черному перу
' и устанавливаем его текущим пером Form1
hpen = GetStockObject(BLACK_PEN)  ' получаем дескриптор к перу формы
holdpen = SelectObject(Form1.hDC, hpen) 
' Эллипс,определенным ограничивающим прямоугольником (0,50)-(200,150).
' The radial to (200, 100) is due right; the radial to (0, 100) is due left
retval = ArcTo(Form1.hDC, 0, 50, 200, 150, 200, 100, 0, 100)

' Восстанавливаем старое перо Form1
retval = SelectObject(Form1.hDC, holdpen)

Все ваши рекомендации, предложения, советы жду на E-mail Serweradmin@mail.ru 

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


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

 

 

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