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

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

Форум программистов > VB6 > Рисование точки

Автор: Sunvas 2.12.2006, 19:31

Как нарисовать по центру на форме большую и жирную точку красного цвета?

Автор: Voldemar2004 2.12.2006, 22:33

Код

Option Explicit

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer

x = Form1.Width / 2
y = Form1.Height / 2


Circle (x, y), 50, vbRed
End Sub

Как заполнить ее цветом не помню. smile

Автор: Sunvas 2.12.2006, 23:00

Цитата(Voldemar2004 @ 2.12.2006, 22:33

)

Как заполнить ее цветом не помню.

Жаль..

Да. И забыл добавить, у этой точки должен быть центр - по центру пиксель другого цвета.

Автор: BorisVorontsov 3.12.2006, 00:01

Цитата(Voldemar2004 @ 2.12.2006, 22:33

)

Как заполнить ее цветом не помню.

Ай-яй-яй. FillStyle для чего?

Цитата(Sunvas @ 2.12.2006, 23:00

)

Да. И забыл добавить, у этой точки должен быть центр - по центру пиксель другого цвета.

Придется рисовать дважды, первый раз круг, второй - точку. Координаты, надеюсь, высчитывать умеешь. Точка рисуется PSet.

Автор: Sunvas 3.12.2006, 00:07

Спасибо всем.