VBA объектно-ориентированное программирование

Question

Этот вопрос является продолжением предыдущего вопроса: Return an object in VBA

Теперь я хотел бы знать, как объявить и инициализировать объект в VBA. Похоже, что я хотел бы сделать это так:

Declare Function ConnectMe Lib "C:\Windows\System32\cm.dll" (ByVal Arg1 As String) As ConnectMe 
Declare Function login Lib "C:\Windows\System32\cm.dll" (ByVal Arg1 As String, ByVal Arg2 As String) As Boolean 

Тогда ниже этой линии, я мог бы использовать этот код:

dim cm as new ConnectMe 

cm.ConnectMe("216.239.51.99") 

cm.login("username","password") 

Однако, когда я это делаю, это дает мне «User «Определенный тип не определен». Как я могу объявить этот класс C++ соответствующим образом, чтобы создать и использовать экземпляр в VBA?

Спасибо.

Answer 1

Этот код никогда не будет работать, как это. Если вы хотите создать класс на C++ под Windows и использовать его на любом другом языке программирования, который не является C++ (например, VB), «обычный» подход заключается в создании COM class или ActiveX control, если вам нужно рисовать графику.

Вы также можете найти this answer в SO helpful.

Answer 2

я здесь: D

Чтобы использовать этот код с использованием функции:

Dim cm as Object 

set cm = ConnectMe("parameter") 

if cm.login("username","password") then 
    msgbox "Connect!",vbinformation 
else 
    msgbox "not connect!",vbinformation 
end if