Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > вопрос по Shape

Автор: magnet27 10.7.2008, 16:38

у компонента Shape имеется несколько стандартных типов - круг, квадрат и тд.
вопрос как сделать Shape вида отличного от стандартных, например в виде шестиугольника ?

Автор: Akina 10.7.2008, 16:46

Использовать иной тип контрола.

Автор: magnet27 10.7.2008, 16:56

Akina, какой например ? мне нужен шестиугольник, тип контрола не важен

Автор: I_Am_Rock 11.7.2008, 01:06

Цитата(magnet27 @ 10.7.2008, 16:56)

Akina, какой например ? мне нужен шестиугольник, тип контрола не важен

Попробуй поискать в сети.
Модератор: удалено. Коммерческие предложения - в другом субфоруме. Или через ПМ.

Автор: Wolfer1 11.7.2008, 13:35

Если тебе нужно нарисовать многоугольник,
в частности шестиугольник -
посмотри на ниже приведенный код
из одной моей программки.

Код


Private Sub Form_Load()
Show
ScaleMode = 3
DrawWidth = 3

Const pi = 3.14159265358979
s = 0
n = 6 ' количество углов многоугольника
a = 180: b = 180 'Длина ребра
x = a + 310: y = 250 ' Координаты начала

Do
If s = n Then Exit Sub
s = s + 1
X1 = a * Cos(360 * s / n * pi / 180) + 310
Y1 = b * Sin(360 * s / n * pi / 180) + 250
Line (x, y)-(X1, Y1)
x = X1: y = Y1
Loop

End Sub