掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リッチテキストボックスのスクロールバーのみを有効にするには？ (ID：76072)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
APIのSendMessageを使えば、テキストボックス内を 編集できないように出来るので、この方法が良いと思います。 'SendMessage＝＞メッセージをウインドウに送る '<引数> 'hWnd：ウインドウのハンドル 'wMsg：定数（EM＿××参照） 'wParam：パラメータ 'lParam：0 '<戻り値> '余り使わない 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 Const EM_SETREADONLY = &HCF '読み込み専用にする Private Sub Form_Load() 'テキストボックスを編集できないようにする。 Call SendMessage(Text1.hwnd, EM_SETREADONLY, -1, 0) End Sub ちなみに編集出来るように戻す場合は、 Private Sub Command1_Click() 'テキストボックスを編集できるようにする Call SendMessage(Text1.hwnd, EM_SETREADONLY, 0, 0) End Sub テキストボックスのEnabledは、TRUEのままで！
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.