Тема от McZag (изменено: McZag, 3 октября 2007г. 19:37:41)

  • Откуда: Москва
  • На форуме с 16 марта 2007г.
  • Сообщений: 670
  • Спасибо: 13

Тема: TDMS 3.0 Пятнашки

Чтобы установить пятнашки, импортируйте настройку и правильным пользователям добавьте в профиль команду Пятнашки. Можете играть всем офисом (фирмой, заводом)
Вы можете использовать данную команду для изучения работы TDMS. В команде используется работа:

  • С таблицами

  • С атрибутами базы данных

  • С пользователями

  • С элементами управления на формах

  • Ну и вообще кое-какие хитрые приемы VBScript

Автор этой программы PolyMorph. Я только исправил несколько косяков  ;)

Спасибо сказали: KudrjashovAI1
Post's attachments

15.tds 20.78 Кб, 158 скачиваний с 2007-10-03 

You don't have the permssions to download the attachments of this post.

  • Откуда: Уфа
  • На форуме с 17 апреля 2020г.
  • Сообщений: 132
  • Спасибо: 0

Re: TDMS 3.0 Пятнашки

У меня выложенный скрипт работал несколько некорректно: происходило неправильное отображение измененных значений полей при перемещении мыши.

Выложил исправленную версию
15_2021-06-07_01.tds

Исправленный участок кода:

Sub Exchange (i, j)
...
  ' Присваиваем статичной кнопке новое заначение
  iButton.Value = ThisForm.Controls("b"&j).Value

  ' Скрываем кнопку, которая двигалась
  jButton.Visible = False
  ' Восстанавливаем координаты кнопки, которая двигалась
  jButton.Top = jTop
  jButton.Left = jLeft
  ' Присваиваем кнопке, которая двигалась "пустое" значение
  jButton.Value = ""
  ' Отображаем новое "пустое место" и
  '  снова скрываем кнопку, которая двигалась
  jButton.Visible = True
  jButton.Visible = False

  ' Делаем статичную кнопку видимой
  iButton.Visible = True
End Sub