How to call a sub by sender and e

[zubenubie]

Good day,

I have a dynamically generated datagridview and now i want to do a mouseclick event

Public Sub dgv_MouseClick(sender As Object, e As MouseEventArgs)

But now i do not know how to call it with what sender parameter and e parameter

Thnaks in advance

[patel45]

can you show please your code ?

[zubenubie]

 Public Sub dgv_MouseClick(sender As Object, e As MouseEventArgs)
        For Each page As TabPage In DTC.TabPages
            Dim grid = page.Controls.OfType(Of DataGridView)().Single()
            For Each selectedCell As DataGridViewCell In DirectCast(grid.SelectedCells, BaseCollection)
                If selectedCell.ColumnIndex = 5 Then
                    If selectedCell.Value Is DBNull.Value Then
                        selectedCell.Value = True
                    ElseIf CBool(selectedCell.Value) = False Then
                        selectedCell.Value = True
                    ElseIf CBool(selectedCell.Value) = True Then
                        selectedCell.Value = False
                    End If
                End If
            Next
        Next

    End Sub

[patel45]

I have a dynamically generated datagridview and now i want to do a mouseclick event

I'm sorry, I mean code for generating datagridview

[zubenubie]

Dim dgv As New DataGridView
            dgv.Dock = DockStyle.Fill
            dgv.DataSource = RestHours2TableAdapter._Select(item(ComboBox1.ValueMember), TextBox1.Text, TextBox2.Text)
            dgv.RowTemplate.Height = 30
            dgv.AllowUserToAddRows = False
            dgv.AllowUserToDeleteRows = False
            dgv.AllowUserToOrderColumns = False
            dgv.AllowUserToResizeColumns = False
            page.Controls.Add(dgv)

        Next

        For Each page As TabPage In DTC.TabPages
            DTC.SelectTab(page)
        Next
        DTC.SelectTab(0)
        For Each page As TabPage In DTC.TabPages
            For Each ctl As Control In page.Controls
                If TypeOf ctl Is DataGridView Then
                    Dim dgv As DataGridView = DirectCast(ctl, DataGridView)

                    'Add Columns
                    dgv.Columns(0).Name = "ID"
                    dgv.Columns(0).HeaderText = "ID"
                    dgv.Columns(0).Visible = False
                    dgv.Columns(1).Name = "CrewId"
                    dgv.Columns(1).HeaderText = "CrewId"
                    dgv.Columns(1).Visible = False
                    dgv.Columns(2).Name = "Day"
                    dgv.Columns(2).HeaderText = "Day"
                    dgv.Columns(2).Width = 40
                    dgv.Columns(3).Name = "1"
                    dgv.Columns(3).HeaderText = ""
                    dgv.Columns(3).Width = 17
                    dgv.Columns(4).Name = "2"
                    dgv.Columns(4).HeaderText = "1"
                    dgv.Columns(4).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(4).Width = 17
                    dgv.Columns(5).Name = "3"
                    dgv.Columns(5).HeaderText = ""
                    dgv.Columns(5).Width = 17
                    dgv.Columns(6).Name = "4"
                    dgv.Columns(6).HeaderText = "2"
                    dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(6).Width = 17
                    dgv.Columns(7).Name = "5"
                    dgv.Columns(7).HeaderText = ""
                    dgv.Columns(7).Width = 17
                    dgv.Columns(8).Name = "6"
                    dgv.Columns(8).HeaderText = "3"
                    dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(8).Width = 17
                    dgv.Columns(9).Name = "7"
                    dgv.Columns(9).HeaderText = ""
                    dgv.Columns(9).Width = 17
                    dgv.Columns(10).Name = "8"
                    dgv.Columns(10).HeaderText = "4"
                    dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(10).Width = 17
                    dgv.Columns(11).Name = "9"
                    dgv.Columns(11).HeaderText = ""
                    dgv.Columns(11).Width = 17
                    dgv.Columns(12).Name = "10"
                    dgv.Columns(12).HeaderText = "5"
                    dgv.Columns(12).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(12).Width = 17
                    dgv.Columns(13).Name = "11"
                    dgv.Columns(13).HeaderText = ""
                    dgv.Columns(13).Width = 17
                    dgv.Columns(14).Name = "12"
                    dgv.Columns(14).HeaderText = "6"
                    dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(14).Width = 17
                    dgv.Columns(15).Name = "13"
                    dgv.Columns(15).HeaderText = ""
                    dgv.Columns(15).Width = 17
                    dgv.Columns(16).Name = "14"
                    dgv.Columns(16).HeaderText = "7"
                    dgv.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(16).Width = 17
                    dgv.Columns(17).Name = "15"
                    dgv.Columns(17).HeaderText = ""
                    dgv.Columns(17).Width = 17
                    dgv.Columns(18).Name = "16"
                    dgv.Columns(18).HeaderText = "8"
                    dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(18).Width = 17
                    dgv.Columns(19).Name = "17"
                    dgv.Columns(19).HeaderText = ""
                    dgv.Columns(19).Width = 17
                    dgv.Columns(20).Name = "18"
                    dgv.Columns(20).HeaderText = "9"
                    dgv.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(20).Width = 17
                    dgv.Columns(21).Name = "19"
                    dgv.Columns(21).HeaderText = ""
                    dgv.Columns(21).Width = 17
                    dgv.Columns(22).Name = "20"
                    dgv.Columns(22).HeaderText = "10"
                    dgv.Columns(22).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(22).Width = 17
                    dgv.Columns(23).Name = "21"
                    dgv.Columns(23).HeaderText = ""
                    dgv.Columns(23).Width = 17
                    dgv.Columns(24).Name = "22"
                    dgv.Columns(24).HeaderText = "11"
                    dgv.Columns(24).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(24).Width = 17
                    dgv.Columns(25).Name = "23"
                    dgv.Columns(25).HeaderText = ""
                    dgv.Columns(25).Width = 17
                    dgv.Columns(26).Name = "24"
                    dgv.Columns(26).HeaderText = "12"
                    dgv.Columns(26).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(26).Width = 17
                    dgv.Columns(27).Name = "25"
                    dgv.Columns(27).HeaderText = ""
                    dgv.Columns(27).Width = 17
                    dgv.Columns(28).Name = "26"
                    dgv.Columns(28).HeaderText = "13"
                    dgv.Columns(28).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(28).Width = 17
                    dgv.Columns(29).Name = "27"
                    dgv.Columns(29).HeaderText = ""
                    dgv.Columns(29).Width = 17
                    dgv.Columns(30).Name = "28"
                    dgv.Columns(30).HeaderText = "14"
                    dgv.Columns(30).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(30).Width = 17
                    dgv.Columns(31).Name = "29"
                    dgv.Columns(31).HeaderText = ""
                    dgv.Columns(31).Width = 17
                    dgv.Columns(32).Name = "30"
                    dgv.Columns(32).HeaderText = "15"
                    dgv.Columns(32).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(32).Width = 17
                    dgv.Columns(33).Name = "31"
                    dgv.Columns(33).HeaderText = ""
                    dgv.Columns(33).Width = 17
                    dgv.Columns(34).Name = "32"
                    dgv.Columns(34).HeaderText = "16"
                    dgv.Columns(34).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(34).Width = 17
                    dgv.Columns(35).Name = "33"
                    dgv.Columns(35).HeaderText = ""
                    dgv.Columns(35).Width = 17
                    dgv.Columns(36).Name = "34"
                    dgv.Columns(36).HeaderText = "17"
                    dgv.Columns(36).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(36).Width = 17
                    dgv.Columns(37).Name = "35"
                    dgv.Columns(37).HeaderText = ""
                    dgv.Columns(37).Width = 17
                    dgv.Columns(38).Name = "36"
                    dgv.Columns(38).HeaderText = "18"
                    dgv.Columns(38).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(38).Width = 17
                    dgv.Columns(39).Name = "37"
                    dgv.Columns(39).HeaderText = ""
                    dgv.Columns(39).Width = 17
                    dgv.Columns(40).Name = "38"
                    dgv.Columns(40).HeaderText = "19"
                    dgv.Columns(40).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(40).Width = 17
                    dgv.Columns(41).Name = "39"
                    dgv.Columns(41).HeaderText = ""
                    dgv.Columns(41).Width = 17
                    dgv.Columns(42).Name = "40"
                    dgv.Columns(42).HeaderText = "20"
                    dgv.Columns(42).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(42).Width = 17
                    dgv.Columns(43).Name = "41"
                    dgv.Columns(43).HeaderText = ""
                    dgv.Columns(43).Width = 17
                    dgv.Columns(44).Name = "42"
                    dgv.Columns(44).HeaderText = "21"
                    dgv.Columns(44).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(44).Width = 17
                    dgv.Columns(45).Name = "43"
                    dgv.Columns(45).HeaderText = ""
                    dgv.Columns(45).Width = 17
                    dgv.Columns(46).Name = "44"
                    dgv.Columns(46).HeaderText = "22"
                    dgv.Columns(46).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(46).Width = 17
                    dgv.Columns(47).Name = "45"
                    dgv.Columns(47).HeaderText = ""
                    dgv.Columns(47).Width = 17
                    dgv.Columns(48).Name = "46"
                    dgv.Columns(48).HeaderText = "23"
                    dgv.Columns(48).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(48).Width = 17
                    dgv.Columns(49).Name = "47"
                    dgv.Columns(49).HeaderText = ""
                    dgv.Columns(49).Width = 17
                    dgv.Columns(50).Name = "48"
                    dgv.Columns(50).HeaderText = "24"
                    dgv.Columns(50).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
                    dgv.Columns(50).Width = 17
                    dgv.Columns(51).Name = "Remarks"
                    dgv.Columns(51).HeaderText = "Remarks"
                    dgv.Columns(51).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                    dgv.Columns(52).Name = "Alert24Hrs"
                    dgv.Columns(52).HeaderText = "Alert 24 hrs"
                    dgv.Columns(52).Width = 100
                    dgv.Columns(53).Name = "Alert7D"
                    dgv.Columns(53).HeaderText = "Alert 7 Days"
                    dgv.Columns(53).Width = 100
                    dgv.Columns(54).Name = "HoursRest"
                    dgv.Columns(54).HeaderText = "Hours rest in this 24 hrs"
                    dgv.Columns(54).Width = 100
                    dgv.Columns(55).Name = "Month1"
                    dgv.Columns(55).HeaderText = "Month1"
                    dgv.Columns(55).Visible = False
                    dgv.Columns(56).Name = "Year1"
                    dgv.Columns(56).HeaderText = "Year1"
                    dgv.Columns(56).Visible = False
                    dgv.Columns(57).Visible = False

                End If
            Next
        Next

[patel45]

have a look to https://stackoverflow.com/questions/...lickable-cells

[Arve K.]

Option Strict On
Option Explicit On
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim MyDGV1 As New DataGridView With {.Name = "My DataGridView #1"}
        Dim MyDGV2 As New DataGridView With {.Name = "My DataGridView #2"}
 
        AddHandler MyDGV1.Click, AddressOf DGV_Click
        AddHandler MyDGV2.Click, AddressOf DGV_Click
 
        Me.Controls.AddRange({MyDGV1, MyDGV2})
 
        MyDGV2.Left = MyDGV1.Left + MyDGV1.Width + 10
    End Sub
 
    Private Sub DGV_Click(sender As Object, e As EventArgs)
        Dim DGV As DataGridView = DirectCast(sender, DataGridView)
 
        MessageBox.Show(DGV.Name)
 
    End Sub
 
End Class

[techgnome]

Edit: I missed the bolded part below... mea culpa... this is irrelevant. -tg

Good day,

I have a dynamically generated datagridview and now i want to do a mouseclick event

Public Sub dgv_MouseClick(sender As Object, e As MouseEventArgs)

But now i do not know how to call it with what sender parameter and e parameter

Thnaks in advance

Generally... you don't... what you should do is put the code into a sub that you can call from anywhere, including your click event.

 Public Sub dgv_MouseClick(sender As Object, e As MouseEventArgs)
    DoSomething
  End Sub




Private Sub DoSomething
        For Each page As TabPage In DTC.TabPages
            Dim grid = page.Controls.OfType(Of DataGridView)().Single()
            For Each selectedCell As DataGridViewCell In DirectCast(grid.SelectedCells, BaseCollection)
                If selectedCell.ColumnIndex = 5 Then
                    If selectedCell.Value Is DBNull.Value Then
                        selectedCell.Value = True
                    ElseIf CBool(selectedCell.Value) = False Then
                        selectedCell.Value = True
                    ElseIf CBool(selectedCell.Value) = True Then
                        selectedCell.Value = False
                    End If
                End If
            Next
        Next

    End Sub

Private Sub DoSomethingElse
   DoSomething
End Sub

It's that simple...

-tg

[FunkyDexter]

Typically you wouldn't "call" it. Instead you make it the handler for a particular type of event. So notice that Arve's code contains the following:-

AddHandler MyDGV1.Click, AddressOf DGV_Click

...that sets DGV_Click to be the handler of MyDGV1's click event. The system than calls it for you, passing in the correct sender and e - you don't need to concern yourself with that at all.

You want to do something similar in your code but referencing your datagridview and your Method. Probably you would do this just after it's been created in your code. I say probably because you can add it and remove it dynamically whenever you need to but it will only handle the click after it's been added and will stop handling it if it's removed.

edit> crossed over with TG

[i00]

Or you could use auto-wireup:

Public Sub dgv_MouseClick(sender As Object, e As MouseEventArgs) Handles dgv.MouseClick

Kris

[techgnome]

Or you could use auto-wireup:

Public Sub dgv_MouseClick(sender As Object, e As MouseEventArgs) Handles dgv.MouseClick

Kris

Not if you

have a dynamically generated datagridview

You can only do that with a DGV created at design-time. In this case it's created at run-time, so that won't work (or we wouldn't be here.)

-tg

[patel45]

sample code

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dgv As New DataGridView
        AddHandler dgv.Click, AddressOf Cell_Click
        dgv.Name = "DGV 1"
        dgv.Dock = DockStyle.Fill
        dgv.RowTemplate.Height = 40
        dgv.ColumnCount = 3
        dgv.Columns(0).Name = "Name"
        dgv.Columns(1).Name = "Address"
        dgv.Columns(2).Name = "Phone"
        dgv.Rows.Add({"aaa", "bbb", "1000"})
        dgv.Rows.Add({"ccc", "ddd", "1111"})
        dgv.Rows.Add({"eee", "fff", "1234"})
        Me.Controls.Add(dgv)
    End Sub
    Private Sub Cell_Click(sender As Object, e As EventArgs)
        Dim tempView = DirectCast(sender, DataGridView)
        For Each cell As DataGridViewTextBoxCell In tempView.SelectedCells
            TextBox1.Text = CType(cell.Value, String)
        Next
        TextBox2.Text = tempView.Name
    End Sub