使用vb写一个简单的dll调用实例问题（翻译vc++ as VB）

PassByYou

能否把忙把这段c++的代码翻译成vb

1. 
   
2. // test.cpp : 定义控制台应用程序的入口点。
   
3. //
   
4. 
   
5. #include "stdafx.h"
   
6. 
   
7. #include <iostream>
   
8. #include <windows.h>
   
9. 
   
10. typedef void (__stdcall *CShowHelloWorld)(void);
    
11. 
    
12. void _InitDLL()
    
13. {
    
14.     HINSTANCE hinstLib;
    
15.     CShowHelloWorld ShowHelloWorld;
    
16. 
    
17.     // init dll instance handle
    
18.     hinstLib = LoadLibrary("DllProcs.dll");
    
19.     if (hinstLib != NULL)
    
20.         {
    
21.                 // load address
    
22.                 ShowHelloWorld = (CShowHelloWorld) GetProcAddress(hinstLib, "ShowHelloWorld");
    
23. 
    
24.                 // call the ShowAdd function.
    
25.                 ShowHelloWorld();
    
26. 
    
27.                 // free dll instance handle
    
28.                 FreeLibrary(hinstLib);
    
29.         }
    
30.         else
    
31.         {
    
32.                 std::cout<< "need copy DLLProcs.dll to EXE dirtory" << std::endl;
    
33.         }
    
34. }
    
35. 
    
36. int main(int argc, _TCHAR* argv[])
    
37. {
    
38.         _InitDLL();
    
39.         return 0;
    
40. }
    

复制代码

blueicexfx

翻译当然可以，但C++和VB不一样。翻译意思就不太项一样。好多数据类型VB也没有。这段代码在VB中是执行不了的。
头文件就不翻译了，VB没有。

这是按原代码翻译的。

Function _InitDLL()
Dim hinstLib as HINSTANCE
Dim ShowHelloWorld as CShowHelloWorld
'init dll instance handle
hinstLib = LoadLibrary("DllProcs.dll")
If hinstLib<>Null then
'load address
ShowHelloWorld = (CShowHelloWorld) GetProcAddress(hinstLib, "ShowHelloWorld")
Call ShowHelloWorld()
Call FreeLibrary(hinstLib)
Else
Print "need copy DLLProcs.dll to EXE dirtory"
End Function

Private Sub Form_Load()
Call _InitDLL()
End Sub

blueicexfx

如果用VB完成同样的功能就更容易了。
Declare Function函数名Lib [Alias " 别名]（[ByVal 参数AS类型]）AS类型  就行了啊

大元帅

VB不支持强制类型转换，诸如
ShowHelloWorld = (CShowHelloWorld) GetProcAddress(hinstLib, "ShowHelloWorld")
在VB中是不成立的。

PassByYou

2楼的代码，我搞了半天没弄对。3楼的代码，非常容易。因为我只是调用一下dll，做一个demo in c++ call with vb.固选用3楼的方案。

我使用如下声明。顺利通过
Declare Auto Function ShowHello Lib "DllProc.dll" Alias "ShowHello" () As Integer

他对winapi-stdcall为默认调用方式有效，c++的函数均可顺利调用，我有些dll是使用free pascal编译的cdecl调用方式，当我使用64k buffer作为参数传递时便stacks异常，而单个如integer，double则没有问题。

PassByYou

查阅联机，找到约定，可这是class，有没有直接function的指点？

另外，再虚心请教题外2个问题

怎么在vb的ide中使用类似vc++的PrintDebug，assert这种函数？
Imports那些库可有什么翻阅它的方式吗？例如我想翻阅"Imports System.Runtime.InteropServices"的代码，那么我应该如何干？

1. 
   
2. Imports System
   
3. Imports Microsoft.VisualBasic
   
4. Imports System.Runtime.InteropServices
   
5. 
   
6. Public Class LibWrap
   
7. <DllImport("msvcrt.dll", CallingConvention := CallingConvention.Cdecl)> _
   
8. Overloads Shared Function printf ( _
   
9.     format As String, i As Integer, d As Double) As Integer
   
10. End Function
    
11. 
    
12. <DllImport("msvcrt.dll", CallingConvention := CallingConvention.Cdecl)> _
    
13. Overloads Shared Function printf ( _
    
14.     format As String, i As Integer, s As String) As Integer
    
15. End Function
    
16. 
    
17. xxxxxx...........
    
18. 
    
19. End Class 'LibWrap
    

复制代码

psic

PassByYou: Re: 使用vb写一个简单的dll调用实例问题（翻译vc++ as VB）

例如我想翻阅"Imports System.Runtime.InteropServices"的代码，那么我应该如何干？

.net类库？查MSDN就可以了

大兵潜?焱

PassByYou: Re:使用vb写一个简单的dll调用实例问题（翻译vc++ as VB）

2楼的代码，我搞了半天没弄对。3楼的代码，非常容易。因为我只是调用一下dll，做一个demo in c++ call with...

[DllImport("xxxxx", CallingConvention = CallingConvention.Cdecl)]

blueicexfx

大元帅: Re:使用vb写一个简单的dll调用实例问题（翻译vc++ as VB）

VB不支持强制类型转换，诸如
ShowHelloWorld = (CShowHelloWorld) GetProcAddress(hinstLib, "ShowHe...

这我当然明白，那请你给转换下这句。

blueicexfx

PassByYou: Re: 使用vb写一个简单的dll调用实例问题（翻译vc++ as VB）

查阅联机，找到约定，可这是class，有没有直接function的指点？

另外，再虚心请教题外2个问题

怎么在...

没明白你说的是什么意思，你的PrintDebug是否是VB中的 Debug.Print ""
不是VC++中所有的东西都能转成VB。