Visual Basic

Option Explicit On
Public Class Form1
  Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
  Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
  Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Integer, ByVal nIndex As Integer) As Integer
  Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Integer, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
  Private Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As String) As Integer

  Private Const MF_STRING = &H0
  Private Const MF_BYCOMMAND = &H0
  Private Const WM_SYSCOMMAND = &H112
  Private Const MF_BYPOSITION = &H400&
  Public Const MF_SEPARATOR = &H800&
  ''' <summary>
  ''' Wis een commando via 0-based volgnummer in het systeem menu
  ''' </summary>
  ''' <param name="frm">De form van het systeem menu</param>
  ''' <param name="iPosition">De postitie 0-aantal -1</param>
  ''' <remarks></remarks>
  Private Sub RemoveControlMenuItemByPosition(ByVal frm As Form, ByVal iPosition As Integer)
    Dim iHSysMenu As Integer
    Dim iReturn As Integer
    Dim lDW As Long
    Dim lRR As Long
    iHSysMenu = GetSystemMenu(frm.Handle, 0)
    iReturn = RemoveMenu(iHSysMenu, iPosition, MF_BYPOSITION)
    lDW = GetWindowLong(frm.Handle, -16)   'Window style
    lDW = lDW And &HFFFEFFFF    'Turn off bits for Maximize arrow button
    lRR = SetWindowLong(frm.Handle, -16, lDW)
  End Sub

  Private Sub RemoveControlMenuItemByCommand(ByVal frm As Form, ByVal lCommand As _
    Long)
    Dim iHSysMenu As Long
    Dim iReturn As Long
    Dim lDW As Long
    Dim lRR As Long
    iHSysMenu = GetSystemMenu(frm.Handle, 0)
    iReturn = RemoveMenu(iHSysMenu, lCommand, MF_BYCOMMAND)
    lDW = GetWindowLong(frm.Handle, -16)   'Window style
    lDW = lDW And &HFFFEFFFF    'Turn off bits for Maximize arrow button
    lRR = SetWindowLong(frm.Handle, -16, lDW)
  End Sub


  Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    MyBase.WndProc(m) 'moet altijd hier staan

    Const WM_HOTKEY As Integer = &H312
    Const WM_COMMAND As Integer = &H112
    Select Case m.Msg
      Case WM_HOTKEY
      Case WM_COMMAND
        Select Case m.WParam
          Case 2
            MsgBox("You clicked to About")
          Case 3
            MsgBox("You clicked on Help")
          Case 4
            'This option removes the custom added menu items and the separator.
            Dim iHSysMenu As Integer
            '        Dim iReturn As Integer
            iHSysMenu = GetSystemMenu(Me.Handle, 0)
            Call RemoveControlMenuItemByCommand(Me, 1) 'nrs moeten overeenkomen met aanmaak
            Call RemoveControlMenuItemByCommand(Me, 2)
            Call RemoveControlMenuItemByCommand(Me, 3)
            Call RemoveControlMenuItemByCommand(Me, 4)
            Call RemoveControlMenuItemByCommand(Me, 5)
          Case 5
            Call RemoveControlMenuItemByPosition(Me, 0)
          Case 61587 'systeemmenu 
          Case 61458 'titelbalk
          Case 61472 'minimaliseer
          Case 61728 'restore
          Case 61488 'maximaliseer
          Case 61490 'dubbelclick titelbalk
          Case 61456 'verplaatsen
          Case 61440 'size menu
          Case 61441 'size left
          Case 61442 'size right
          Case 61443 'size up
          Case 61444 'size left up
          Case 61445 'size right up
          Case 61446 'size down
          Case 61447 'size Left down
          Case 61448 'size right down
          Case Else
            MsgBox("You clicked item " & m.WParam.ToString)
        End Select
    End Select
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim iReturn As Long
    Dim iHSysMenu As Long
    iHSysMenu = GetSystemMenu(Me.Handle, 0)
    'nrs moeten overeenkomen met wndproc
    iReturn = AppendMenu(iHSysMenu, MF_SEPARATOR, 1, vbNullString)
    iReturn = AppendMenu(iHSysMenu, MF_STRING, 2, "About...")
    iReturn = AppendMenu(iHSysMenu, MF_STRING, 3, "Help...")
    iReturn = AppendMenu(iHSysMenu, MF_STRING, 4, "Remove new items")
    iReturn = AppendMenu(iHSysMenu, MF_STRING, 5, "Remove 1st item")
  End Sub
End Class

Addhandler pCloseCtrl.click, addressof EventHandler(pObj,pArgs)

private sub EventHandler(pobj as object,pargs as eventargs)
'do your code here
end sub

evilnoodle wrote:

anonymous function,

AddHandler pCloseCtrl.Click, AddressOf Function(pObj, pArgs) Do
    If Me.formIsDirty Then
        MessageBox.Show("There are unsaved changes, please save the changes before closing.")
    Else
        pForm.Close()
       
    End If
End Function

evilnoodle wrote:

Your second solution is a far miss, VS wont accept that syntax.

evilnoodle wrote:

The first solution is closer but when I do the EventHandler(pObj, pArgs) I get a compile time error stating that: 'AddressOf' operand must be the name of a method (without parentheses)
When I remove the parenthesis, it works but I get a NullReferenceException on that same line at runtime.

AddHandler frm.Click, AddressOf EventHandler


    Private Sub EventHandler(ByVal pobj As Object, ByVal pargs As EventArgs)
        'do your code here
        MessageBox.Show("test")
    End Sub

Public Class DataFormLogic(Of T)

    Public Sub New(ByRef DGV As DataGridView)

        AddHandler DGV.UserDeletingRow, AddressOf MyDelete

        'Also tried this, which give a delegate signature error at compile time
        'AddHandler DGV.UserDeletingRow, New EventHandler(AddressOf MyDelete)

    End Sub
    
Private Sub MyDelete(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs)
        MsgBox("Eureka!!!!!")
    End Sub
End Class

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim dt As new DataTable()
        dt.Columns.Add(New DataColumn("Col1"))
        dt.Columns.Add(New DataColumn("Col2"))
        Dim row As DataRow = dt.NewRow
        row.Item("col1") = "col1"
        row.Item("col2") = "col2"
        dt.Rows.Add(row)
        row = dt.NewRow
        row.Item("col1") = "col11"
        row.Item("col2") = "col22"
        dt.Rows.Add(row)
        DataGridView1.DataSource = dt
        Dim temp As New Class1(DataGridView1)
    End Sub
End Class

Public Class Class1
    Public Sub New(ByRef dgv As DataGridView)
        AddHandler dgv.UserDeletingRow, AddressOf mydelete
    End Sub
    Private Sub mydelete(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs)
        MessageBox.Show("Eureka!!!!")
    End Sub
End Class

evilnoodle wrote:

Wow you reply fast, you're either in my time zone, or you never sleep!

evilnoodle wrote:

thank you very much

evilnoodle wrote:

I figured it out just before reading this post.

AddHandler pCloseCtrl.Click, AddressOf ClickHandler

Private Sub ClickHandler(pObj As Object, pArgs As EventArgs)
    'your code here
End Sub

Private Sub test()
	AddHandler pCloseCtrl.Click, AddressOf AddressOf AnonymousMethod1
End Sub
Private Sub AnonymousMethod1(ByVal pObj As Object, ByVal pArgs As Object)
	If Me.formIsDirty Then
		MessageBox.Show("There are unsaved changes, please save the changes before closing.")
	Else
		pForm.Close()
	End If
End Sub