[急]请问如何将一个Form传入DLL中

2008-08-27 09:06:18 166 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

C#调用C++用类封装的coin3d 3维显示程序 1、首先用vs2008新建一个win32-》win32 project->DLL工程，需要设置好coin3d 编译的环境，然后添加一个源文件，代码如下 ifdef TESTDLL_EXPORTS#define TESTDLL_API __declspec(dllexport)#else#define TESTDLL_API __declspec(dllimport)#endif <br 阅读详情

想要在DLL中实现对传入的Form的所有的控件的大小进行调整，所以在DLL中写了如下这样的函数：
Public Sub GetControlObject(ByRef obj As Form)
Dim objOnFormControl As Control
For Each objOnFormControl In obj.Controls
objOnFormControl.Width = 10
Next
End Sub

但是，编译不通过，提示Form不能作为public的函数的参数传递，请问如何将Form作为参数传入DLL中，谢谢！

...全文

为VB6项目集成AES加密：DLL方案实现与避坑指南 AES（高级加密标准）作为目前全球广泛采用的对称加密算法，通过分组加密和密钥扩展机制，为数据提供了高强度的机密性保护。其技术价值在于平衡了安全性与性能，成为保护敏感信息的行业标准。在实际工程中，AES常用于加密配置文件、网络传输数据及用户文件等场景。针对VB6这类遗留系统，原生加密能力薄弱，直接实现AES算法复杂且低效。通过将AES核心算法用C/C++封装成标准Windows DLL，再由VB6调用，成为一种务实可靠的升级路径。该方案能有效解决类似“java.security.invalidkeyexcep 阅读详情

Alps_lou

控件 1,453 成员 41,351 内容

+ 关注 + 加入社区

切换为时间正序

zzyong00 2008-08-28

打赏
举报

[Quote=引用 15 楼 Alps_lou 的回复:]
引用 14 楼 zzyong00 的回复:
AddSub.ResizeControlObject (Form1)
是这一句报错吗？

是这一句报错
For Each objOnFormControl In obj.Controls

报：
Run-time error '438':
Object doesn't support this property or method
[/Quote]
我开始怀疑你引用的是已注册的、有问题的dll,但如果是这一句报错，应该不是哪个问题

Tiger_Zhao 2008-08-28

打赏
举报

选项：
·Error Trapping = “Break on All Errors”
·不选 “Compile On Demand”
调试运行，错误发生在哪行语句？

Alps_lou 2008-08-28

打赏
举报

[Quote=引用 14 楼 zzyong00 的回复:]
AddSub.ResizeControlObject (Form1)
是这一句报错吗？
[/Quote]
是这一句报错
For Each objOnFormControl In obj.Controls

报：
Run-time error '438':
Object doesn't support this property or method

Alps_lou 2008-08-27

打赏
举报

谢谢各位，但是我的代码确实会报错，代码贴出，麻烦各位看看有没有问题。
如下：

DLL中的函数：
Public Sub ResizeControlObject(obj As Object)
Dim objOnFormControl As Control
For Each objOnFormControl In obj.Controls
objOnFormControl.Width = 10
Next
End Sub

窗体中的调用：
Option Explicit
Public AddSub As AddClass
Private Sub Command1_Click()
Set AddSub = New AddClass
AddSub.ResizeControlObject (Form1)
End Sub

运行后，产生这样的错误：
Run-time error '438':
Object doesn't support this property or method

zzyong00 2008-08-27

打赏
举报

老鸟的方法确实可以

Tiger_Zhao 2008-08-27

打赏
举报

不可能，我这里调试通过。
·先注释这段代码，保证全编译通过，然后在撤销注释，全编译。
·调用时传入的必须是 Form 对象。

Tiger_Zhao 2008-08-27

打赏
举报

不可能，我这里调试通过。
·先注释这段代码，保证全编译通过，然后在撤销注释，全编译。
·调用时传入的必须是 Form 对象。

zzyong00 2008-08-27

打赏
举报

AddSub.ResizeControlObject (Form1)
是这一句报错吗？

Alps_lou 2008-08-27

打赏
举报

[Quote=引用 1 楼 Sandrer 的回复:]
方法一：
ObjPtr()传递对象的内存地址
CopyMemory根据Form的大小来复制内存

方法二：
传递窗口句柄
有了窗口句柄，还有什么是做不了的？
[/Quote]
传递句柄，使用API确实什么都可以做了，但是这次开发就是要用VB本身语言来做，郁闷啊！

[Quote=引用 2 楼 Tiger_Zhao 的回复:]
只要将 As Form 更改为 As Object 就可以了。
[/Quote]
尝试了一下，会报obj.Controls这里错误。
说obj没有Controls属性

Tiger_Zhao 2008-08-27

打赏
举报

只要将 As Form 更改为 As Object 就可以了。

Sandrer 2008-08-27

打赏
举报

方法一：
ObjPtr()传递对象的内存地址
CopyMemory根据Form的大小来复制内存

方法二：
传递窗口句柄
有了窗口句柄，还有什么是做不了的？

Alps_lou 2008-08-27

打赏
举报

使用Me代替也是一样的错误。
这个Form1上只有一个Button，没有其他的控件了。

不知道怎么解决这个问题呢？

Tiger_Zhao 2008-08-27

打赏
举报

用 Me 代替。

还有错误是否可能发生在 ResizeControlObject 内部，由于某些控件没有 Width 属性？

Alps_lou 2008-08-27

打赏
举报

是启动了Form1后，点击Button，调用Command1_Click()函数，在此函数中调用DLL中的ResizeControlObject函数，来改变Form1中的控件的大小。

Tiger_Zhao 2008-08-27

打赏
举报

你的 Form1 到底启动了没有？如果是当前窗体就直接用 Me 代替好了。

Alps_lou 2008-08-27

打赏
举报

[Quote=引用 8 楼 Tiger_Zhao 的回复:]
改用这要的方式调用试试
VB codeOptionExplicitPublicAddSubAsAddClassPrivateSubCommand1_Click()Dimfrmasformsetfrm=form1SetAddSub=NewAddClass
AddSub.ResizeControlObject (frm)End Sub
[/Quote]
刚才试了一下，报一样的错误。

Tiger_Zhao 2008-08-27

打赏
举报

改用这要的方式调用试试

Option Explicit 

Public AddSub As AddClass 

Private Sub Command1_Click() 

Dim frm as form

set frm = form1

Set AddSub = New AddClass 

AddSub.ResizeControlObject (frm) 

End Sub

[急]请问如何将一个Form传入DLL中

相关推荐