# Re: 有图示的功能表

Posted by cww on January 18, 1998 at 23:27:55:

In Reply to: Re: 有图示的功能表 posted by 陈凯程 on January 16, 1998 at 22:27:10:

: : 如何在 Menu 让图示与文字并存 ?
糟糕的是：小弟并不知到如何读取 Long Integer 的 High Word 和 Low Word！
可以用以下的方式来求得，只是我也希望有更好的方式

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
lpvDest As Any, lpvSource As Any, ByVal LenToCopy As Long)

Dim ll As Long
Dim i(1 To 2) As Integer
ll = 2 ^ 17 + 1
CopyMemory i(1), ll, 4
Debug.Print i(1), i(2)
' i(1) 是hiword i(2)是loword
End Sub

Follow Ups:

- Re: 有图示的功能表 cww 23:43:33 1/18/98 (0)