| 投稿日 | ： 2005/10/28(Fri) 18:38 |
| 投稿者 | ： だい |
| Ｅメール | ： dee_bassist@hotmail.com |
| ＵＲＬ | ： |
| タイトル | ： Re^3: テキストボックスへの貼り付け禁止 |
> ただ、マウスの右クリックによるコピーだけは有効にしたいのですが、
#それを先に書いててもらえれば、スレッド1往復ぶん減ったのに...(^^;
簡単に実現するなら、
Private Sub Text1_Change()
Me.Text1.Text = Me.Text1.Tag '変更されようとしたら旧値を書き戻して阻止
End Sub
Private Sub Text1_GotFocus()
Me.Text1.Tag = Me.Text1.Text 'フォーカスがきたら値をTagプロパティに退避
End Sub
でコピーはできて、貼り付けメニューも出てきますが、実際には貼り付けられない
という動作になります。