●●VB6转VS2005，AddressOf取得Funtion或Sub地址的问题●●

2006-10-07 03:57:51 413 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Paradise_heida 墨衍会员 · AI 创作全网分发关注 + 加入社区

Ubuntu 16.04 安装不了有道词典解决方法首先，前往有道词典官网下载deb安装包：http://cidian.youdao.com/index-linux.html 我选择的是64位ubuntu版本：youdao-dict_1.1.0-0-ubuntu_amd64.deb 进去你的deb包放置的目录，然后运行 sudo dpkg -i youdao-dict_1.1.0-0-ubuntu_amd64.deb 你会发现这个阅读详情

VB6的原代码：

API函数的定义：
Private Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

API函数的调用：
lpPrevWndProc = SetWindowLong(lhWnd, GWL_WNDPROC, AddressOf WindowProc)

转到VS2005后，
lpPrevWndProc = SetWindowLong(lhWnd, GWL_WNDPROC, AddressOf WindowProc)
中，AddressOf WindowProc编译错误，因为SetWindowLong的第三个参数是Long型，而AddressOf是个Sub，没有返回值，类型不符。

请问如果解决？或者怎样才能取得WindowProc的地址？
谢谢！！！

...全文

有道词典 linux 无法运行,ubuntu16.04安装不上有道词典的解决办法 ubuntu16.04安装不上有道词典，提示：le@hu-pc:~/下载$ sudo dpkg -i youdao-dict_1.1.0-0-ubuntu_amd64.deb正在选中未选择的软件包 youdao-dict。(正在读取数据库 ... 系统当前共安装有 217798 个文件和目录。)正准备解包 youdao-dict_1.1.0-0-ubuntu_amd64.deb ...正在解包 ... 阅读详情

Paradise_heida

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

chaircat 2006-10-08

打赏
举报

要用委托,不能用AddressOf,因为返回的不是地址,而是一个Token...

Knight94 2006-10-08

打赏
举报

你可以用Delegate试试
Private Delegate Sub WindowProcHandle(...)

<DllImport("user32")> _
Private Shared Function SetWindowLong(ByVal hWnd As IntPtr, _
ByVal nIndex As Integer, _
<MarshalAs(UnmanagedType.FunctionPtr)> ByVal FunAddr As WindowProcHandle) As Integer
End Function

调用时候最后一个参数可以如下形成
Dim FunAddr As New WindowProcHandle( AddressOf WindowProc)

Paradise_heida 2006-10-08

打赏
举报

完全可以了！
谢谢Knight94(愚翁)的帮助指导！！！
结贴！！！

Knight94 2006-10-08

打赏
举报

yun~

change
Private Delegate Sub WindowProcHandle(...)

with
Private Delegate Function WindowProcHandle(ByVal lhWnd As Integer, ByVal luMsg As Integer, ByVal lwParam As Integer, ByVal llParam As Integer) As Integer

Paradise_heida 2006-10-08

打赏
举报

一个问题是WindowProcHandle与WindowProc没有相同的署名，另一个问题是WindowProcHandle定义的参数不知道应该定义成什么，请赐教！！谢谢！！

Paradise_heida 2006-10-08

打赏
举报

刚刚试过，现在有两个问题：

1，Dim FunAddr As New WindowProcHandle( AddressOf WindowProc)这一句，编译错误信息是WindowProcHandle与WindowProc的署名(signature)不同，

2，Private Delegate Sub WindowProcHandle(...)这一句定义中的参数小弟不知道应该怎么写。

我的WindowProc函数的代码如下：
Public Function WindowProc(ByVal lhWnd As Integer, ByVal luMsg As Integer, ByVal lwParam As Integer, ByVal llParam As Integer) As Integer

'Message确认
If (luMsg = &H7BS) Then

''Message为&H7B
Debug.Print(VB6.TabLayout("Message: " & lhWnd, luMsg, lwParam, llParam))

Else
''Message为&H7B以外

On Error Resume Next

'WindowHandle的判断
If (IsWindow(lhWnd)) Then

'正常
WindowProc = CallWindowProc(colPrevWndProc.Item(CStr(lhWnd)), lhWnd, luMsg, lwParam, llParam)

End If

On Error GoTo 0

End If

End Function

Paradise_heida 2006-10-08

打赏
举报

多谢 Knight94(愚翁) 大哥再次拔刀相助！！！

小弟马上按照你的方法去试试，稍后结贴。

少儿编程乔老师 2006-10-07

打赏
举报

顶帖才是硬道理

stone_soup 2006-10-07

打赏
举报

Paradise_heida 2006-10-07

打赏
举报

sx_lxh(路漫漫)的两个方法都没有效果。

AddressOf本身是一个过程（Sub），它没有返回值，SetWindowLong定义成什么类型都行不通。

我想，是不是应该找到替代方法，而不是只改动API函数的参数类型。

sx_lxh 2006-10-07

打赏
举报

也试试
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hwnd As Int32, _
ByVal nIndex As Int32, _
ByVal dwNewLong As Int32) As Int32

sx_lxh 2006-10-07

打赏
举报

Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" ( _
ByVal hwnd As Int32, _
ByVal nIndex As Int32, _
ByVal dwNewLong As IntPtr) As Int32

●●VB6转VS2005，AddressOf取得Funtion或Sub地址的问题●●

相关推荐