VB中字节数组和其他数据类型之间的转化

Tesla.Angela

1. 
   
2. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
   
3. Private Sub Command1_Click()
   
4.     Dim test(0 To 3) As Byte
   
5.     Dim i As Long, j As Long
   
6.     i = 1000
   
7.     '从long转化为byte数组
   
8.      CopyMemory test(0), i, 4
   
9.      '从byte数组转化为long
   
10.      CopyMemory j, test(0), 4
    
11.      MsgBox j
    
12. End Sub
    
13. '或者根据下面的代码中的函数进行转换:
    
14. Public Function HiByte(ByVal wParam As Integer) As Byte
    
15.   'note: VB4-32 users should declare this function As Integer
    
16.    HiByte = (wParam And &HFF00&) \ (&H100)
    
17. End Function
    
18. Public Function LoByte(ByVal wParam As Integer) As Byte
    
19.   'note: VB4-32 users should declare this function As Integer
    
20.    LoByte = wParam And &HFF&
    
21. End Function
    
22. Public Function HiWord(wParam As Long) As Integer
    
23.    If wParam And &H80000000 Then
    
24.       HiWord = (wParam \ 65535) - 1
    
25.    Else
    
26.       HiWord = wParam \ 65535
    
27.    End If
    
28. End Function
    
29. Public Function LoWord(wParam As Long) As Integer
    
30.    If wParam And &H8000& Then
    
31.       LoWord = &H8000& Or (wParam And &H7FFF&)
    
32.    Else
    
33.       LoWord = wParam And &HFFFF&
    
34.    End If
    
35. End Function
    
36. Public Function LoWordCM(wParam As Long) As Integer
    
37.   'using API
    
38.    CopyMemory LoWordCM, wParam, 2
    
39. End Function
    
40. Public Function LShiftWord(ByVal w As Integer, ByVal c As Integer) As Integer
    
41.    Dim dw As Long
    
42.    dw = w * (2 ^ c)
    
43.    If dw And &H8000& Then
    
44.       LShiftWord = CInt(dw And &H7FFF&) Or &H8000&
    
45.    Else
    
46.       LShiftWord = dw And &HFFFF&
    
47.    End If
    
48. End Function
    
49. Public Function RShiftWord(ByVal w As Integer, ByVal c As Integer) As Integer
    
50.    Dim dw As Long
    
51.    If c = 0 Then
    
52.       RShiftWord = w
    
53.    Else
    
54.       dw = w And &HFFFF&
    
55.       dw = dw \ (2 ^ c)
    
56.       RShiftWord = dw And &HFFFF&
    
57.    End If
    
58. End Function
    
59. '两个byte转换为一个integer
    
60. Public Function MakeWord(ByVal bHi As Byte, ByVal bLo As Byte) As Integer
    
61.    If bHi And &H80 Then
    
62.       MakeWord = (((bHi And &H7F) * 256) + bLo) Or &H8000&
    
63.    Else
    
64.       MakeWord = (bHi * 256) + bLo
    
65.    End If
    
66. End Function
    
67. '两个integer转换为一个long
    
68. Public Function MakeDWord(wHi As Integer, wLo As Integer) As Long
    
69.    If wHi And &H8000& Then
    
70.       MakeDWord = (((wHi And &H7FFF&) * 65536) Or _
    
71.                     (wLo And &HFFFF&)) Or &H80000000
    
72.    Else
    
73.       MakeDWord = (wHi * 65535) + wLo
    
74.    End If
    
75. End Function
    

复制代码

http://blog.csdn.net/gxj022/archive/2007/11/21/1896288.aspx

oopww

这个有什么用啊！？

HoviDelphic

貌似可以用HOOK转化
本网站最菜的人 发表于 2010-3-12 20:39

    你说说看。