Перемещение кнопок на форме

@alexpro1979 · Регистрация: 08.06.2015

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

Бодрого дня, подскажите можно ли не переходя в режим конструктора или макета сделать возможность пользователю перемещать кнопки на форме?

mobile · 10.06.2018, 13:55

Да, можно. Пример здесь - Делимся наработками

@alexpro1979 · 10.06.2018, 14:01 **[ТС]**

А сохранить положение кнопки после перетаскивания можно?

@VinniPuh · 10.06.2018, 14:06

alexpro1979, что то типа - Прыгающих кнопок?

Мне как то Мобайл подсказал.
Ставишь курсор мыша на поле ленточной формы и 2 кнопочки с сортировкой прыгають к этому полю и сортируют это поле.

Удалять процедуры поиска было лень, скопировал всё, но думаю разберешся что лишнее.

Visual Basic

Option Compare Database
Option Explicit
 
Dim S0
Public FocusSet, FocusTip
 
Sub ФильтрПоиска()
  Dim s1, s2
  Me.Refresh
  s1 = "True "
 
s2 = "" & Me.ПоискМестаУстановкиОб
  If Len(s2) > 0 Then
    s1 = s1 & " and МестоУстановки like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискСредыИзмОб
  If Len(s2) > 0 Then
    s1 = s1 & " and СредаИзмерения like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискВидаОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ВидОборудования like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискТипаОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ТипОборудования like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискМаркиОб
  If Len(s2) > 0 Then
    s1 = s1 & " and МаркаОборудования like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискЗав№Об
  If Len(s2) > 0 Then
    s1 = s1 & " and Зав№Об like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискПределаИзмеренияОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ПределИзмеренияОб like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискЕдИзмОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ЕдИзмерения like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискКлассаТочностиОб
  If Len(s2) > 0 Then
    s1 = s1 & " and КлассТочности like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискДатыПоверкиОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ДатаПоверки like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискПримечанияОб
  If Len(s2) > 0 Then
    s1 = s1 & " and ПримечанияОб like '*" & s2 & "*'"
  End If
 
s2 = "" & Me.ПоискСтатусаОб
  If Len(s2) > 0 Then
    s1 = s1 & " and СтатусОборудования like '*" & s2 & "*'"
  End If
 
  Me.Filter = s1
  Me.FilterOn = True
End Sub
 
Private Sub Form_Current()
    DoCmd.RunCommand acCmdRefresh
End Sub
 
'Private Sub МестоУстановки_GotFocus()
'    GetFocusFld
'End Sub
Private Sub ПоискМестаУстановкиОб_Change()
  S0 = "" & Me.[ПоискМестаУстановкиОб]
    Call ФильтрПоиска
  Me.[ПоискМестаУстановкиОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискСредыИзмОб_Change()
  S0 = "" & Me.[ПоискСредыИзмОб]
    Call ФильтрПоиска
  Me.[ПоискСредыИзмОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискВидаОб_Change()
  S0 = "" & Me.[ПоискВидаОб]
    Call ФильтрПоиска
  Me.[ПоискВидаОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискТипаОб_Change()
  S0 = "" & Me.[ПоискТипаОб]
    Call ФильтрПоиска
  Me.[ПоискТипаОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискМаркиОб_Change()
  S0 = "" & Me.[ПоискМаркиОб]
    Call ФильтрПоиска
  Me.[ПоискМаркиОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискЗав№Об_Change()
  S0 = "" & Me.[ПоискЗав№Об]
    Call ФильтрПоиска
  Me.[ПоискЗав№Об].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискПределаИзмеренияОб_Change()
  S0 = "" & Me.[ПоискПределаИзмеренияОб]
    Call ФильтрПоиска
  Me.[ПоискПределаИзмеренияОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискЕдИзмОб_Change()
  S0 = "" & Me.[ПоискЕдИзмОб]
    Call ФильтрПоиска
  Me.[ПоискЕдИзмОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискКлассаТочностиОб_Change()
  S0 = "" & Me.[ПоискКлассаТочностиО]
    Call ФильтрПоиска
  Me.[ПоискКлассаТочностиОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискДатыПоверкиОб_Change()
  S0 = "" & Me.[ПоискДатыПоверкиОб]
    Call ФильтрПоиска
  Me.[ПоискДатыПоверкиОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискПримечанияОб_Change()
  S0 = "" & Me.[ПоискПримечанияОб]
    Call ФильтрПоиска
  Me.[ПоискПримечанияОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub ПоискСтатусаОб_Change()
  S0 = "" & Me.[ПоискСтатусаОб]
    Call ФильтрПоиска
  Me.[ПоискСтатусаОб].SelStart = Len(S0) + 1
End Sub
 
Private Sub КнОчисткаФильтра_Click()
  DoCmd.RunCommand acCmdRemoveFilterSort ' так работает, а если без неё нет
Me.[ПоискМестаУстановкиОб] = ""
Me.[ПоискСредыИзмОб] = ""
Me.[ПоискВидаОб] = ""
Me.[ПоискТипаОб] = ""
Me.[ПоискМаркиОб] = ""
Me.[ПоискЗав№Об] = ""
Me.[ПоискПределаИзмеренияОб] = ""
Me.[ПоискЕдИзмОб] = ""
Me.[ПоискКлассаТочностиОб] = ""
Me.[ПоискДатыПоверкиОб] = ""
Me.[ПоискПримечанияОб] = ""
Me.[ПоискСтатусаОб] = ""
  Me.Filter = ""
  Me.FilterOn = True
End Sub
 
Private Sub btnUp_Click()
    If Len(FocusSet & "") = 0 Then Exit Sub
    Me.OrderBy = "[" & FocusSet & "]"
    Me.OrderByOn = True
End Sub
 
Private Sub btnDown_Click()
    If Len(FocusSet & "") = 0 Then Exit Sub
    Me.OrderBy = "[" & FocusSet & "] desc"
    Me.OrderByOn = True
End Sub
 
Public Function GetFocusFld()
    Dim ac
    ac = Me.ActiveControl.Name
      If Me.ActiveControl.Name Like "ww*" Then
        FocusSet = Replace(ac, "ww", "")
        FocusTip = "Free"
        Me.btnUp.Left = Me(ac).Left
        Me.btnUp.Top = Me(ac).Top - Me.btnUp.Height - 440
        Me.btnDown.Left = Me(ac).Left + Me.btnUp.Width
        Me.btnDown.Top = Me(ac).Top - Me.btnDown.Height - 440
      Else
        FocusSet = ac
        FocusTip = "Field"
'        ac = "ww" & ac
        Me.btnUp.Left = Me(ac).Left
'        Me.btnUp.Top = Me(ac).Top - Me.btnUp.Height - 440
        Me.btnDown.Left = Me(ac).Left + Me.btnUp.Width
'        Me.btnDown.Top = Me(ac).Top - Me.btnDown.Height - 440
      End If
End Function

@alexpro1979 · 10.06.2018, 14:54 **[ТС]**

Ничего не понял.

Добавлено через 31 минуту
Какой функцией можно определить координаты кнопки на форме?

Добавлено через 4 минуты
Me.btn.Left
Me.btn.Top

@alexpro1979 · 10.06.2018, 15:24 **[ТС]**

Придумал как сделать фиксацию перемещения кнопки. С одной кнопкой проблем нет, а если их много на форме код получиться огромным.

@alexpro1979 · 10.06.2018, 15:42 **[ТС]**

Помогите состряпать функцию пожалуйста с построением запроса в vba имею проблемы.

Добавлено через 3 минуты
!Коорд1 = Me.btn.Left
как вместо btn подставить значение переменной nameKN?

@Eugene-LS · 10.06.2018, 15:59

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

как вместо btn подставить значение переменной nameKN?

Me.Controls(nameKN).Left

@alexpro1979 · 10.06.2018, 16:20 **[ТС]**

Может кому-то пригодится. Спасибо за помощь.

@Eugene-LS · 10.06.2018, 17:27

alexpro1979, вот вам ласковые пользователи как наперетаскивают кнопки... и концов не найдёте

... а их хлебом не корми - только дай что-нить испортить ...

Я бы ещё ввёл понятие "Исходное положение" и кнопалку возврата (к исходному) ...

@Jamaica · 10.06.2018, 19:28

Сообщение от Eugene-LS

вот вам ласковые пользователи как наперетаскивают кнопки...

Можно конкурсы среди пользователей устраивать, на самое оригинальное размещение кнопок.
Вот у меня конвертик получился, например.

@alexpro1979 · 10.06.2018, 20:27 **[ТС]**

Это для меня высший пилотаж.

@Eugene-LS · 10.06.2018, 20:51

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

Это для меня высший пилотаж.

Задачки выше наших знаний и навыков = полезны, ибо заставляют "мозг морщить" и учиться новому ....

shanemac51 · 10.06.2018, 21:19

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

Можно конкурсы среди пользователей устраивать, на самое оригинальное размещение кнопок.
Вот у меня конвертик получился, например.

код пока не смотрела, но весьма оригинально

@Eugene-LS · 10.06.2018, 21:21

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

но весьма оригинально

Жаль чрезвычайно редко применимо ...

shanemac51 · 10.06.2018, 21:45

Сообщение от Eugene-LS

Жаль чрезвычайно редко применимо

применение и не обязательно --главное в том, что пример показывает сколь высоки возможности VBA
решая прикладную задачу всегда надо помнить об этом
слишком часто мы забываем об этом

@Eugene-LS · 10.06.2018, 22:00

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

главное в том, что пример показывает сколь высоки возможности VBA

Всё правильно.
Насколько я помню: Они (возможности VBA) вообще ничем не ограничены.
... а плюс API - там кошмар вообще до безпредела (хотите форму вверх ногами?) ...

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	10.06.2018, 20:27 [ТС]	12
	Это для меня высший пилотаж. 0

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
		1
	Перемещение кнопок на форме 10.06.2018, 13:50. Показов 2598. Ответов 16 Метки нет (Все метки) Бодрого дня, подскажите можно ли не переходя в режим конструктора или макета сделать возможность пользователю перемещать кнопки на форме? 0

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	10.06.2018, 13:55	2
	Да, можно. Пример здесь - Делимся наработками 1

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	10.06.2018, 14:01 [ТС]	3
	А сохранить положение кнопки после перетаскивания можно? 0

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	10.06.2018, 14:54 [ТС]	5
	Ничего не понял. Добавлено через 31 минуту Какой функцией можно определить координаты кнопки на форме? Добавлено через 4 минуты Me.btn.Left Me.btn.Top 0

@alexpro1979 647 / 100 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
	10.06.2018, 15:42 [ТС]	7
	Помогите состряпать функцию пожалуйста с построением запроса в vba имею проблемы. Добавлено через 3 минуты !Коорд1 = Me.btn.Left как вместо btn подставить значение переменной nameKN? 0

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,477
	10.06.2018, 15:59	8
	Сообщение от alexpro1979 как вместо btn подставить значение переменной nameKN? Me.Controls(nameKN).Left 2

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,477
	10.06.2018, 17:27	10
	alexpro1979, вот вам ласковые пользователи как наперетаскивают кнопки... и концов не найдёте ... а их хлебом не корми - только дай что-нить испортить ... Я бы ещё ввёл понятие "Исходное положение" и кнопалку возврата (к исходному) ... 1

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,477
	10.06.2018, 20:51	13
	Сообщение от alexpro1979 Это для меня высший пилотаж. Задачки выше наших знаний и навыков = полезны, ибо заставляют "мозг морщить" и учиться новому .... 1

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,140 Записей в блоге: 4
	10.06.2018, 21:19	14
	Сообщение от Jamaica Можно конкурсы среди пользователей устраивать, на самое оригинальное размещение кнопок. Вот у меня конвертик получился, например. код пока не смотрела, но весьма оригинально 1

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,477
	10.06.2018, 21:21	15
	Сообщение от shanemac51 но весьма оригинально Жаль чрезвычайно редко применимо ... 1

	10.06.2018, 22:00

shanemac51 Модератор 11960 / 4828 / 779 Регистрация: 07.08.2010 Сообщений: 14,140 Записей в блоге: 4
	10.06.2018, 21:45	16
	Сообщение от Eugene-LS Жаль чрезвычайно редко применимо применение и не обязательно --главное в том, что пример показывает сколь высоки возможности VBA решая прикладную задачу всегда надо помнить об этом слишком часто мы забываем об этом 1

@Eugene-LS 10472 / 5458 / 1375 Регистрация: 05.10.2016 Сообщений: 15,477
	10.06.2018, 22:00	17
	Сообщение от shanemac51 главное в том, что пример показывает сколь высоки возможности VBA Всё правильно. Насколько я помню: Они (возможности VBA) вообще ничем не ограничены. ... а плюс API - там кошмар вообще до безпредела (хотите форму вверх ногами?) ... 1

Перемещение кнопок на форме

Решение