Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.68/37: Рейтинг темы: голосов - 37, средняя оценка - 4.68
12 / 12 / 0
Регистрация: 03.10.2011
Сообщений: 343

Рисование и перемещение точки - на чем это можно реализовать

05.01.2012, 17:20. Показов 7315. Ответов 23
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Здравствуйте..читаю учебник по VB 2010, дошел до графики... Написано, что код для создания и перемещения точки таков:
VB.NET
1
2
3
 Dim pntf As New PointF(10.5F, 25.5F)
        Dim pnt As Point = Point.Truncate(pntf)
        pnt.Offset(5, -10)
Но если я не ошибаюсь, то как то нужно определить область для рисования (так как не работает программа).. Читал, что есть команда Dim g As Graphics = e.Graphics.
Но в этом я новичок, и не пойму, где и когда это писать...
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
05.01.2012, 17:20
Ответы с готовыми решениями:

Реализовать рисование и перемещение картинки одним касанием
Здравствуйте, форумчане, проблема в следующем: необходимо реализовать перемещение объекта (ImageView) с помощью метода onTouch() и...

Реализовать линейное перемещение и вращение вокруг какой-либо точки графического объекта
Здравствуйте, пожалуйста помогите с задачкой. Вот её содержание: Реализовать линейное перемещение и вращение вокруг какой-либо точки...

Можно ли это реализовать?
Всем добрый день. Вопрос к программистам: Я играю в одну онлайн игру (CS), захотелось сделать что-то вроде автонаведения на головы...

23
 Аватар для eJ_Studio
169 / 149 / 14
Регистрация: 13.07.2011
Сообщений: 477
06.01.2012, 00:34
Студворк — интернет-сервис помощи студентам
VB.NET
1
2
Dim pnt As Point = Point.Truncate(pntf)
        pnt.Offset(5, -10)
а это куда дел?

попробуй так
VB.NET
1
2
3
4
5
6
 Dim pntf As New PointF(10.0F, 1)
Dim pnt As Point = Point.Truncate(pntf)
        pnt.Offset(5, -10)
        Dim g As Graphics = CreateGraphics() 
        g.Clear(Color.White)
        g.FillEllipse(Brushes.Black, pnt.X, pnt.Y, 10, 10)
а это тут ваще не к чему, все само перерисовывается(раз ты в этом событии рисуешь)
VB.NET
1
g.Clear(Color.White)
Добавлено через 1 минуту
и раз ты рисуешь в этом событии и на самой форме тогда проще так
VB.NET
1
2
3
4
5
6
Dim pntf As New PointF(10.0F, 1)
Dim pnt As Point = Point.Truncate(pntf)
        pnt.Offset(5, -10)
        'Dim g As Graphics = CreateGraphics()  уже на не к чему
        'e.Graphics.Clear(Color.White) ?
        e.GraphicsFillEllipse(Brushes.Black, pnt.X, pnt.Y, 10, 10)
Добавлено через 49 секунд
точку там поставь
1
12 / 12 / 0
Регистрация: 03.10.2011
Сообщений: 343
06.01.2012, 00:34  [ТС]
Да. все рисуется. Спасибо. А перемещение - это наверн имеется ввиду просто изменения параметров.
Точку поставил)
0
 Аватар для eJ_Studio
169 / 149 / 14
Регистрация: 13.07.2011
Сообщений: 477
06.01.2012, 00:36
вариантов как говорится большая кучка
1
12 / 12 / 0
Регистрация: 03.10.2011
Сообщений: 343
06.01.2012, 00:36  [ТС]
да)спасибо)очень помогли))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
06.01.2012, 00:36

как можно это реализовать ...
Здравствуйте друзья. Хочу сделать программу чтоб например через два часа работы на компе выходило окно которое сообщало что типа...

Как это можно реализовать
Напишите программу, предлагающую пользователю ввести три целых числа, а затем вывести их в порядке возрастания, разделяя запятыми....

Как это можно реализовать
Помогите пожалуйста, как можно это реализовать, в делфи не очень разбираюсь

Как можно реализовать это?
Здравствуйте, подскажите, как можно реализовать это? Мб какой плагин есть похожий?

Как это можно реализовать?
Строка состоит из слов, разделенных ровно одним пробелом, пробелов перед первым и после последнего слова нет. Получить новую строку, в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
24
Ответ Создать тему
Новые блоги и статьи
GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude
MaGz GoLd 08.07.2026
Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker)
anaschu 07.07.2026
Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .
Море в объективе
kumehtar 06.07.2026
Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.
Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii.
dcc0 05.07.2026
Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию
Maks 05.07.2026
Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв
anaschu 04.07.2026
200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
В чем ценность человеческого опыта в глобальном смысле?
kumehtar 03.07.2026
Возможно, ценность человека не в том, что он однажды достигает мудрости, а в том, что он становится носителем карты пути. Он знает не только истину, но и последовательность внутренних изменений,. . .
интеграция AnyLogic с самописным REST API и переход на Odoo
anaschu 03.07.2026
Успешная интеграция AnyLogic с самописным REST API и переход на промышленную Odoo WMS Сегодня проделал огромный путь от простой симуляции физических процессов до построения полноценной. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru