- 470 名前：461 mailto:sage [2006/11/30(木) 00:11:33 ]
- Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
If Me.ReadOnly = True Then
e.Handled = True
End If
MyBase.OnKeyPress(e)
End Sub
Protected Overrides Sub OnKeyDown(ByVal e As System.Windows.Forms.KeyEventArgs)
If Me.ReadOnly = True Then
If e.KeyData = Keys.Delete Then
e.Handled = True
End If
End If
MyBase.OnKeyDown(e)
End Sub
