テキストボックスに漢字を入力するには？ (ID:78258)

名前

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

本文 > 全く意味が無いので、WebBrowserを使用しましょう。 余力があれば、それを UserControlでカプセル化すると、 取り扱いが楽になりますね。 > WebBrowserで入力を作成した場合、EnterやＦキーの判定は出来ないのでしょうか 可能です。onkeydown/onkeypress/onkeyupイベントが利用できます。 HTML要素のイベントを取得するには、MSHTML.TLB を参照設定した上で、最初の Private Text1 As Object の部分を、 Private WithEvents Text1 As HTMLTextAreaElement などのようにすればOKです。 Private Function Text1_onkeypress() As Boolean Dim Evt As Object Set Evt = Text1.Document.parentWindow.event Debug.Print "onkeypress::", Debug.Print "キーコード="; Evt.keyCode, Debug.Print "Ctrl="; Evt.ctrlKey, Debug.Print "Alt="; Evt.altKey, Debug.Print "Shift="; Evt.shiftKey Evt.cancelBubble = False Evt.returnValue = True Text1_onkeypress = True End Function あるいは、「既定のメソッド」を持ったクラスを作成して、 そのインスタンスを Text1.onkeypress に Set するという 方法もあります。(この場合は MSHTML.TLB は不要です) # この、「既定メソッドをクラスをSetする方法」の場合は、 # イベント発生時に、そのクラスの既定のメソッドが # 呼び出されることになります。 > また背景色を変えることも出来ないのでしょうか。 CSSで変更できます。プログラム的に変更するには、 styleプロパティもしくは runtimeStyleプロパティを使います。 MsgBox "標準色の「赤」" Text1.runtimeStyle.background = "red" MsgBox "Webカラーの「雪色」" Text1.runtimeStyle.background = "snow" MsgBox "システムカラーの「Window背景色」" Text1.runtimeStyle.background = "window" MsgBox "システムカラーの「ボタン色」" 'Text1.runtimeStyle.background = "ThreeDFace" 'ThreeDFaceとButtonFaceは Text1.runtimeStyle.background = "ButtonFace" 'どちらも同じ意味になります MsgBox "RGBカラーでの指定「#ffffcc」" Text1.runtimeStyle.background = "#ffffcc" なお、現在の設定値を知りたい場合は、currentStyleプロパティです。 MsgBox "現在の色は、" & Text1.currentStyle.backgroundColor & "です。"