Как создать треугольник, чтобы потом его залить цветом

20.10.2006, 13:08. **Показов** 4128. **Ответов** 5

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

Здравствуйте!
Подскажите, пожалуйста, есть ли возможность в VB создать фигуру (по типу Shape) "треугольник" с целью последующей заливки этого треугольника цветом.

@VladConn · 20.10.2006, 19:08

nnn,
Такая возможность имеется. Поставьте на форму достаточно просторную Picture Box и Command Button:

Visual Basic
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
Option Explicit
Private Declare Function SetPolyFillMode Lib "gdi32" (ByVal hdc As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long
 
Private Type POINTAPI
        x As Long
        y As Long
End Type
 
Private Const ALTERNATE = 1
Private Const WINDING = 2
Private Const SOLID_FILL As Integer = 0
 
Private Sub Command1_Click()
    Dim pts() As POINTAPI
    
    ReDim pts(3)
    
    pts(0).x = 20
    pts(0).y = 20
    pts(1).x = 100
    pts(1).y = 100
    pts(2).x = 20
    pts(2).y = 100
    
    Picture1.FillStyle = SOLID_FILL
    
    SetPolyFillMode Picture1.hdc, WINDING
    Polygon Picture1.hdc, pts(0), 3
End Sub

VladConn

23.10.2006, 14:12

Спасибо!

01.11.2006, 19:36

Извините, ещё маленький вопрос:

Visual Basic
1
pts(0).x = 20.

20 - это в пикселях?
Мне нужно единицу измерения данной величины привязать к твипам (к высоте/ширине PictureBox-а), но что-то не получается...

Заранее спасибо

@Alexey Spirin · 01.11.2006, 19:39

Screen.TwipsPerPixelX
Screen.TwipsPerPixelY

02.11.2006, 17:54

Извините, у меня ещё один вопрос:
Вот есть такой треугольник. Могу ли я, используя эти три точки (в цикле уменьшая координаты этих точек и изменяя цвет заливки), изобразить несколько вложенных треугольников, каждый своего цвета, при этом чтобы последующий треугольник был над предыдущим?
Хочется именно в цикле сделать, но что-то не получается...

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Alexey Spirin 2 / 2 / 1 Регистрация: 18.10.2007 Сообщений: 1,748
	01.11.2006, 19:39
	Screen.TwipsPerPixelX Screen.TwipsPerPixelY 0

nnn
	02.11.2006, 17:54
	Извините, у меня ещё один вопрос: Вот есть такой треугольник. Могу ли я, используя эти три точки (в цикле уменьшая координаты этих точек и изменяя цвет заливки), изобразить несколько вложенных треугольников, каждый своего цвета, при этом чтобы последующий треугольник был над предыдущим? Хочется именно в цикле сделать, но что-то не получается...

nnn
	23.10.2006, 14:12
	Спасибо!