Функция Chord

Declare Function Chord 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

Chord рисует хорду на устройстве, используя текущее перо и заполняет его текущей кистью. Хорда состоит из сегмента линии, соединяющей две точки по эллипсу; область между хордой и краем эллипса заполнена (против часовой стрелки вокруг эллипса).

hdc

Описатель контекста устройства

nLeftRect

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

nTopRect

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

nRightRect

Координата x нижнего правого угла ограничительного прямоугольника эллипса

nBottomRect

Координата y нижнего правого угла ограничительного прямоугольника эллипса

nXRadial1

Координата x точки по радиальному определению отправной точки хорды

nYRadial1

Координата y точки по радиальному определению отправной точки хорды

nXRadial2

Координата x точки по радиальному определению конечной точки хорды

nYRadial2

Координата y точки по радиальному определению конечной точки хорды

Пример

' Рисуем хорду на окне Form1. Эллипс ограничен прямоугольником
' с координатами (10,20)-(210,120)
Dim retval As Long  ' возвращаемое значение
retval = Chord(Form1.hDC, 10, 20, 210, 120, 210, 70, 110, 20)

Смотри также

Ellipse, Pie

Категория

Фигуры

Реклама