| |
|
|
| | При открывании формы на которой расположен ActiveX, если он не зарегистрирован или нет его ещё на месте указаном в регистрации., начинается ругань от Access, а затем и от пользователей, можно как-то что-то, не знаю что что бы избегать этих неприятностей.
Посоветуйте... | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=684 | |
| |
| |
| |
|
|
| | регистрация без regsvr32
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Function registerDll(dllname As String) As Boolean
Dim hLib As Long
Dim hProc As Long
hLib = LoadLibrary(dllname)
If hLib = 0 Then
registerDll = False
Exit Function
End If
hProc = GetProcAddress(hLib, "DllRegisterServer")
If hProc = 0 Then
FreeLibrary hLib
registerDll = False
Exit Function
End If
CallWindowProc hProc, 0, 0, 0, 0
FreeLibrary hLib
registerDll = True
End Function
|
| |
| |
| |
| |
|
|
| | Огромное спасибо Вам.
Пока ничего не понял... буду разбираться.
Но вот ещё вопрос -- на форме это осх теряет свою связь с OLE
и потом его вновь надо вставка активеХ тащишь устанавливаешь работает.
Перенос на другой комп - опять всё поновой.  | |
| |
| |
