テキストボックスの文字を消させない (ID:81969)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > EnableとVisibleを使用せずに実装できるのでしょうか？ 使わないって、どういう意味なんスかね？ 私は以下のようにして実装しています。 １．EnabledとLockedをTrueにします。 ２．テキストボックスのChangeイベントでテキストボックスをアンドゥします。 以上。 ちなみにアンドゥはだいたい↓こんな感じ。 'SendMessage Private Declare Function SendMessage _ Lib "user32.dll" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam As Any) _ As Long Private Const WM_UNDO As Long = &H304& 'アンドゥ Private bNowInput As Boolean 'プログラム内から表示データを変えたい時Trueにする。 Private Sub Text1_Change() Static bChk As Boolean If bNowInput Or bChk Then Exit Sub bChk = True 'アンドゥ Call SendMessage(Text1.hWnd, WM_UNDO, 0&, ByVal 0&) bChk = False End Sub