Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataGrid и VBA / 9 сообщений из 9, страница 1 из 1
01.06.2004, 07:51
    #32541876
Ромашка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
Вопрос в следующем как в VBA у DataGrid определить в какой стороке и столбце находиться курсор.
В VB это можно определить через событие
DataGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
ci = DataGrid1.ColContaining(X)
ri = DataGrid1.RowContaining(Y)
а в VBA это событие передает другие координаты:
DataGrid1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As stdole.OLE_XPOS_PIXELS, ByVal Y As stdole.OLE_YPOS_PIXELS)
Заранее благодарна.
...
Рейтинг: 0 / 0
01.06.2004, 10:20
    #32542126
Andy154
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
А преобразовать X As stdole.OLE_XPOS_PIXELS и Y As stdole.OLE_YPOS_PIXELS не пробовала? И работать, как обычно...
...
Рейтинг: 0 / 0
01.06.2004, 11:46
    #32542405
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
Может еще апишек набабахать?
x=DatGrid1.Row
y=DataGrid1.Col
...
Рейтинг: 0 / 0
01.06.2004, 14:07
    #32542813
Ромашка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
Может еще подскажите как преобразовать X As stdole.OLE_XPOS_PIXELS и Y As stdole.OLE_YPOS_PIXELS
Заранее благодарна
...
Рейтинг: 0 / 0
02.06.2004, 10:30
    #32544114
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
Зачем? И во что? Если в твипы, то скорее всего так:
tx = Screen.TwipsPerPixelX * X
ty = Screen.TwipsPerPixelY * Y
...
Рейтинг: 0 / 0
02.06.2004, 10:38
    #32544151
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
Пардон, это ж VBA, Screen'а нету. Значит и городить нечего, используй Row и Col.
...
Рейтинг: 0 / 0
02.06.2004, 13:40
    #32544659
Ромашка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
поставила на событие
sub DataGrid1_MouseUp()
x = DataGrid1.row
y = DataGrid1.col
end sub
Только вот результат вы дает совсем не соответсвующий действительности
...
Рейтинг: 0 / 0
02.06.2004, 15:41
    #32544990
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
Это потому, что событие MouseUp завершается до перехода выделения на кликнутую ячейку. Используй событие RowColChange
...
Рейтинг: 0 / 0
03.06.2004, 06:59
    #32545715
Ромашка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DataGrid и VBA
Большое спасибо за советы
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / DataGrid и VBA / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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