OCXのイベントにて文字列のポインタを扱い方法は？ (ID:121486)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ノ■ミ Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long Public Function GetString(ByVal char_Array_Pointer As Long) As String Dim Length As Long Dim buf() As Byte Length = lstrlen(char_Array_Pointer) If Length > 0 Then ReDim buf(1 To Length) CopyMemory buf(1), ByVal char_Array_Pointer, Length GetString = StrConv(buf, vbUnicode) Else GetString = "" End If End Function ※保障ナシ