Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / OnMouseOver Effect на форме / 12 сообщений из 12, страница 1 из 1
18.01.2005, 09:10:29
    #32869160
OnMouseOver Effect на форме
Откопал код, которые позволяет создать OnMouseOver Effect на форме.

Код такой:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Function fSetFontBold(stControlName As String)
Const cBold =  700 
Const cNormal =  400 
    On Error Resume Next
    With Me(mstPrevControl)
        .FontWeight = cNormal
        .ForeColor =  1279872587 
    End With
    mstPrevControl = stControlName
    With Me(stControlName)
        .FontWeight = cBold
        .ForeColor =  0 
    End With
End Function

Function fRemoveFontBold()
Const cNormal =  400 
    On Error Resume Next
    With Me(mstPrevControl)
        .FontWeight = cNormal
        .ForeColor =  1279872587 
    End With
End Function

Написано, что на событие контрола [OnMouseOver] надо установить fsetFontBold("Название_контрола" )

Что-то события OnMouseOver я не нашел.
Есть MouseOver. Но с таким событием никакого эффекта нет.

Посоветуйте, в чем здесь проблема?
...
Рейтинг: 0 / 0
18.01.2005, 09:14:41
    #32869168
paparome
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OnMouseOver Effect на форме
Учим мат. часть

MouseOver - это событие
OnMouseOver - это свойство типа стринг, в котором хранится что должно делаться по событию!!!

И перед функцией поставь знак =
...
Рейтинг: 0 / 0
18.01.2005, 10:25:58
    #32869329
OnMouseOver Effect на форме
Попробовал такой вариант:

Код: plaintext
1.
2.
Private Sub Поле3_MouseMove(...)
    Me.Поле3.OnMouseMove = fSetFontBold("Поле3")
End Sub

Что-то не пашет.
...
Рейтинг: 0 / 0
18.01.2005, 10:41:51
    #32869389
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OnMouseOver Effect на форме
Код: plaintext
1.
2.
3.
Private Sub Поле3_MouseMove(...)
   fSetFontBold("Поле3")
End Sub


--------------
crazy about...
...
Рейтинг: 0 / 0
18.01.2005, 10:43:11
    #32869393
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OnMouseOver Effect на форме
тьфу
Код: plaintext
1.
2.
3.
Private Sub Поле3_MouseMove(...)
   fSetFontBold "Поле3"
End Sub
--------------
crazy about...
...
Рейтинг: 0 / 0
18.01.2005, 10:46:57
    #32869408
OnMouseOver Effect на форме
Kelme , никакого эффекта.
...
Рейтинг: 0 / 0
18.01.2005, 10:51:59
    #32869434
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OnMouseOver Effect на форме
ну значит не судьба, закапывая обратно

--------------
crazy about...
...
Рейтинг: 0 / 0
18.01.2005, 12:01:03
    #32869704
OnMouseOver Effect на форме
Вот ссылочка с конкретным примером.

Там, по-моему, как-то криво описано. Может кто подскажет, в чем подоплека?
...
Рейтинг: 0 / 0
18.01.2005, 12:04:12
    #32869713
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OnMouseOver Effect на форме
да вроде там всё написано правильно, читай внимательней
--------------
crazy about...
...
Рейтинг: 0 / 0
18.01.2005, 13:05:48
    #32869907
OnMouseOver Effect на форме
Kelme, ты случайно не проверял?
...
Рейтинг: 0 / 0
18.01.2005, 13:08:12
    #32869918
Kelme
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OnMouseOver Effect на форме
случайно не проверял, там фигню писать не будут
если не получается, то читай внимательно, что там написано

--------------
crazy about...
...
Рейтинг: 0 / 0
18.01.2005, 13:11:12
    #32869931
OnMouseOver Effect на форме
Спасибо за помощь. Постараюсь разобраться.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / OnMouseOver Effect на форме / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]