■◇FeliCa でソフトを作りまくるスレ◇■

■◇FeliCa でソフトを作りまくるスレ◇■ at TECH

334:外人さん２０６
06/09/06 12:14:29
>>321
こんな感じ
Public Function VarPtr(ByVal obj As Object) As Integer
Dim gch As GCHandle = GCHandle.Alloc(obj, GCHandleType.Pinned)
Dim address As Integer = gch.AddrOfPinnedObject().ToInt32()

gch.Free()
VarPtr = address
End Function

次ページ

続きを表示

1を表示