tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 変換ウィンドウについて
投稿日: 2006/11/21(Tue) 10:05
投稿者はねねこ
はじめまして。

現在、VB2005にてソフトキーボードのようなものを作成しているのですが、どうしても解決できない問題があるのでご助力お願いします。

問題点は一度ボタンを押さないとうまく機能しないというものです。
例えば、「あ」ボタンを押したら、テキストボックス内の変換ウィンドウには「あ」とでますが、
この次に「い」ボタンを押しますと、変換ウィンドウの「あ」が消えて「い」だけになります。
この次に「あ」ボタンを押しますと、正常に機能して「いあ」と表示されます。
しかし、この次に一度も押してない「う」ボタンを押しますと、変換ウィンドウは「いあ」が消えて「う」と表示されてしまいます。
説明下手ですみません・・・
このような問題点を解決する方法がありましたら、どうかお教えください。
以下に現在のソースを添付します。
それでは、失礼します。


-----------------------------------------------------------------

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TextBox1.Focus()
        SendKeys.SendWait("a")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.TextBox1.Focus()
        SendKeys.SendWait("i")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.TextBox1.Focus()
        SendKeys.SendWait("u")
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.TextBox1.Focus()
        SendKeys.SendWait("e")
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Me.TextBox1.Focus()
        SendKeys.SendWait("o")
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.TextBox1.Focus()
        SendKeys.SendWait(" ")
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Me.TextBox1.Focus()
        SendKeys.SendWait("{ENTER}")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
        TextBox1.ImeMode = Windows.Forms.ImeMode.On
        TextBox1.ImeMode = Windows.Forms.ImeMode.Hiragana
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Me.TextBox1.Focus()
        SendKeys.SendWait("{RIGHT}")
        Me.TextBox1.Focus()
    End Sub
End Class

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。