ボタンコントロールの改行（WindowMobile）

VB.NET、WindowsMobile5.0の開発です。

ボタンコントロール内のテキストを改行したいのですがどうすればよいのでしょうか？
フォームロードで
Me.Button4.Text = "ｘｘｘ" + vbCrLf + "ｙｙｙ"
Me.Button4.Text = "ｘｘｘ" & vbCrLf & "ｙｙｙ"
としてみましたがｘｘｘが上側へ張り付いてｙｙｙは表示されません。
ボタンの範囲を広げてもｙｙｙは表示されてませんでした。

モバイル特有の何らかの処理が必要なのでしょうか？
それともそもそも方法がだめなんでしょうか？

初歩的な質問で申し訳ありませんが、ご教授お願い申し上げます。

No.1 ベストアンサー 回答者： redfox63 回答日時： 2008/11/04 16:18

ボタンスタイルを変更しないといけないようです

WinAPIのGetWindowLog/SetWindowLogを使って BS_MULTILINEスタイルを加えましょう

Declare Function GetWindowLong Lib "coredll" _
(hWnd as IntPtr, nIndex as Integer) as Integer
Declare Function SetWindowLong Lib "coredll" _
(hWnd as IntPtr, nIndex as Integer, nValue as Integer) as Integer
Const GWL_STYLE = -16
Const BS_MULTILINE = &h2000
を宣言しておいて
FormLoadイベントなどで
dim nStyle as Integer = GetWindowLong( Button4.Handle, GWL_STYLE)
nStyle = nStyle Or BS_MULTILINE
SetWindowLong( Button4.Handle, GWL_STYLE, nStyle )
Button4.text = "xxx" & vbcrlf & "yyy"
として ボタンの高さを2行入るように変更しておきましょう

この回答へのお礼

回答ありがとうございます。
指示通りでうまく行きました。ｍ＿＿ｍ
VBでWIN32APIを使えるんですね。
勉強になりました。

お礼日時：2008/11/05 20:07