Рисунки вб

@vovasy · Регистрация: 19.03.2013

Студворк — интернет-сервис помощи студентам

Кто может подсказать что-бы при нажатии кнопку и вместо дуги или эллипса появлялась на том же месте линия, вроде бы освоил графику но с этим что-то не как!(

morgann55 · 01.04.2013, 20:45

Очисти "место" и нарисуй линию...

@Craw · 01.04.2013, 22:21

Команда Cls отчищает экран от предыдущих зарисовок.

@vovasy · 01.04.2013, 22:24 **[ТС]**

Сообщение от Craw

Команда Cls отчищает экран от предыдущих зарисовок.

Ну так нужно что-бы при нажатии появлялась линия, там вродебы через select case Не знаю точно.

@Craw · 01.04.2013, 22:41

Если до этого на форме был рисунок другой, то его сначала нужно убрать (Cls, чтобы не мешал он), а затем в коде кнопки прописать рисунок линии.

@vovasy · 02.04.2013, 00:02 **[ТС]**

Сообщение от Craw

Если до этого на форме был рисунок другой, то его сначала нужно убрать (Cls, чтобы не мешал он), а затем в коде кнопки прописать рисунок линии.

Вот я про это и спрашиваю как код этот пишеться?!)

@The trick · 02.04.2013, 01:18

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim State As Boolean, dX As Long, dY As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Me.AutoRedraw = False
    dX = X: dY = Y
    State = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If State Then Me.Refresh: Me.Line (dX, dY)-(X, Y)
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If State Then
        State = False
        Me.Refresh
        Me.AutoRedraw = True
        Me.Line (dX, dY)-(X, Y)
    End If
End Sub

@antonboom · 02.04.2013, 15:46

Самый простой вариант ответа на поставленный вопрос:

Visual Basic
1
2
3
4
5
6
7
Private Sub Command1_Click()
'ïóñòü äî ýòîãî â ïèê÷óðáîêñå íàðèñîâàíî âñå, ÷òî óãîäíî
Picture1.Scale (0, -10)-(10, 10) 'íå çíàþ, êàêîé ó òåáÿ ìàñøòàá
Picture1.Cls
Picture1.Line (1, 1)-(9, 9)
 
End Sub

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@vovasy 4 / 4 / 1 Регистрация: 19.03.2013 Сообщений: 21

	Рисунки вб 01.04.2013, 15:44. Показов 2318. Ответов 7 Метки нет (Все метки) Кто может подсказать что-бы при нажатии кнопку и вместо дуги или эллипса появлялась на том же месте линия, вроде бы освоил графику но с этим что-то не как!( 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	01.04.2013, 20:45
	Очисти "место" и нарисуй линию... 0

@Craw 238 / 49 / 6 Регистрация: 10.06.2012 Сообщений: 268 Записей в блоге: 1
	01.04.2013, 22:21
	Команда Cls отчищает экран от предыдущих зарисовок. 0

@Craw 238 / 49 / 6 Регистрация: 10.06.2012 Сообщений: 268 Записей в блоге: 1
	01.04.2013, 22:41
	Если до этого на форме был рисунок другой, то его сначала нужно убрать (Cls, чтобы не мешал он), а затем в коде кнопки прописать рисунок линии. 0

Рисунки вб

Решение