При вызове функции из DLL с параметрами ByRef VB происходит завершение программы
Формулировка задачи:
Добрый день,
есть сторонняя DLL, есть несколько функций, пример
Declare Function имя_функции "длл.dll" (ByVal переменная As String,ByVal переменная As Integer,.... ByVal переменная As Single, ByRef переменная As Any, ByRef переменная As Any, ByRef переменная As Any) As Long
Объявила в модуле, вызываю в форме x=имя_функции(параметры ByVal, ....переменные ByRef)
Print x
Что делаю не так?
есть сторонняя DLL, есть несколько функций, пример
Declare Function имя_функции "длл.dll" (ByVal переменная As String,ByVal переменная As Integer,.... ByVal переменная As Single, ByRef переменная As Any, ByRef переменная As Any, ByRef переменная As Any) As Long
Объявила в модуле, вызываю в форме x=имя_функции(параметры ByVal, ....переменные ByRef)
Print x
Что делаю не так?
Решение задачи: «При вызове функции из DLL с параметрами ByRef VB происходит завершение программы»
textual
Листинг программы
Dim CPoints as Long
Dim SPoints as Long
Dim BPoints as Long
CPoints = 0
SPoints = 0
BPoints - 0
x=GetPoints("asd","4",15,45, CPoints, SPoints, BPoints)