2010 - [решено] Не работает скрипт смены цвета

victor21043 · Сообщение **victor21043** » 08 мар 2016, 15:42

Уважаемый пользователи портала,

Есть docm word 2010 c несколькими кнопками в нём(button,button2 итд).

Как при наведении на конкретную active-кнопку(имя-button) указателем оптического манипулятора("мышь") произвести смену цвета,а при отведении-базовый цвет?

Есть код-но он не работает.

Благодарю

Пример:

Скрытый текст

[spoiler]For Each ИмяОбъекта In ИмяКоллекции

Операции над объектами

Next ИмяОбъекта

В этом примере показано, как изменить свойство BackColor у всех этикеток (Label), лежащих на форме

Код:

[/spoiler]

Код: Выделить всё

Dim x As Object
For Each x In Me.Controls
If TypeName(x) = "Label" Then
x.BackColor = 0
End If
Next x

Листинг

Скрытый текст

[spoiler]Код:

[/spoiler]

Код: Выделить всё

Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single)
Dim ctr As Object
For Each Button In Me.Controls 
      If ctr = Button Then
      Me.Button.ForeColor = RGB(180, 91, 62) 
       End If
       Next Button
    Me.Button.ForeColor = vbBlack
End Sub
Public Sub Button_click()  
     With Button
         .Caption = IIf(.Caption Like "+*", ">> Ñlose", "+ English")       
         Me.Shapes(6).Visible = .Caption Like ">> *"
         Me.Button.ForeColor = vbBlack
     End With     
 End Sub

Файл

Скрытый текст

[spoiler]

colour.doc 2003

colour.docm 2010

[/spoiler]

Iska · Сообщение **Iska** » 08 мар 2016, 15:42

Цитата victor21043:

Есть docm word 2010 c несколькими кнопками в нём(button,button2 итд).

2010 - [решено] Не работает скрипт смены цвета

Для тех, кто будет смотреть — упакуйте документ в архив и приложите к сообщению.

Iska · Сообщение **Iska** » 08 мар 2016, 15:42

Не. Тут нужна большая хорошая книжка по VBA в целом и по каждой из объектных моделей — в частности. Каждая — страницы на 900-1500. Тогда будет толк и смысл.

victor21043 · Сообщение **victor21043** » 08 мар 2016, 16:01

Цитата victor21043:

Есть код-но он не работает.

2010 - [решено] Не работает скрипт смены цвета

Вот Ваш код (из файла, формат 2003):

Код:

Код: Выделить всё

Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single)
'Dim ctr As Object
'For Each Button In Me.Controls
     ' If ctr = Button Then
      Me.Button.ForeColor = RGB(180, 91, 62)
      ' End If
     '  Next Button
   ' Me.Button.ForeColor = vbBlack
End Sub

и он работает, цвет шрифта меняется на указанный.

Iska · Сообщение **Iska** » 08 мар 2016, 18:19

1)Код модуля работает-оставлен частично неработающий код,который не может привести к overflow у кого-либо.

Цитата:

Как при наведении на конкретную active-кнопку(имя-button) указателем оптического манипулятора("мышь") произвести смену цвета,а при отведении-базовый цвет

2)Часть кода модуля (подпрограмма) закомментирована, при дебаггинге она вызывает ошибку компиляции

(не знаю почему-подпрограмма "собрана"по образцу("Пример")

victor21043 · Сообщение **victor21043** » 08 мар 2016, 18:48

Цитата victor21043:

Оставлен частично неработающий код,

2010 - [решено] Не работает скрипт смены цвета

Цитата victor21043:

2)Часть кода модуля (подпрограмма) закомментирована, значит при дебаггинге она вызывает ошибку компиляции

(не знаю почему

2010 - [решено] Не работает скрипт смены цвета

У Вас ошибочное использование переменной «Button» (вот для чего нужен «Option Explicit»). Понимаете почему?

Iska · Сообщение **Iska** » 09 мар 2016, 16:23

Спасибо,

Элемент – это переменная, которая будет хранить значение при каждой итерации (переборе коллекции)

Коллекция – собственно, то, что нам надо обработать.Коллекция – по своей природе этот тот же массив, но количество элементов в нем нам неизвестно(нет счётчика). Элемент должен принадлежать коллекции.

Код переделан,но не работает

Код:

Код: Выделить всё

Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single) 'button_x имя процедуры\событие
Dim ctr As Object 'элемент\переменная
'Начинаем перебор коллекции
For Each ctr In Me.CommandBars  'элемент In коллекция
     If ctr = Button Then
      Me.Button.ForeColor = RGB(180, 91, 62) 'оператор
      Else
      Me.Button.ForeColor = vbBlack 'в противном случае 
      End If
Next ctr
End Sub

victor21043 · Сообщение **victor21043** » 09 мар 2016, 22:08

Цитата victor21043:

Код переделан,но не работает

2010 - [решено] Не работает скрипт смены цвета

Код для изменения цвета при наведении мышки приведен в посте №

2010 - [решено] Не работает скрипт смены цвета

, его и используйте. Вопрос, как я понимаю, каким образом вернуть кнопке исходный цвет.

Подходящего события (типа указатель уходит за пределы вашей кнопки "control 2") я не увидел. Единственный (правда уж очень кривой, но уж какой есть) вариант могу предложить следующий: вставьте в документ элемент управления - рисунок, подложите его под вашу кнопку, размеры задайте чуть больше вашей кнопки чтобы рисунок образовывал некую окантовку (рамку). Событие, когда мышка находится над рисунком будет активировать код, который будет менять цвет вашей кнопки на исходный.

То есть логика следующая: когда курсор прошелся над кнопкой - активируется код из поста №4. Если курсор уйдет с кнопки, он обязательно пройдет над рамкой (рисунком) и активирует код, приведенный в конце этого поста, который перекрасит кнопку в исходный цвет.

К сожалению, ширину рамки нужно брать достаточно большую, иначе обработчик не всегда срабатывает при быстром перемещении мышки, но вы можете настроить цвет этой рамки (например - белый в цвет листа, или синий - в цвет скрываемого поля и ширину взять равной ширине поля), чтобы эта рамка не сильно бросалась в глаза.

Для этого:

во вкладке меню Word "Разработчик" (помнится по умолчанию отображение этой вкладки отключено, возможно придется включить в параметрах) предварительно отобразив ваше текстовое поле, нажмите кнопку "Режим конструктора". В этом же секторе вкладки "Разработчик" -> "Элементы управления" выбрать вставку элемента управления "Изображения" (вставится пустая рамка). Щелкнуть по рамке рисунка и выбрать "формат объекта" -> "положение" -> "За текстом". Переместить поле под кнопку, но так чтобы оно было над вашем текстовым полем (поле можно сдвинуть ниже). В режиме конструктор доступна кнопка "свойства", чтобы поменять например цвет рамки рисунка, фон и т.д. Высоту и ширину изображения подгоняете слегка побольше чем кнопка, чтобы получилась некая рамка, после чего отключаете режим конструктора.

Необходимо вставить следующий код:

Код

[spoiler]Код:

[/spoiler]

Код: Выделить всё

Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ActiveDocument.Shapes("Control 2").OLEFormat.Object.ForeColor = vbRed
End Sub

С любопытством ознакомлюсь с любым более "правильным" вариантом по возвращению кнопке исходного цвета.

a_axe · Сообщение **a_axe** » 11 мар 2016, 09:09

Цитата:

Вопрос, как я понимаю, каким образом вернуть кнопке исходный цвет

Да +при отведении мышки-я думал ,что это будет очень просто реализовать!

Так переделан-упрощён-не работает.

-Dim ctr As Object почему? не др. тип данных VBA(ошибки,кроме Variant)

Object-используется только для хранения ссылок на объекты. Требуемая память: 4 байта

Данную переменную нельзя ,оказывается, глобально объявить(Public str),как другие в этом коде("перемен не объявлена")

-For Each ctr In "Me.CommandBars" Вообще не понятно ,что такое коллекция me.X?

Скрытый текст

[spoiler]Код

Код:

[/spoiler]

Код: Выделить всё

Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _
As Integer, ByVal X As Single, ByVal Y As Single) 'button_x имя процедуры\событие
Dim ctr As Variant 'переменная
For ctr = 0 To 1  'счётчик step=1 по умолч
    If ctr = Button Then
      Me.Button.ForeColor = RGB(180, 91, 62) 'оператор
     Else 'в противном случае
     Me.Button2.ForeColor = vbBlack
      End If
Next ctr

victor21043 · Сообщение **victor21043** » 11 мар 2016, 09:09

victor21043, еще раз терпеливо вам объясняю:

1. чтобы менялся цвет при наведении на кнопку - используйте следующий код:

Цитата Iska:

Public Sub button_MouseMove(ByVal Button As Integer, ByVal Shift _

As Integer, ByVal X As Single, ByVal Y As Single)

Me.Button.ForeColor = RGB(180, 91, 62)

End Sub

2010 - [решено] Не работает скрипт смены цвета

2. чтобы вернуть исходный цвет кнопки, выполните шаги начиная со слов:

Цитата a_axe:

Для этого:

2010 - [решено] Не работает скрипт смены цвета

3. Отпишитесь о выполненных шагах, если что-то не работает - приложите файл.

4.По вашему вопросу - в вашем случае этого не нужно, но если хотите почитать:

Цитата victor21043:

-Dim ctr As Object почему? не single,string(коллекция -массив)

-For Each ctr In Me.CommandBars Вообще не понятно для каждой переменной ,что такое коллекция me.X?

2010 - [решено] Не работает скрипт смены цвета

Ключевое слово Me.

Оператор for... each.

тип данных object.

Вообще на ресурсе много полезного, можно почитать с

начала

.