RichTextBoxのTabについて

質問

RichTextBoxを使って、Tabキーを挿入したいのですが、Tabキーの幅を変える事は出来ますか？
もしできるのであれば、その方法を教えてください。

回答No.4

taka_tetsu · ベストアンサー

>Call SendMessage(Main.hwnd, EM_SETTABSTOPS, 4, 2)

ちゃんと見ると使い方間違ってますね(^^;;
wParamとlParamの4と2ってどこから出てきたんですか？

>lParamがByRefになってますね。ByValつけてください。

ごめんなさい、EM_SETTABSTOPSの場合、ByRefですね。ByValはずしてください。

エディットボックスの例ですけど同じです。
http://vbvbvb.com/jp/gtips/0701/gSendMessageEmSettabstops.html

参考URL：

http://vbvbvb.com/jp/gtips/0701/gSendMessageEmSettabstops.html

お礼

ありがとうございます！無事解決しました。
wParamとlParamは、Tabの幅に使われる値かなぁと思いなんとなく入れました^^;
教えていただき本当にありがとうございましたm(__)m

回答No.3

taka_tetsu

>Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
>
>Call SendMessage(Main.hwnd, EM_SETTABSTOPS, 4, 2)

lParamがByRefになってますね。ByValつけてください。

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

補足

ありがとうございます。
やってみたのですが、今度は実行する前にフリーズしてしまいました。何が原因なのでしょうか？？
WindowsXP HomeEditionでVB6.0なのですが・・・

回答No.2

taka_tetsu

VBでしたね。
Win32APIの、SendMessage()で送ってあげてくださいね。

補足

ありがとうございます。
やってみたのですが、なぜだかフリーズしてしまいます。どこがいけないのでしょうか？？

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Call SendMessage(Main.hwnd, EM_SETTABSTOPS, 4, 2)

回答No.1

taka_tetsu

Windows2000以降ならEM_SETTABSTOPSです。

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/editcontrols/editcontrolreference/editcontrolmessages/em_settabstops.asp