Нарисовать линии

[Watts[]n!]

Hi All!

Вопрос такой: Имеется полноэкранная форма, на ней таймер, рисуются 2 линии по краям формы, из левого верхнего угла одна в правый верхний, другая в левый нижний.

Никак теперь не могу сообразить, как нарисовать из правого нижнего 2 линии, в левый нижний и правый верхний.
Подскажите плиз, туплю что-то =))

Код:

Код: Выделить всё

Private Sub Timer1_Timer()
    y2 = y2 + 50
    x1 = x1 + 60

    ' тут еще 2 переменных надо, да?

    Line (0, 0)-(0, y2)
    Line (x1, 0)-(0, 0)
End Sub

[Watts[]n!]

Как всё сложно
И все равно, рисуются только 2 линии, как в моем примере.

[keks-n]

Ээээ... Это кому?

Код: Выделить всё

Private Sub Timer1_Timer()
Static Step As Long
Dim Val As Single
ScaleMode = 3
Val = ScaleWidth / 100
Line (Val * Step - 1, 0)-(Val * (Step + 1) + 1, 0)
Line (ScaleWidth - Val * Step + 1, ScaleHeight - 1) _
-(ScaleWidth - Val * (Step + 1) - 1, ScaleHeight - 1)


Val = ScaleHeight / 100
Line (0, Val * Step - 1)-(0, Val * (Step + 1) + 1)
Line (ScaleWidth - 1, ScaleHeight - Val * Step + 1) _
-(ScaleWidth - 1, ScaleHeight - Val * (Step + 1) - 1)


Step = Step + 1
If Step > 100 Then Timer1.Enabled = False
End Sub

[Watts[]n!]

keks-n
Большое спасибо! Все работает как надо

Глюки какие-то с форумом, ты сначала неполный код постил? Пост был
И VB6 при запуске буфер обмена чистит...

[burik]

тебе прямоугольник надо или что?
вот прямоугольник:

Код: Выделить всё


Line (0, 0) -Step(x, y),, B


[Хакер]

Глюки какие-то с форумом,

Какие? Где?

И VB6 при запуске буфер обмена чистит

Это не VB6, это какой-то Add-in, и он не очищает его, а пихает туда свою иконку тулбара.

[Watts[]n!]

Глюки какие-то с форумом,

Какие? Где?

Первый пост => Ответил keks-n (но код был неполным, как я и говорил) => ответил я => увидел, что его пост пропал и появился новый с полным кодом.

тебе прямоугольник надо или что?

Прямоугольник, у которого сначала рисуются 2 смежные стороны, потом другие 2.
Всем спасибо, ответ получен.

[keks-n]

Это не глюки, а динамическое вытаскивание форумом кода из IDE. Очередной мод, надо тока в VB Add-In поставить

[Watts[]n!]

Ужос!
А если не только из VB6 IDE, но и из других приложений? Так это ж полное нарушение личной конспирации... Или как там ее?

[Хакер]

Watts[]n!
Тебе не очевидно, что пока ты пишешь своё сообщение, автор предыдущего может его поправить?

[keks-n]

Или прибить

[Watts[]n!]

Гм... И правда, сам же этой возможностью не раз пользовался...