VB.NET質問スレ (Part18)

VB.NET質問スレ (Part18) at TECH

469:461
06/11/30 00:11:02
>>452
まあ文句言うだけだとアレなんで一応方法考えてみたよ。
試したところこれで一応可能なようだけど。
Win32のメッセージに明るくないんでどこかおかしいかもしれないが。
ReadOnlyってプロパティが既に実装されていることを前提としている。

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Const WM_LBUTTONDOWN As Integer = &H201
Const WM_LBUTTONDBLCLK As Integer = &H203

If Me.ReadOnly = True Then
Select Case m.Msg
Case WM_LBUTTONDBLCLK, WM_LBUTTONDOWN
'MyBase.WndProc(m)
Case Else
MyBase.WndProc(m)
End Select
Else
MyBase.WndProc(m)
End If
End Sub

次ページ

続きを表示

1を表示