カナ変換

Public Class WR_Imm32



	Public Enum GCL As Integer

		CONVERSION = &H1

		REVERSECONVERSION = &H2

		REVERSE_LENGTH = &H3

	End Enum



	<DllImport("Imm32.dll", CharSet:=CharSet.Auto, entrypoint:="ImmGetContext")> _

	Public Shared Function ImmGetContext(ByVal hWnd As IntPtr) As IntPtr

	End Function



	<DllImport("User32.dll", CharSet:=CharSet.Auto, entrypoint:="GetKeyboardLayout")> _

	Public Shared Function GetKeyboardLayout(ByVal idThread As Integer) As IntPtr

	End Function



	<DllImport("Imm32.dll", CharSet:=CharSet.Auto, entrypoint:="ImmGetConversionList")> _

	Public Shared Function ImmGetConversionList(ByVal hKL As IntPtr, ByVal hIMC As IntPtr, ByVal lpSrc As String, ByVal lpDst As IntPtr, ByVal dwBufLen As Integer, ByVal uFlag As Integer) As Integer

	End Function



	<DllImport("Imm32.dll", CharSet:=CharSet.Auto, entrypoint:="ImmReleaseContext")> _

	Public Shared Function ImmReleaseContext(ByVal hWnd As IntPtr, ByVal hIMC As IntPtr) As Boolean

	End Function



	<StructLayout(Runtime.InteropServices.LayoutKind.Sequential)> _

	Public Class CANDIDATELIST

		Public dwSize As Integer

		Public dwStyle As Integer

		Public dwCount As Integer

		Public dwSelection As Integer

		Public dwPageStart As Integer

		Public dwPageSize As Integer

		Public dwOffset As Integer

	End Class



End Class



Public Function GetReverseConversion(ByVal AText As String) As String()

	Dim hIMC As IntPtr = WR_Imm32.ImmGetContext(Me.Handle)

	Dim hKL As IntPtr = WR_Imm32.GetKeyboardLayout(0)

	Dim list As New WR_Imm32.CANDIDATELIST

	Dim dwSize As Integer = WR_Imm32.ImmGetConversionList(hKL, hIMC, AText, IntPtr.Zero, 0, WR_Imm32.GCL.REVERSE_LENGTH)

	Dim BufList As IntPtr = Marshal.AllocHGlobal(dwSize)

	WR_Imm32.ImmGetConversionList(hKL, hIMC, AText, BufList, dwSize, WR_Imm32.GCL_REVERSECONVERSION)

	Marshal.PtrToStructure(BufList, list)

	Dim buf(dwSize) As Byte

	Marshal.Copy(BufList, buf, 0, dwSize)

	Marshal.FreeHGlobal(BufList)

	Dim os As Integer = list.dwOffset

	Dim str As String = System.Text.Encoding.Unicode.GetString(buf, os, buf.Length - os - 3) ' 注意

	' Dim par() As Char = "\0".ToCharArray() 削除

	' Dim strList() As String = str.Split(par) ↓変更

	Dim strList() As String = str.Split(New Char() {ControlChars.NullChar})

	WR_Imm32.ImmReleaseContext(Me.Handle, hIMC)

	Return strList

End Function

    if (list.dwCount > 0)
    {
        int os = list.dwOffset;
        string str = System.Text.Encoding.Default.GetString(buf,os,buf.Length-os);
        char[] par = "\0".ToCharArray();
        string[] temp = str.Split(par);
        strList = new string[list.dwCount];
        Array.Copy(temp,strList,list.dwCount);
    }