Захотел убрать субклассирование нажатия клавиши Enter.
Закомментировал ненужные строки
- Код: Выделить всё
' некоторый код
Case WM_KEYDOWN
'If Not (m_hEdit = 0) Then
' Escape cancels editing
' Return ends editing
' If (wParam = vbKeyReturn) Then ' return
' SendMessageL m_hWnd, TVM_ENDEDITLABELNOW, 0, 0
' ElseIf (wParam = vbKeyEscape) Then ' escape
' SendMessageL m_hWnd, TVM_ENDEDITLABELNOW, 1, 0
' End If
'Else
' If (wParam = vbKeyF2) Then
' lID = fSelected()
' If Not (lID = 0) Then
' fItemStartEdit lID
' End If
' End If
'End If
Case WM_NOTIFY
' Get the header structure.
CopyMemory tHDR, ByVal lParam, LenB(tHDR)
'продолжение кода
Проблема: Пытаюсь заного скомпилировать контрол. При компиляции ругается на подчёркнутую строку
- Код: Выделить всё
Private Type GUID
Data1 As Long
Data2 As Integer
Data3 As Integer
Data4(0 To 7) As Byte
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Private Declare Function CLSIDFromString Lib "ole32.dll" (ByVal lpsz As Long, rguid As GUID) As Long
Public Const S_FALSE = 1
Public Const S_OK = 0
Public Type IPAOHookStruct 'IOleInPlaceActiveObjectHook
lpVTable As Long 'VTable pointer
IPAOReal As IOleInPlaceActiveObject 'Un-AddRefed pointer for forwarding calls
'============================================
TBEx As vbalColumnTreeView 'Un-AddRefed native class pointer for making Friend calls
ThisPointer As Long
End Type
Private Const strIID_IOleInPlaceActiveObject As String = "{00000117-0000-0000-C000-000000000046}"
Private IID_IOleInPlaceActiveObject As GUID
Private m_IPAOVTable(9) As Long
Ругается по поводу не объявленного типа IOleInPlaceActiveObject
На сайте разработчика скачал все необходимые библиотеки классов
(OleGuids.TLB и ISHF_Ex.tlb). Положил их в папку проекта. Пробую указать в References ссылку на ISHF_Ex.tlb - всё нормально. В ссылках есть. Подключена. Таким же макаром пробую и OleGuids.TLB - фиг. Даже в списке не появляется. А я знаю что объект IOleInPlaceActiveObject описан именно в этом файле. Соответственно не могу скомпилировать.
Ничего не пойму.
Как-то месяца два назад компилировал - всё нормально. А сейчас понадобилось - и облом (да ещё и последовательность своих действий забыл
).
Помогите. Подскажите, где у меня руки кривые...
