Solved

vb.net DataGridView1_CellContentClick(sender, e)

Posted on 2008-10-07
3
1,447 Views
Last Modified: 2012-05-05
All I want to do is call this method after I leave a textbox but I get an error saying:
"Value of type System.Windows.Forms.KeyEventArgs cannot be converted to System.Windows.Forms.DataGridViewCellEventArgs

I am trying to call the method by using this:   DataGridView1_CellContentClick(sender,e)

'to call this:

Public Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick

'do this

end sub

I dont know what to do, pls help.
0
Comment
Question by:logoncom
3 Comments
 
LVL 96

Expert Comment

by:Bob Learned
ID: 22663953
If that is the right place to do that, then you need to create a new DataGridViewCellEventArgs instance, and pass that.
0
 
LVL 14

Accepted Solution

by:
rachitkohli earned 500 total points
ID: 22666495
call like this :

Dim eNew as DataGridViewCellEventArgs
Call DataGridView1_CellContentClick(sender,eNew)
0
 

Author Comment

by:logoncom
ID: 22668979
Ok, that gets me over to the event, but then I get "Object reference not set to an instance of an object".  

I am sending over  'vjobnumber' which is usually got from dgv_cellclick.  
vjobnumber = dgv.Rows(e.RowIndex).Cells(0).Value

So what I am trying to do is reverse the process.  since I have vjobnumber, I want to click  dgv.Rows(e.RowIndex).Cells(0).Value because when I click a specific cell something happens.



 

    Private Sub dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellClick
 
 

        If e.RowIndex > -1 Then
 
 

            Try

                Dim completevalue As Integer
 
 

                Select Case cbbfilter.Text

                    Case "Open Jobs"

                        completevalue = 1

                        vjobnumber = dgv.Rows(e.RowIndex).Cells(0).Value
 

                    Case "Completed Jobs"

                        completevalue = 2

                        vjobnumber = dgv.Rows(e.RowIndex).Cells(0).Value
 

                    Case "Billed Jobs"

                        completevalue = 3

                        vjobnumber = dgv.Rows(e.RowIndex).Cells(0).Value
 

                    Case "On Hold Jobs"

                        completevalue = 0

                        vjobnumber = dgv.Rows(e.RowIndex).Cells(0).Value
 

                    Case "Estimates"

                        completevalue = 5

                        JobsheetEstimateNumber = dgv.Rows(e.RowIndex).Cells(0).Value.ToString

                End Select
 
 

                doesjobnumberexist(vjobnumber)
 
 

                panelhidecontrols.Enabled = True
 

                Panel3.Enabled = True
 

                btnjobsheet.ForeColor = Color.Red

                btnjobsheet.Enabled = True
 

                btnpostage.Enabled = True
 
 
 

                If completevalue = 0 Then
 

                    btneditjob.Enabled = True

                    btneditjob.ForeColor = Color.Red

                    btnBillJob.Enabled = False

                ElseIf completevalue = 1 Then
 

                    btneditjob.Enabled = True

                    btneditjob.ForeColor = Color.Red

                    btnBillJob.Enabled = False

                    btnservices.Enabled = True
 

                ElseIf completevalue = 2 Then
 

                    btnBillJob.ForeColor = Color.Red

                    btnBillJob.Enabled = True

                    btneditjob.Enabled = False
 

                ElseIf completevalue = 3 Then
 

                    btnBillJob.ForeColor = Color.Red

                    btneditjob.Enabled = False

                    btnBillJob.Enabled = True
 

                ElseIf completevalue = 5 Then
 

                    btnestjs.Enabled = True

                    btnopenest.Enabled = True

                    btnopenest.ForeColor = Color.Red

                    btnservices.Enabled = True

                    btnjobsheet.ForeColor = Color.Black

                    btnjobsheet.Enabled = False

                    btnrecreate.Enabled = False

                    btneditjob.Enabled = False
 
 

                End If
 

                GetJobStatusforGroupBox(completevalue)
 
 

            Catch ex As Exception
 

                MessageBox.Show(ex.Message)

            End Try

        End If

    End Sub

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Article by: Kraeven
Introduction Remote Share is a simple remote sharing tool, enabling you to see, add and remove remote or local shares. The application is written in VB.NET targeting the .NET framework 2.0. The source code and the compiled programs have been in…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
This is a video describing the growing solar energy use in Utah. This is a topic that greatly interests me and so I decided to produce a video about it.
A company’s greatest vulnerability is their email. CEO fraud, ransomware and spear phishing attacks are the no1 threat to a company’s security. Cybercrime is responsible for the largest loss of money to companies today with losses projected to r…

914 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now