Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / MSFlexGrid / 7 сообщений из 7, страница 1 из 1
15.01.2004, 17:20
    #32377488
lizadr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MSFlexGrid
Подскажите, плиз, возможно ли при наведение мышки на ячейку Grid'а получить всплывающую подсказку, содержание которой будет зависить от содержимого ячейки?
...
Рейтинг: 0 / 0
16.01.2004, 02:00
    #32377851
andreiy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MSFlexGrid
В принципе можно, но..... Попробуй.

Код: plaintext
1.
2.
3.
4.
Private Sub MSFlexGrid_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
With MSFlexGrid
    .ToolTipText = .TextMatrix(.MouseRow, .MouseCol)
End With
End Sub


Расскажи тогда как будет работать...
...
Рейтинг: 0 / 0
16.01.2004, 10:30
    #32378075
lizadr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MSFlexGrid
Спасибо, получилось, отображает как раз то что надо!!!!
...
Рейтинг: 0 / 0
18.01.2004, 03:38
    #32379453
andreiy
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MSFlexGrid
Я про то не торомозит ли?
...
Рейтинг: 0 / 0
10.03.2004, 17:20
    #32436723
lizadr
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MSFlexGrid
немного притормаживает но не настолько что бы от этого отказаться
...
Рейтинг: 0 / 0
11.03.2004, 11:08
    #32437497
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MSFlexGrid
lizadrподсказка, содержание которой будет зависеть от содержимого ячейки
Свойство .Cell
flexcpData 20 Returns or sets a Variant attached to the cell.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Grid_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
                           ByVal X As Single, ByVal Y As Single)
    Dim nr As Long, nc As Long      'при каждом движении мыши вычисляется № строки и столбца
    Static r As Long, c As Long     'эти №№ изменяются при переходе границы ячейки
    nr = Grid.MouseRow:    nc = Grid.MouseCol    ' get coordinates
    If nr < 1 Or nc = -1 Then Exit Sub
    If c <> nc Or r <> nr Then                   ' update tooltip text
        Label1 = Grid.Cell(flexcpData, nr, nc)
        r = nr:            c = nc
        DoEvents
    End If
End Sub
Здесь Label1 - простейшая реализация "строки состояния": ускоряет вывод "приаттаченного" к ячейке комментария
(нет задержки, свойственной ToolTip'у).
Кроме того, не всякая ячейка "достойна" того, чтобы её содержимое дублировать в ToolTip!
...
Рейтинг: 0 / 0
11.03.2004, 11:12
    #32437510
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MSFlexGrid
Простите, "глаз замылился": я-то использую vsFlexGrid!
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / MSFlexGrid / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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