.hwnd类型不匹配如何解决

[qq_39787665]

.hwnd类型不匹配如何解决

ForceForegroundWindow Application.hwnd

Dim objForm As Object ' New PiLiangTiHuan.TiHuan

Set objForm = CreateObject("PiLiangTiHuan.TiHuan")
Set objForm.Application = Application

DoEvents

objForm.ShowFormMain

[舉杯邀明月]

引用 1 楼 zhao4zhong1 的回复:

CLng(Application.hwnd)

Application.hwnd　从“字义”上看，就已经是“句柄”了，还需要CLng( )？？？

[赵4老师]

引用 2 楼 Chen8013 的回复:

[quote=引用 1 楼 zhao4zhong1 的回复:] CLng(Application.hwnd)

Application.hwnd　从“字义”上看，就已经是“句柄”了，还需要CLng( )？？？ [/quote] 那鬼才知道为什么报“.hwnd类型不匹配”错误。

[赵4老师]

ForceForegroundWindow需要参数是啥类型？

[舉杯邀明月]

引用 3 楼 zhao4zhong1 的回复:

[quote=引用 2 楼 Chen8013 的回复:] [quote=引用 1 楼 zhao4zhong1 的回复:] CLng(Application.hwnd)

Application.hwnd　从“字义”上看，就已经是“句柄”了，还需要CLng( )？？？ [/quote] 那鬼才知道为什么报“.hwnd类型不匹配”错误。[/quote] 所以前几天我看到这个帖子，都没有理………… 按理说，这操作窗口的“API”，一般都应该是用“句柄”操作，类型是Long（现在很多开发平台应该是int的了）。

[赵4老师]

CLng(Application.hwnd)

[舉杯邀明月]

引用 7 楼 qq_39787665 的回复:

ChangeAtt(objBlkName, dwgInfo(1), dwgInfo(2), dwgInfo(3), dwgInfo(4), dwgInfo(5), dwgInfo(6), dwgInfo(7), dwgInfo(8), dwgInfo(9)) 这一句里调试的时候提示ChangeAtt子过程或者函数未定义。ChangeAtt()这个是什么函数啊，返回的是什么，在哪定义呢

反正VB6中是没有这个“系统函数”的。 如果你用的是VB.NET，就无视这条回复吧…………

[of123]

应该是给一个具体窗体的 hWnd 吧？

[qq_39787665]

ChangeAtt(objBlkName, dwgInfo(1), dwgInfo(2), dwgInfo(3), dwgInfo(4), dwgInfo(5), dwgInfo(6), dwgInfo(7), dwgInfo(8), dwgInfo(9)) 这一句里调试的时候提示ChangeAtt子过程或者函数未定义。ChangeAtt()这个是什么函数啊，返回的是什么，在哪定义呢

[of123]

引用 7 楼 qq_39787665 的回复:

ChangeAtt(objBlkName, dwgInfo(1), dwgInfo(2), dwgInfo(3), dwgInfo(4), dwgInfo(5), dwgInfo(6), dwgInfo(7), dwgInfo(8), dwgInfo(9)) 这一句里调试的时候提示ChangeAtt子过程或者函数未定义。ChangeAtt()这个是什么函数啊，返回的是什么，在哪定义呢

Copy 工程 的时候漏掉文件了吧？ 你的工程，你问其他人，“我的函数是什么？”。别人怎么知道。你可以去问程序的作者。

[qq_39787665]

联系不到作者啊。就是拷贝的，难到不是调用的VB里的函数么。如果定义一个函数怎么定义

[赵4老师]

引用 9 楼 qq_39787665 的回复:

联系不到作者啊。就是拷贝的，难到不是调用的VB里的函数么。如果定义一个函数怎么定义

想办法让作者上红通！

[qq_39787665]

语句没有问题了，但是运行的时候说确实实例。

[赵4老师]

引用 12 楼 qq_39787665 的回复:

语句没有问题了，但是运行的时候说确实实例。

PiLiangTiHuan.TiHuan 对应的ocx需要注册。 在64位Windows下： 64位exe和dll在目录c:\windows\system32目录下； 32位exe和dll在目录c:\windows\syswow64目录下； 所以要注意： 在win64位系统下注册32位ocx或dll需要将32位ocx或dll拷贝到c:\windows\syswow64\目录下。 且注册要用c:\windows\syswow64\regsvr32 xxxxxxx.ocx或dll