|
S1D
|
|
Как сделать чтоб нажимая на лабел можно было двигать форму по экрану с помощью DragDrop?23.10.2007, 02:28. Показов 1414. Ответов 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 и раздавать в доме? Нарисовать заданные фигуры и сделать, чтобы их можно было двигать как сделать чтоб в видео чат можно было включить видеоклип Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Новые блоги и статьи
|
|||
|
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2.
При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
|
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут.
https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc
Первый документ красиво выглядит, но без схемы.
Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
|
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере".
Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
|
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти".
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2.
В качестве источника данных. . .
|
|
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер
Написал заготовку:
dotnet new console --aot -o UrlHandler
var items = args. Split(":");
var tag = items;
var id = items;
var executable = args;. . .
|
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3.
Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
|
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений.
9TO2GP2bpX4
a42b81fb172ffc12ca589c7898261ccb/
https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/
Слева синяя линия -. . .
|
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. .
Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
|