Че-то не рисует

[Gfif21]

Вот такая проблема: имеется PictureBox, надо, чтобы рисовались линии, но не после какого-то действия (например, нажатия CommandButton), а сразу после запуска проекта. Компилятор ошибок никаких не выдает, проект запускается нормально, только вот ничего не рисует в PictureBox'е.

Sub DrawLines()
Picture1.ForeColor = RGB(255, 255, 255)
For i = 1 To 10000 Step 500
Picture1.Line (0, i)-(15360, i)
Next i
End Sub

[GSerg]

.autoredraw чему равен?

[Gfif21]

Ничему

А чему должен быть равен .autoredraw?

[Gfif21]

А я попробовал и True и False - все равно ничего не рисует

[Sirik]

1. надо чтобы свойство autoredraw было равно true. иначе ни фига не увидешь!
2. у меня всё работает: вижу горизонтальные белые полосы. Лучше поставь цвет черный (код 0), может просто ты белый и не видешь (если у тебя BackColor задан белым цветом - то конечно ни каких линий и не увидешь).

[Gfif21]

Ну типа вот:

Sub DrawLines()
Picture1.AutoRedraw = True
Picture1.ForeColor = RGB(255, 255, 255)
For i = 1 To 10000 Step 500
Picture1.Line (0, i)-(15360, i)
Next i
End Sub

А все равно ничего не рисует

[Tarik]

Чтобы менять цвет линий, надо юзать не ForeColor, а FillColor.
(очень подозрительно) А ты DrawLines из Form_Load вызываешь?

[Gfif21]

Уря, заработало. Пасиба вам люди

Зы кстати, ForeColor тоже работает

[Tarik]

Чёрт, я с утра не проснулся Надо использовать св-во ForeColor Просто я спросонья подумал, что (255,255,255) - это чёрный и решил поменять свойство