VB加载DLL中遇到的问题 - VB / API
我用VB加载一个DLL，在“工程==〉引用”引用这个DLL的时候，显示该DLL不能加载could not be loaded
如果直接运行Private Declare Function RDBPointQuery Lib "C:\WINDOWS\system32\MACSVIDBCom.dll" (ByVal pQueryFlag As PointQueryFlag, ByRef lPNum As Long, ByRef PNameArr() As String_struct, ByVal lDomainNo As Long) As Long
则会报编译出错：'user-defined type not defined',请问是什么原因？
错误是：用户定义类型未定义。
dll不能引用，这很正常，表示该DLL有可能是标准的，不通通过引用调用，只能通过Declare声明调用。
编译出错的原因有可能是类型PointQueryFlag、String_struct没有定义。还有你那些ByVal,ByRef要斟酌一下。
PointQueryFlag、String_struct可能需要自己定义一下，你需要查找一下里面包含哪些数据类型，然后类似下面方法定义：
Public Type PointQueryFlag
a As Integer
b As Integer
rcv_dg_outstanding As Integer
rcv_any_outstanding As Integer
End Type
用户类型定义的问题解决了，谢谢两位。然后我运行以下代码时
--------------------------------------
Private Sub Command1_Click()
Dim pQueryFlag As pointqueryflag
Dim lPNum As Long
Dim PNameArr(10) As String_struct
Dim PointNam(10) As String_struct
pQueryFlag.BSDes = ""
pQueryFlag.BSPTypeName = ""
pQueryFlag.lQueryFlag = 0
pQueryFlag.lStationNo = 0
Dim ret As Long '
ret = RDBObj.RDBPointQuery(pQueryFlag, lPNum, PNameArr, 0)
If ret = 0 Then
相关问答：
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
谁能帮我把下面这些代码改成VB形式的，多谢了，急用~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
系统在多台电脑上运行，就在其中一台电脑上产生”内存溢出“。
每台电脑操作系统 配置都一样的。。请问是什么原因？
(1)用了设计不完善的控件，控件本身有问题，或者不恰当地使用了api函数。
(2)无限的 ......
