テキストボックスへの貼り付けができないようにする方法 (ID:106177)

名前

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

本文 うーーん これでいけるかな？ Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 22 Then ' ビープ音を鳴らす Beep ' 入力された文字をキャンセル KeyAscii = 0 End If End Sub