MyTetra Share
Делитесь знаниями!
hWnd контрола в форме MS Access (API)
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 07 Элементы Управления

hWnd контрола в форме MS Access (API)

'--------------------------------------------------------------------------

' Module : modGetControlWnd_API

' Purpose : Получение hWnd контрола в форме

'--------------------------------------------------------------------------

Option Compare Database

Option Explicit


Private Declare Function GetFocusAPI Lib "user32" Alias "GetFocus" () As Long


Public Function GetControlWnd(ctrl As Control) As Long

'Возвращает дескриптор контрола (HWND) - Window Hundle

'--------------------------------------------------------------------------

On Error GoTo GetControlWnd_Err

ctrl.SetFocus

GetControlWnd = GetFocusAPI


GetControlWnd_Bye:

Exit Function


GetControlWnd_Err:

GetControlWnd = 0

MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: GetControlWnd", vbCritical, "Error in module modGetControlWnd_API"

Resume GetControlWnd_Bye

End Function



Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования