|
S1D
|
|
Как сделать чтоб нажимая на лабел можно было двигать форму по экрану с помощью DragDrop?23.10.2007, 02:28. Показов 1393. Ответов 4
Метки нет (Все метки)
На форме есть Label1. Как сделать чтоб нажимая на лабел можно было двигать форму по экрану с помощью DragDrop?
|
|
| 23.10.2007, 02:28 | |
|
Ответы с готовыми решениями:
4
как сделать в этом коде чтоб конкретное число кнопок можно было задавать допустим 3 кнопки чтоб открывало Как можно сделать так, чтоб можно было вписывать время в таблицу? |
|
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
|
|
| 23.10.2007, 16:27 | |
|
Это не Drag-n-Drop
Пиши коды в событиях лабела (MouseDown, MouseMove, MouseUp) и двигай че хочешь
0
|
|
|
S1D
|
|
| 23.10.2007, 16:35 | |
|
А можешь сказать какие коды?
|
|
|
2 / 2 / 1
Регистрация: 19.07.2007
Сообщений: 737
|
|
| 23.10.2007, 16:59 | |
|
Сочинять на лету не буду, но примерно так:
в MouseDown - запоминаешь стартовые значения X и Y - устанавливаешь флаг начала перемещения MouseMove - смещаешь форму через: form1.Move dx,dy - устанавливаешь новые значения x и y MouseUp - восстанавливаешь флаг перемещения Успехов
0
|
|
|
S1D
|
|
| 23.10.2007, 18:19 | |
|
Что-то я опять не понял....
Dim M As Boolean Dim x1 As Single, y1 As Single Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) M = True x1 = X y1 = Y End Sub Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If M = True Then 'А тут что? End If End Sub Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) M = False End Sub |
|
| 23.10.2007, 18:19 | |
|
Помогаю со студенческими работами здесь
5
А можно ли сделать подсказку к вводу, чтоб было как в экселе? Как сделать, чтоб можно было ловить wi-fi и раздавать в доме? Нарисовать заданные фигуры и сделать, чтобы их можно было двигать как сделать чтоб в видео чат можно было включить видеоклип Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/
O1rJuneU_ls
https:/ / vkvideo. ru/ video-115721503_456239114
|
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?
Ниже её машинный перевод.
После долгих разбирательств я наконец-то вернула себе. . .
|