Функция Pie
Declare Function Pie Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long, ByVal X4 As Long, ByVal Y4 As Long) As Long
Pie рисует сегмент (часть эллипса, отделенная двумя линиями, проведенными от центра эллипса в точки x3,y3 и x4,y4) на устройстве текущим пером и заполняя его текущей кистью
- hdc
- Дескриптор контекста устройства
- X1
- Координата x верхнего левого угла прямоугольника, в который вписывается эллипс
- Y1
- Координата y верхнего левого угла прямоугольника, в который вписывается эллипс
- X2
- Координата x нижнего правого угла прямоугольника, в который вписывается эллипс
- Y2
- Координата y нижнего правого угла прямоугольника, в который вписывается эллипс
- X3
- Координата x, определяющая первую точку сегмента
- Y3
- Координата y, определяющая первую точку сегмента
- X4
- Координата x, определяющая вторую точку сегмента
- Y4
- Координата y, определяющая вторую точку сегмента
Пример
' Рисуем сегмент на Form1
' с ограничивающим прямоугольником (10,20)-(210,120)
Dim retval As Long ' возвращаемое значение
' Рисуем сегмент
retval = Pie(Form1.hDC, 11, 20, 210, 121, 210, 70, 110, 20)
Смотри также
Chord, Ellipse
Категория
Фигуры