2018/07/01(Sun) 13:36:17 編集(投稿者)
あー、写す際にちょっと手修正したらコーディングミスが出てしまいましたね。
class NoContextMenuWindow
Inherits NativeWindow
Public Sub New(ByVal ctrl As Control)
Me.AssignHandle(ctrl.Handle)
End Sub
Protected Overrides Sub WndProc(ByRef m As Message)
If m.Msg = &H7b Then ' WM_CONTEXTMENU
m.Result = IntPtr.Zero
Return
End If
MyBase.WndProc(m)
End Sub
End Class
Private m_Window As NoContextMenuWindow
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
Dim tb As TextBox = Me.NumericUpDown1.Controls.OfType(Of TextBox)().First()
Me.m_Window = New NoContextMenuWindow(tb)
End Sub
// IfにThenが抜けてたので追加 あれー、なくてもコンパイル通るんだ…。