# Re: 有图示的功能表

Posted by cww on January 18, 1998 at 23:43:33:

In Reply to: Re: 有图示的功能表 posted by cww on January 18, 1998 at 23:27:55:

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

Private Type tLong
L As Long
End Type
Private Type t2Integer
b2(1 To 2) As Integer
End Type

Private Sub Form_Load()
Dim X1 As tLong
Dim X2 As t2Integer

X1.L = 2 ^ 17 + 1
LSet X2 = X1
Debug.Print X2.b2(1), X2.b2(2)
'x2.b2(1) --> hiword x2.b2(2) lowword
End Sub

Follow Ups: