Графика. Закрашенный треугольник и текст под фигурой

@Shintaro_Kigura · Регистрация: 08.04.2019

Студворк — интернет-сервис помощи студентам

Как сделать, чтобы треугольник, который находиться внутри квадрата, был закрашен? И как можно разместить текст, чтобы он всегда был под квадратом? Все это в Windows forms.
Условие: Построить квадрат, на одной стороне которого, как на основании, построен равносторонний треугольник со
стороной a.

C++
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
#pragma endregion
        int Lx,Ly,yt,yb,a,ad2,h,yc;
    private: System::Void pictureBox1_Paint(System::Object^  sender, System::Windows::Forms::PaintEventArgs^  e)
             {
                 Lx=pictureBox1->Width;
                 Ly=pictureBox1->Height;
                 ad2=0.5*a;
                 yt=0.5*Ly-ad2;
                 yb=0.5*Ly+ad2;
 
                  ad2=0.5*a;
                  h=ad2*Math::Tan(3.141592/3);
                  yc=0.5*Ly-ad2+h;
                  //Квадрат
                  e->Graphics->DrawLine(Pens::Black,0.5*Lx-ad2,0.5*Ly-ad2,0.5*Lx+ad2,yt);
                  e->Graphics->DrawLine(Pens::Black,0.5*Lx-ad2,0.5*Ly+ad2,0.5*Lx+ad2,yb);
                  e->Graphics->DrawLine(Pens::Black,0.5*Lx-ad2,0.5*Ly-ad2,0.5*Lx-ad2,yb);
                  e->Graphics->DrawLine(Pens::Black,0.5*Lx+ad2,0.5*Ly+ad2,0.5*Lx+ad2,yt);
        //Треугольник
                  e->Graphics->DrawLine(Pens::Red,0.5*Lx-ad2,0.5*Ly-ad2,0.5*Lx,yc);
                  e->Graphics->DrawLine(Pens::Red,0.5*Lx+ad2,0.5*Ly-ad2,0.5*Lx,yc);
 
             }
    private: System::Void Form1_Load(System::Object^  sender, System::EventArgs^  e) 
             {
                 a=0;
             }
    private: System::Void button2_Click(System::Object^  sender, System::EventArgs^  e) 
             {
                                 if(!(textBox1->Text==""))
                                 {
                                  a=System::Convert::ToInt32(textBox1->Text);
                                  pictureBox1->Refresh();
                                 }
 
             }
};
}

@Krokodil9798 · 26.06.2019, 18:15

Shintaro_Kigura,
https://docs.microsoft.com/en-... mework-4.8
https://docs.microsoft.com/en-... mework-4.8

@nalbe666 · 27.06.2019, 00:04

Shintaro_Kigura,

C++
1
2
3
4
5
6
7
8
9
10
//Треугольник
array<System::Drawing::Point>^ triangleCoords = gcnew array<System::Drawing::Point>(3) {
    System::Drawing::Point(0.5*Lx - ad2, 0.5*Ly - ad2),
    System::Drawing::Point(0.5*Lx, yc),
    System::Drawing::Point(0.5*Lx + ad2, 0.5*Ly - ad2)
};
e->Graphics->FillPolygon(Brushes::Red, triangleCoords);
 
String^ str = L"this is text";
e->Graphics->DrawString(str, Font, Brushes::Black, 0.5*Lx - ad2, 0.5*Ly + ad2);

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Krokodil9798 330 / 145 / 56 Регистрация: 17.10.2015 Сообщений: 580
	26.06.2019, 18:15
	Shintaro_Kigura, https://docs.microsoft.com/en-... mework-4.8 https://docs.microsoft.com/en-... mework-4.8 0

Опции темы