Вопрос : Как subclass I в VB6 захватывает ый потребителем случай мыши на адвокатском сословии названия?

Я хочу захватить случай когда лев-щелчки потребителя на адвокатском сословии названия формы в VB6….мышь вниз, щелчок мыши etc. благодарят ..... class=

Ответ : Как subclass I в VB6 захватывает ый потребителем случай мыши на адвокатском сословии названия?

Будет typo в ранее примере где последней линией должна быть снаружи если заявление блока. Под вами можете найти пример деятельности для обнаруживать левый двойной щелчок, то получите вас после того как вы начаты после этого вы можете добавить другие случаи от соединения выше.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

'Module1.bas

Вариант точный

Приватное Const WM_NCLBUTTONDBLCLK    как длиной = &HA3&
Приватное Const HTCAPTION             как длиной = &H2&
Приватное Const GWL_WNDPROC           как длиной = (- 4)

Приватно объявите свободу «User32.dll» SetWindowLongA функции (hWnd ByVal как nIndex длиной, ByVal как dwNewLong длиной, ByVal как длиной) как длиной
Приватно объявите свободу «User32.dll» CallWindowProcA функции (lpPrevWndFunc ByVal как hWnd длиной, ByVal как длиной, Msg ByVal как wParam длиной, ByVal как lParam длиной, ByVal как длиной) как длиной

Приватное hWindow     как длиной
Приватная функциональная        как длиной

Общественное Sub Attatch (hWnd ByVal как длиной)
  Если hWindow = 0 после этого
    hWindow = hWnd
    функционально = SetWindowLongA (hWindow, GWL_WNDPROC, AddressOf WndProc)
  Закончитесь если
Закончите подводную лодку

Общественное Sub Detatch ()
  Если hWindow <> 0 после этого
    Звонок SetWindowLongA (hWindow, GWL_WNDPROC, функциональные)
    hWindow = 0
  Закончитесь если
Закончите подводную лодку
 
Общественная функция WndProc (hWnd ByVal как uMsg длиной, ByVal как wParam длиной, ByVal как lParam длиной, ByVal как длиной) как длиной
Если uMsg = WM_NCLBUTTONDBLCLK после этого
  Если wParam = HTCAPTION после этого
  'TODO: /что-то когда двойник щелкнул.
    Щелкнутое двойное Debug.Print «: »; Время
  Закончитесь если
Закончитесь если
WndProc = CallWindowProcA (функциональное, hWnd, uMsg, wParam, lParam)
Функция конца



'Form1
Вариант точный

Приватное Sub Form_Load ()
  Attatch Me.hWnd
Подводная лодка конца
 
Приватное Sub Form_QueryUnload (Cancel как интежер, UnloadMode как интежер)
  Detatch
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us