ab.com コミュニティ

出来ました。ＫＩＣＯさん、NoWestさんありがとうございました。

何時も、お世話に成っています。

同じ内容の質問が　[url]http://forums.belution.com/ja/vc/000/134/12s.shtml[/url]　に在りました。

読み取り専用の設定・解除は、SendMessage関数で行うようです。
SendMessage(hWnd, EM_SETREADONLY, mode, 0) 'mode: TRUE= 設定, FALSE= 解除

"EM_SETREADONLY"だけが例外で、SetWindowLong関数では変更出来ないのでしょうか、
まだ他にも幾つか有るのでしょうか？


宜しくお願いします。

	Dim Style As DWord
	Style=GetWindowLong(hEdit,GWL_STYLE)
	SetWindowLong(hEdit,GWL_STYLE,Style And (Not(ES_READONLY)))

このように追加しましたが解除されません。
[code] Dim Style As DWord
Style=GetWindowLong(hEdit,GWL_STYLE)
SetWindowLong(hEdit,GWL_STYLE,Style And (Not(ES_READONLY)))
[/code]

Dim Style As DWord
Style=GetWindowLong(hMainWnd,GWL_STYLE)
SetWindowLong(hMainWnd,GWL_STYLE,Style And (Not(WS_MAXIMIZEBOX)))

[quote]> エディットコントロールの読み取り専用のスタイルをプログラムの中から解除したいのですがどのようにすれば出来るでしょうか？[/quote]

ウィンドウスタイルを変更したい場合はSetWindowLong関数にGWL_STYLEを指定して新しいスタイルを入れてやれば変更できます。
しかしながら、ウィンドウスタイルを途中で変える場合Windowsのシステムがこちらが意図していない値を追加している場合があるので、新しいスタイルを追加する場合は変更前のウィンドウスタイルにORで新しいスタイルを追加し、スタイルを削除する場合は変更前のスタイルに除きたいスタイルをNAND(Not And)しなければいけません。

例えば最大化ボタンをウィンドウスタイルから除きたい場合、以下のようにします。
[code]Dim Style As DWord
Style=GetWindowLong(hMainWnd,GWL_STYLE)
SetWindowLong(hMainWnd,GWL_STYLE,Style And (Not(WS_MAXIMIZEBOX)))[/code]

あとは「エディットボックスの読み取り専用」ですが、ヘルプを見るとES_READONLYと載っていますのでこれをスタイルから除けばよいでしょう。


余談ですが、単純にエディットボックスに入力をさせたくない場合、EnableWindowが使えます。ヘルプで調べてみてください。

エディットコントロールの読み取り専用のスタイルをプログラムの中から解除したいのですがどのようにすれば出来るでしょうか？