Всем Хэлоу!
вопросец про полигон нарисовался

...
With Picture1 'то, куда рисуем
.ScaleMode = vbUser
.ScaleTop = -.Height / 2
.ScaleLeft = -.Width / 2
.Pset (0,0), vbred
End With

...

Проще говоря красная точка нарисуется в центре Пыхчер-бокса, тк начало координат теперича там.

далее я совершаю попытку нарисовать там же полигон...

Option Explicit
Public Type POINTAPI
X As Long
Y As Long
End Type
Public ArrayPoint() As POINTAPI
Public Declare Function Polygon Lib "gdi32" (ByVal hdc As Long, lpPoint As POINTAPI, ByVal nCount As Long) As Long

...

Public Sub Poly() '

ReDim Preserve ArrayPoint(4)

ArrayPoint(0).X = -10
ArrayPoint(0).Y = -10
'''''
ArrayPoint(1).X = 10
ArrayPoint(1).Y = -10
'''''
ArrayPoint(2).X = 10
ArrayPoint(2).Y = 10
'''''
ArrayPoint(3).X = -10
ArrayPoint(3).Y = 10
''''''''''''''''
Polygon Form1.Picture1.hdc, ArrayPoint(0), 4
End Sub

условно говоря, POLY - САБ, рисующий квадратик в центре Пыхчера-бокса.

загвоздка в том, что рисует она квадратик в старой (обычной) системе координат.

PS координаты писал от балды, и исходник немного другой. не судите строго за ляпы (если они конечно имеются).

ну и вопрос викторины: я че-то упустил? как все таки нарисовать его, опираясь на новую систему координат?

Напиши, свою функцию Polygon или просто сделай так:

Код

Private Sub Command1_Click() Picture1.Line (-100, -100)-(100, -100), vbRed Picture1.Line (100, -100)-(100, 100), vbRed Picture1.Line (100, 100)-(-100, 100), vbRed Picture1.Line (-100, -100)-(-100, 100), vbRed Picture1.PSet (0, 0), vbRed End Sub

(по коду становится понятно, как написать свою функцию Polygon )

ХА! целый день в инете по этой фигне! такой полигон рисовать я и сам могу. вот будет полезнее если ты скажешь, как его закрасить или в сеточку сделать. тогда я с удавольствием одобрю идею!

Код

'В модуле Declare Function Polygon Lib "GDI" (ByVal hDC _   As Integer, lpPoints As POINTAPI, ByVal nCount _   As Integer) As Integer   Type POINTAPI     x As Integer     y As Integer   End Type   Dim m1(1 to 4) as POINTAPI 'форме ' точки  функции, которая будет ' обрабатываться функцией Polygon   m1(1).x = 130: m1(1).y = 40   m1(2).x = 90: m1(2).y = 60   m1(3).x = 80: m1(3).y = 90   m1(4).x = 30: m1(4).y = 40   fz% = Polygon(Form1.hDC, m1(1), 4)

Добавлено @ 21:28
http://www.vb.kiev.ua/ref/w32api/showdoc.php?f=polygon вот ссылочка про полигон ещё

к Гость_CompWorm:

.ScaleMode = vbUser - чисто конкретно до одного места для функций/методов GDI.
Это все прикол для самого ВБ и его функций.

Работаеш с внешними функциями - работай по их правилам.

всем большое спасибо!

Цитата(Guest @ 26.1.2005, 18:24)

как его закрасить

Почитай про метод Line.

А если

Цитата(Guest @ 26.1.2005, 18:24)

или в сеточку

то

Цитата(cardinal @ 26.1.2005, 18:18)

Напиши, свою функцию Polygon

То есть напиши функцию, которая будет рисовать полигон в picturebox по твоим правилам. Тот же scale ей передай в виде точки и она тебе точки полигона, который ты ей передашь сдвинет как тебе надо...

ясно... но лучше я буду ZOOM-ировать сам POLYGON. я всё же пришел к выводу, что домножить координату легче написания целой подпрограммы по рисованию полигона. к тому же, как известно, любой GI бейсика быстрей, чем GI, написанный на нём.

еще раз всем спасибо и респект