Релиб / Программирование / Visual Basic / Определить вкладку под курсором / Latest Posts

RE: Определить вкладку под курсором

Irokez — Thu, 13 Sep 2007 13:14:56 GMT

На странице
http://doc.trecom.tomsk.su/HTML/InetSDK/Help/inet0213.htm#Tab_0404001304041000
нашел функцию TabCtrl_HitTest, но в vb она не реализована
как бы к ней добратся...

RE: Определить вкладку под курсором

Irokez — Thu, 13 Sep 2007 12:00:25 GMT

2Labuda
ты меня подловил )))))))

Вопрос о несовпадении типа так и остался открытым.
Может кто-то сможет прояснить ситуацию.

[code]
'нормальное объявление
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long
'попытка подогнать объявление под себя
Public Declare Function SendMessagebyTest Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As TCHITTESTINFO) As Long

Private Sub ttt_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim nn As TCHITTESTINFO
num = SendMessage(ttt.hwnd, TCM_HITTEST, 0&, nn)
'ошибка - несовпадение типов
num = SendMessageByTest(ttt.hwnd, TCM_HITTEST, 0&, nn)
'ошибка - User-defined type may not be passed ByVal
End Sub
[/code]

Может как-то преобразовать TCHITTESTINFO в Long? или что?..
Бейсик у меня железно шестой. версия 8464 VBA-6.0.8495

RE: Определить вкладку под курсором

Labuda — Tue, 22 Aug 2006 19:52:12 GMT

2 Irokez

дык, пожалуйста. покупай контрол и пользуй его, а ты о чем подумал? ))) кстати там в наборе много интересных контролов есть.

кстати, а VB ты покупал? :)

RE: Определить вкладку под курсором

Irokez — Mon, 21 Aug 2006 16:06:57 GMT

2 Labuda
А вот этого мне не надо! Я хочу чтобы за мои программы платили, и поэтому не хочу воровать чужие. )))

2 Letter_D
Все дело в том, что я не хочу активизировать вкладку. Мне просто нужно ее свойство КЕУ

RE: Определить вкладку под курсором

Letter_D — Sun, 20 Aug 2006 07:54:06 GMT

Да, еще DoEvents может потребоваться.

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&
DoEvents
MsgBox Tab1.Tab

RE: Определить вкладку под курсором

Letter_D — Sun, 20 Aug 2006 07:43:48 GMT

Можно активизировать вкладку так:

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
'—————————————————————————
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, 0&, 0&

RE: Определить вкладку под курсором

Labuda — Sat, 19 Aug 2006 14:54:48 GMT

была у меня такая же проблема, т.е. сделать панель MDI. сделал ее из контрола C1Tab от фирмы ComponentOne. там есть свойство MouseOver (определяет кнопку, над которой находится курсор), на которое я вешал всплывающую подсказку для кнопки. вот в принципе и всё. есть правда одна проблемка - контрол не бесплатный, но это легко решается

RE: Определить вкладку под курсором

Comanche — Sat, 19 Aug 2006 14:12:49 GMT

А у тебя точно VB 6.0? м.б. ты всё это под VBA или VB5 делаешь? по-моему, возможность указывать в API-декларациях "Any" в качестве типа появилась только в VB6... хотя не уверен на все сто...

RE: Определить вкладку под курсором

Irokez — Wed, 16 Aug 2006 18:28:53 GMT

Оч странно, но у меня пишет "Несовпадение типов" когда тип Any

что посоветуете?

RE: Определить вкладку под курсором

VladConn — Wed, 16 Aug 2006 16:40:16 GMT

Ладно, в таком случае можно просто брать ширину формы, когда сумма ширин вкладок ее превышает. Впрочем, Comanche как спец в API, дал очевидно более элегентный ответ.