7,785
社区成员
发帖
与我相关
我的任务
分享帮我解析一下这段代码
Option Explicit
Private Type DDtLong
ll As Long
End Type
Private Type DDTwoWord
LowWord As Integer
HiWord As Integer
End Type
Private Sub Command1_Click()
Dim T As DDtLong
Dim TT As DDTwoWord
T.ll = -2139095035
LSet TT = T
MsgBox TT.LowWord & " " & TT.HiWord
End Sub
?为什么TT.LowWord 会等于5呢,怎么算来的?
如果T.ll=-2138046463,TT.LowWord又等于1,真的不明白.
Private Type DDtLong
ll As Long
End Type
Private Type DDTwoWord
LowWord As Integer
HiWord As Integer
End Type
Private Sub Command1_Click()
Dim T As DDtLong
Dim TT As DDTwoWord
T.ll = -2139095035
LSet TT = T
MsgBox TT.LowWord & " " & TT.HiWord
End Sub
?为什么TT.LowWord 会等于5呢,怎么算来的?
如果T.ll=-2138046463,TT.LowWord又等于1,真的不明白.
...全文
请发表友善的回复…
发表回复
UltimateKiller 2004-09-01
- 打赏
- 举报
谢楼上了.
supergreenbean 2004-09-01
- 打赏
- 举报
T.ll=-2139095035=&h80800005
所以TT.LowWord = &h0005=5 ,TT.HiWord=&h8080=-32640
所以TT.LowWord = &h0005=5 ,TT.HiWord=&h8080=-32640
UltimateKiller 2004-09-01
- 打赏
- 举报
这代码是很好的.
TT.LowWord 就是得出菜单的ID
那个-2139095035是在消息里取到的.
不过我不明白怎样取出这个5来呀,有没有高手.
TT.LowWord 就是得出菜单的ID
那个-2139095035是在消息里取到的.
不过我不明白怎样取出这个5来呀,有没有高手.
jam021 2004-09-01
- 打赏
- 举报
顶!
starsoulxp 2004-09-01
- 打赏
- 举报
关注
zyg0 2004-09-01
- 打赏
- 举报
你这样做干什么，这个问题是溢出造成的
starsoulxp 2004-09-01
- 打赏
- 举报
LSet 用空格填充字符串使其为指定长度，或者将用户定义类型的变量复制到另一个用户定义类型的变量。
sssss342072 2004-09-01
- 打赏
- 举报
不懂就要顶
