VPF::Рисование точки - Форум программистов

Sunvas

Дата 2.12.2006, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

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

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Voldemar2004

Дата 2.12.2006, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Код

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

--------------------

i_i
(';')
(V)

user posted image

Sunvas

Дата 2.12.2006, 23:00 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

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

)

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

Жаль..

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

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

BorisVorontsov

Дата 3.12.2006, 00:01 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

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

)

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

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

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

)

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

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

Это сообщение отредактировал(а) BorisVorontsov - 3.12.2006, 00:12

--------------------

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

Sunvas

Дата 3.12.2006, 00:07 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: нет
Всего: 89

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

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »