| |
|
|
| | все забыл :-(
Делаю класс для 3view, что бы все обработки его касаемые были в модуле класса
в классе создаю
Public WithEvents mTreeView As TreeView
|
нужно обработать MouseUp
пробовал
Private Sub mTreeView_MouseUp(Button As Integer, Shift As Integer, x As Long, y As Long)
и
Private Sub mTreeView_MouseUp(Button As Integer, Shift As Integer, x As OLE_XPOS_PIXELS, y As OLE_YPOS_PIXELS)
и
Private Sub mTreeView_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
|
всегда ошибка
"Procedure declaration does not match description of event or procedure having the same name"
помню что это вроде связано с типами параметров процедуры,
как например для NodeClick, нужно обязательно
Sub mTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
а не
Sub mTreeView_NodeClick(ByVal Node As Node)
|
А вот как MouseUp побороть?
посмотрел свой старый проект... там обработка MouseUp вынесена из класса в форму... то ли и тогда не победил, то ли просто доляпывал позже
в общем подайте кто сколько может. | |
| |
| |
| |
|
|
| | Так нужно
MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS) | |
| |
| |
| |
|
|
| | странно хелп Акса выдает вот это
Event MouseDown(Button As Integer, Shift As Integer, x As OLE_XPOS_PIXELS, y As OLE_YPOS_PIXELS) но это как я понял не работает
а вот VB Studio выдает то что работает
MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
 | |
| |
| |
