关于VB转换float

可乐彩

VB将float转换整型
有谁有好点的方法没?  
知道的请回复下 thanks

eabcdg

我来发,呵呵,今天看到有人在群里发了,我转发下!!
你看看
是VB转换FLOAT的,我已经测试通过!
需要声明一个API: CopyMemory
Dim l As Long
Dim f As Single
Dim mapX As Long
Dim mapY As Long
Dim base As Long
Dim strhex As String
Dim strhextosng As Long
'这里中间那些我就不写了!!

ReadProcessMemory hProcess, ByVal &H8EB1B4, base, 4, 0&
        'ReadProcessMemory hprocess, ByVal base + &H8, base, 4, 0&
        ReadProcessMemory hProcess, ByVal base + &H24, base, 4, 0&
        ReadProcessMemory hProcess, ByVal base + &H3E0, mapX, 4, 0&
        ReadProcessMemory hProcess, ByVal base + &H3E8, mapY, 4, 0&
        l = Val(mapX & strhex)
        CopyMemory f, l, 4
        mapX = Format(f, "0.000")
        strhextosng = mapX
        LabmapX.Caption = mapX
        l = Val(mapY & strhex)
        CopyMemory f, l, 4
        mapY = Format(f, "0.000")
        strhextosng = mapY
        LabmapY.Caption = mapY

蓝雨

好帖，顶一下，支持楼主