'字节数组到整型
private Function GetByteToInt(byval B as byte()) as integer
return cint(System.Text.Encoding.ASCII.GetString(B))
end function
'整型到字节数组
private Function GetIntToByte(byval i as integer) as byte()
return System.Text.Encoding.ASCII.GetBytes(cstr(i))
end function
Dim i As Integer = 34567
Dim b As Byte()
b = System.Text.Encoding.Default.GetBytes(CStr(i))
Dim m As Integer
For m = 0 To b.GetUpperBound(0)
MessageBox.Show(b(m).ToString)
Next
Dim p As String = System.Text.Encoding.ASCII.GetString(b)
Dim ii As Integer = CInt(p)