ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

shazbot 2009/05/04(ｿｽｿｽ) 16:46:49

ｿｽｿｽｿｽﾍゑｿｽｿｽ黷ｽｿｽｿｽｿｽ[ｿｽ}ｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾐらがｿｽﾈゑｿｽAIMEｿｽﾅ変奇ｿｽｿｽｿｽﾌ包ｿｽｿｽﾍに置ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ@ｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽF
ｿｽｿｽｿｽ蛯､ｿｽﾍゑｿｽｿｽﾟでゑｿｽ  ->  ｿｽｿｽｿｽｿｽｿｽﾍ雨ｿｽﾅゑｿｽ
kyouhaamedesu     ->  ｿｽｿｽｿｽｿｽｿｽﾍ雨ｿｽﾅゑｿｽ

ｿｽｿｽﾏ奇ｿｽｿｽﾅゑｿｽｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽし、ｿｽｿｽｿｽxｿｽﾍ問いｿｽﾜゑｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽﾏ奇ｿｽｿｽﾌ包ｿｽｿｽ@ｿｽｿｽTｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽIｿｽVｿｽｿｽｿｽE 2009/05/04(ｿｽｿｽ) 22:28:20

ｿｽ答ではゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽE

http://vsug.jp/tabid/63/forumid/51/threadid/8461/scope/posts/Default.aspx
http://tsuge.astgate.biz/witchgarden/?C%23%20Tips%2FWitchPaper%A4%C7%BC%C2%C1%F5%A4%B7%A4%BFIME%C0%A9%B8%E6

ｿｽｿｽｿｽｿｽｿｽﾜで、ｿｽQｿｽlｿｽEｿｽEｿｽE

ｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽしｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽｿｽｿｽAｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽけｿｽﾅはゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽｿｽｿｽ@ｿｽｿｽｿｽﾝに、ｿｽｿｽｿｽﾍ使ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB

ｿｽﾈ擾ｿｽB

MI 2009/05/05(ｿｽｿｽ) 19:17:54

VB6ｿｽﾅゑｿｽｿｽｿｽｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽﾝ〜ｿｽｿｽｿｽｿｽpｿｽpｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽｿｽ - IME
http://www.mitene.or.jp/‾sugisita/vb6_ime.html

ｿｽｿｽｿｽﾌペｿｽ[ｿｽWｿｽﾌ、ｿｽuIMEｿｽﾌ変奇ｿｽｿｽｿｽｿｽﾌ取得ｿｽvｿｽﾆゑｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽﾉゑｿｽｿｽｿｽﾜゑｿｽｿｽB

VB6ｿｽﾅ趣ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽAｿｽuｿｽｿｽｿｽ蛯､ｿｽﾍゑｿｽｿｽﾟでゑｿｽｿｽvｿｽﾆ難ｿｽｿｽﾍゑｿｽｿｽｿｽﾆ会ｿｽｿｽLｿｽﾌようｿｽﾈ鯉ｿｽ竄ｪｿｽ謫ｾｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽﾍ雨ｿｽﾅゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾟでゑｿｽ
ｿｽｿｽｿｽｿｽｿｽﾍ茨ｿｽｿｽﾅゑｿｽ
ｿｽｿｽｿｽﾍ雨ｿｽﾅゑｿｽ
ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽE
ｿｽ@ｿｽ@ｿｽE

shazbot 2009/05/07(ｿｽｿｽ) 20:19:45

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽﾈに托ｿｽRｿｽﾖ連ｿｽTｿｽCｿｽgｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾄ申ｿｽｿｽｿｽあゑｿｽﾜゑｿｽｿｽｿｽEｿｽEｿｽE
ｿｽｿｽLｿｽﾌサｿｽCｿｽgｿｽAｿｽｿｽﾏ参ｿｽlｿｽﾉなゑｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽlｿｽﾑに、ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽﾌ回答ゑｿｽLｿｽｿｽｿｽﾜゑｿｽｿｽﾋ。

ｿｽｿｽｿｽｿｽmｿｽF: VB.NET 2008 Express Edition
---------
Option Explicit On
Imports System.Runtime.InteropServices

Module Hiragana2Kanji

    Private Enum GCL_ENUM
        GCL_CONVERSION = &H1
        GCL_REVERSECONVERSION = &H2
        GCL_REVERSE_LENGTH = &H3
    End Enum

    <DllImport("Imm32.dll")> _
    Public Function ImmGetContext(ByVal hWnd As IntPtr) As IntPtr
    End Function

    <DllImport("Imm32.dll")> _
    Public 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")> _
    Public Function ImmReleaseContext(ByVal hWnd As IntPtr, ByVal hIMC As IntPtr) As Integer
    End Function

    <StructLayout(LayoutKind.Sequential)> _
    Private 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


    Public Function GetStr2KanjiList(ByVal text As String, ByVal hIMC As IntPtr) As String()

        If text = "" Then Return ""

        Dim hKL As IntPtr = System.Windows.Forms.InputLanguage.CurrentInputLanguage.Handle
        Dim list As New CANDIDATELIST
        Dim dwSize As Integer = ImmGetConversionList(hKL, hIMC, text, IntPtr.Zero, 0, GCL_ENUM.GCL_CONVERSION)
        Dim BufList As IntPtr = Marshal.AllocHGlobal(dwSize)


        ImmGetConversionList(hKL, hIMC, text, BufList, dwSize, GCL_ENUM.GCL_CONVERSION)
        Marshal.PtrToStructure(BufList, list)


        Dim buf As Byte() = New Byte(dwSize - 1) {}


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

        Dim os As Integer = list.dwOffset
        Dim str As String = System.Text.Encoding.[Default].GetString(buf, os, buf.Length - os - 3)
        Dim par As Char() = vbNullChar.ToCharArray()

        Dim strList As String() = str.Split(par)


        Return strList

    End Function
End Module



Public Class Form1

    Dim hIMC As IntPtr

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        debug.writeline(GetStr2Kanji(TextBox1.Text, hIMC))

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        hIMC = ImmGetContext(Me.Handle)
        ImmReleaseContext(Handle, hIMC)
    End Sub
End Class

----------
ImmReleaseContextｿｽｿｽImmGetContextｿｽｿｽGetStr2KanjiListｿｽｿｽﾅ宣言ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾆ、ｿｽｿｽxｿｽﾚ以降ｿｽﾌ趣ｿｽｿｽsｿｽﾌとゑｿｽｿｽﾉエｿｽｿｽｿｽ[ｿｽｿｽｿｽﾅてゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽmｿｽｿｽｿｽsｿｽｿｽｿｽﾌ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ驍ｽｿｽﾟにゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ`ｿｽﾉゑｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.