ab.com コミュニティ

[quote]
> ちなみにそのとき私は、エディットボックスを２つ作成して対処しました。
[/quote]

エディットボックスやリストボックスってのは一種の可変バッファやキュー、スタックの様に簡単に扱えますからメモリ関連の扱いに慣れてないときには便利ですよね。

でも、C言語なんかでバリバリやったりする人にはそんなことすると嫌われそうです。というより、そんなことはするなっていうプログラミング支援サイトは結構多いです。

そうはいっても便利なものは便利なので、私もちょくちょくリストボックスを使ってキューを作ったりしてるんですが（笑

> 作成する時にスタイルを入れておかないとできないのかもしれません。

恐らくその通りです。
VisualBasicで経験があるのですが、右端で折り返すかどうかは実行時には変更できないです。
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vb98/html/vbproScrollBars.asp

ちなみにそのとき私は、エディットボックスを２つ作成して対処しました。

> メモ帳ではEditBoxを削除して再作成していました。
そうだったんですか！？よく分かりましたね...(￣□￣;)

> 作成する時にスタイルを入れておかないとできないのかもしれません。
よく分かりました。ノッチさん、ありがとうございました。

> テキストエディタを作っていて、メモ帳の「右端で折り返す」を実装しようと思ったんですけど、うまくいきません。

うまくいかなかったので試しにメモ帳(notepad)を調べてみたのですが、
メモ帳ではEditBoxを削除して再作成していました。
作成する時にスタイルを入れておかないとできないのかもしれません。

Dim hMainEdit As HWND

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	hMainEdit=GetDlgItem(hMainWnd,EditBox1)
End Sub

Sub MainWnd_CommandButton1_Click()
Dim style As LONG_PTR

	style=GetWindowLong(hMainEdit,GWL_STYLE)
'	If style And ES_CENTER Then
	If style And ES_AUTOHSCROLL Then
'		style-=ES_CENTER
		style-=ES_AUTOHSCROLL
	Else
'		style+=ES_CENTER
		style+=ES_AUTOHSCROLL
	End If

	SetWindowLong(hMainEdit,GWL_STYLE,style)
	SetWindowPos(
		hMainEdit,
		NULL,
		NULL,NULL,
		NULL,NULL,
		SWP_FRAMECHANGED or SWP_NOMOVE or SWP_NOSIZE)
End Sub

テキストエディタを作っていて、メモ帳の「右端で折り返す」を実装しようと思ったんですけど、うまくいきません。
テキストを中央揃えにするかしないかを試しにやってみたらうまくいったので間違ってはいないと思うんですけど...。
[hide][code]Dim hMainEdit As HWND

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
hMainEdit=GetDlgItem(hMainWnd,EditBox1)
End Sub

Sub MainWnd_CommandButton1_Click()
Dim style As LONG_PTR

style=GetWindowLong(hMainEdit,GWL_STYLE)
' If style And ES_CENTER Then
If style And ES_AUTOHSCROLL Then
' style-=ES_CENTER
style-=ES_AUTOHSCROLL
Else
' style+=ES_CENTER
style+=ES_AUTOHSCROLL
End If

SetWindowLong(hMainEdit,GWL_STYLE,style)
SetWindowPos(
hMainEdit,
NULL,
NULL,NULL,
NULL,NULL,
SWP_FRAMECHANGED or SWP_NOMOVE or SWP_NOSIZE)
End Sub[/code][/hide]