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

名前

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

本文 もしくはAPIでやる？ 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 Private Const EM_SETREADONLY = &HCF '読み込み専用にする Private Sub Command1_Click() 'テキストボックスを編集できないようにする。 Call SendMessage(Text1.hwnd, EM_SETREADONLY, -1, 0) End Sub Private Sub Command2_Click() 'テキストボックスを編集できるようにする Call SendMessage(Text1.hwnd, EM_SETREADONLY, 0, 0) End Sub