PictureBox Truble

[fizik_leha]

Что то я никак не пойму, как рисовать в PictureBox?
Делаю:

Private Sub Form_Load()
Picture1.Line (50, 50)-(100, 50)
End Sub

Ни на форме ни в PictureBox ничего не отображается...
Что я не так делаю?

И еще киньте пожалуйста ссылку на все команды VB Для графики, а то у меня он без хелпа

[alibek]

Picture1.AutoRedraw = True ты не делаешь

[ANDLL]

Или поставь в процедуре Form_load первой строкой

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

show 0


[fizik_leha]

Спасибо заработало... А какое разрешение у PictureBox? А то линия в 100 пикселов уж больно мелкая получается...

И еще: Можно сделать начало координат в левом нижнем углу?
А то поначалу оно в левом верхнем... немного непривычно.

[ANDLL]

Ширина(длина) указывается не в пикселах, а в твипах. Соотношение можно получить screen.twipperpixelX и screen.twipperpixelY.

Попробуй:

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

Picture1.Scale (0, Picture1.ScaleHeight)-(Picture1.ScaleWidth, 0)


[fizik_leha]

Спасибо, помогло
Вопрос про графические операторы для VB Остается открытым

[tyomitch]

fizik_leha, нажми F2, выбери в левом списке PictureBox - и тебе покажутся все его методы.

[alibek]

Так показывается не все. Print и Cls точно не показываются.

[fizik_leha]

Кстати на счтет Print... Он позволяет текст в PictureBox вставлять? Какой у него синтаксис?

[tyomitch]

Так показывается не все. Print и Cls точно не показываются.

Cls показывается, Print действительно нет



fizik_leha, синтаксис:

object.Print [outputlist]

object - это твой пикчербокс, а outputlist - то, что ты хочешь вывести.

[fizik_leha]

А если надо вывести текст в определенных координатах, как это реализовать?

[alibek]

CurrentX/CurrentY

[Amed]

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

With PictureBox
.CurrentX=250
.CurrentY=50
.Print "bla-bla-bla"
End With

[fizik_leha]

Большое спасибо