RichTextBoxのTabについて

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

No.4 ベストアンサー 回答者： taka_tetsu 回答日時： 2005/02/25 23:24

>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/gSendMessageEmSe …

参考URL：http://vbvbvb.com/jp/gtips/0701/gSendMessageEmSe …

この回答へのお礼

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

お礼日時：2005/02/26 01:46

No.3 回答者： taka_tetsu 回答日時： 2005/02/25 12:06

>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なのですが・・・

補足日時：2005/02/25 15:33

No.2 回答者： taka_tetsu 回答日時： 2005/02/25 01:15

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)

補足日時：2005/02/25 01:34

No.1 回答者： taka_tetsu 回答日時： 2005/02/25 01:13

Windows2000以降ならEM_SETTABSTOPSです。

http://msdn.microsoft.com/library/default.asp?ur …