Visual Basic

Re: how to controll cells inside Table1DataGridView

13-May-12 20:53

Hi romo22,

An event handler is just an event that is called when a user clicks on or otherwise actions a control, such as your DataGridView.

Clicking on the DataGridView, will trigger the On_Click event. The first line of code after the declaration gets the ROW number of the grid, which in turn is used to access the data from the cells. For example......

Private Sub DataGridView_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView.Click

'Declare a couple of variables to hold the row number and contents of the third cell
Dim pRowNo as Integer
Dim pstrContents as String

'Get the ROW number
pRowNo = Val(DataGridView.SelectedCells(0).RowIndex.ToString())

'It's here where you test if Cell 0 is checked, then if so the remainder (below) is actioned.

'Store contents of cell three
pstrContents = DataGridView.Rows(pRowNo ).Cells(2).Value

'Insert contents into cell two
DataGridView.Rows(gintROWNO).Cells(1).Value = pstrContents

End Sub

This should get you started, you will find some great examples using Google.

Remember, this will place the data in the cell but will not save ot to your data source.

romo2213-May-12 21:19

Re: how to controll cells inside Table1DataGridView

13-May-12 21:19

yes it's work as super Big Grin | :-D

but I wonder how can make cell 1 clear once checked is false where I can add the if and else function. I will try by myself first

Rose | [Rose]

thanks so much I spent six hours trying with myself finally I'm done with it oh my God

Private Sub Table1DataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table1DataGridView.CellContentClick
      'Declare a couple of variables to hold the row number and contents of the third cell

      Dim pRowNo As Integer
      Dim pstrContents As String

      'Get the ROW number
      pRowNo = Val(Table1DataGridView.SelectedCells(0).RowIndex.ToString())

      'It's here where you test if Cell 0 is checked, then if so the remainder (below) is actioned.
      '    If Table1DataGridView.Rows(0).Cells(0).Value = True Then
      'Store contents of cell three
      pstrContents = Table1DataGridView.Rows(pRowNo).Cells(2).Value

      'Insert contents into cell two
      Table1DataGridView.Rows(pRowNo).Cells(1).Value = pstrContents
      '    End If
  End Sub

romo2213-May-12 22:16

Re: how to controll cells inside Table1DataGridView

13-May-12 22:16

Hi JohnPayton

I tried to add if function but it doesn't work with me the code without if function work prefect Thumbs Up | :thumbsup:

Private Sub Table1DataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Table1DataGridView.CellContentClick
       'Declare a couple of variables to hold the row number and contents of the third cell

       Dim pRowNo As Integer
       Dim pstrContents As String

       'Get the ROW number
       pRowNo = Val(Table1DataGridView.SelectedCells(0).RowIndex.ToString())

      ' here I try to add if
If Table1DataGridView.Rows(pRowNo).Cells(0).Value = True Then




           'It's here where you test if Cell 0 is checked, then if so the remainder (below) is actioned.
           '    If Table1DataGridView.Rows(0).Cells(0).Value = True Then
           'Store contents of cell three
           pstrContents = Table1DataGridView.Rows(pRowNo).Cells(2).Value

           'Insert contents into cell two
           Table1DataGridView.Rows(pRowNo).Cells(1).Value = pstrContents


       Else
            Table1DataGridView.Rows(pRowNo).Cells(1).Value = ""

       End If
   End Sub

I need to add if because once cell 0 checked= false then cell1 = clear or "" empty

could please help me with this

modified 14-May-12 4:30am.

romo2214-May-12 9:44

Re: how to controll cells inside Table1DataGridView

14-May-12 9:44

Payton I still need your help where I can add if function

JohnPayton14-May-12 12:29

Re: how to controll cells inside Table1DataGridView

14-May-12 12:29

Morning romo22,

Let me understand what you are doing here....

The way I read your code at the moment is If a user clicks on a Row and Cell 0 (checkbox) is Checked, then the contents of Cell 2 are moved into Cell 1 otherwise you clear the contents of Cell 1

Are you using mouse clicks to Check and UnCheck the checkbox in Cell 0 or is it being populated by a data source?

romo2214-May-12 22:27

Re: how to controll cells inside Table1DataGridView

14-May-12 22:27

"The way I read your code at the moment is If a user clicks on a Row and Cell 0 (checkbox) is Checked, then the contents of Cell 2 are moved into Cell 1 otherwise you clear the contents of Cell 1"

yes that what I want to do

" Are you using mouse clicks to Check and UnCheck the checkbox in Cell 0 or is it being populated by a data source?"

yes I use the mouse clicks to Check and UnCheck the checkbox in Cell 0

JohnPayton15-May-12 12:46

Re: how to controll cells inside Table1DataGridView

15-May-12 12:46

I loaded the code below and it works, it's a little simplistic however by playing around with it I'm sure you can improve your skills by making adjustments. Blush | :O

Private Sub DataGridView1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.Click
Dim pRowNo As Integer
pRowNo = Val(DataGridView1.SelectedCells(0).RowIndex.ToString())
If DataGridView1.Rows(pRowNo).Cells(0).Value = 1 Then
DataGridView1.Rows(pRowNo).Cells(1).Value = DataGridView1.Rows(pRowNo).Cells(2).Value
Else
DataGridView1.Rows(pRowNo).Cells(1).Value = ""
End If
End Sub

romo2215-May-12 13:47

Re: how to controll cells inside Table1DataGridView

15-May-12 13:47

Hi John thank you for standing with me in this code

I got this error

" Operator '=' is not defined for type 'DBNull' and type 'Integer'."

DataGridView1.Rows(pRowNo).Cells(0).Value = 1

I tried to do something like this

DataGridView1.Rows(pRowNo).Cells(0).Value.Tobit = 1

but I still get the same error notice that I'm working on Visual basic Studio 2010 is ther any difference Confused | :confused:

JohnPayton15-May-12 15:47

15-May-12 15:47

You just have to test if the value is a null first. Using a IsDBNull function call. Smile | :)

http://www.freevbcode.com/ShowCode.asp?ID=5810

or

http://msdn.microsoft.com/en-us/library/tckcces5%28v=vs.71%29.aspx

convert c# to vb

radinabedi12-May-12 20:20

radinabedi

12-May-12 20:20

Hello,
is it possible to convert a c# application to vb.net application?

i need to convert
MyDownloader: A Multi-thread C# Segmented Download Manager[^]

to vb.net

please help

Thanks

vbboy

Re: convert c# to vb

Duc Huy Nguyen12-May-12 22:09

Duc Huy Nguyen

12-May-12 22:09

Please check this link.
It is a tool allow you to convert between C# and VB.Net

Link

Text box problem

rusydan.khir11-May-12 10:39

rusydan.khir

11-May-12 10:39

actually how to write this code correctly??? Confused | :confused:

other txtsms not showing..just txtsms.text = seat booked

it just show Seat booked: seat1

only seat 1 show instead of 4 seats..plss help..

For i = 4 To wc
                    TxtSMS.Text = "Congratulation!! Your ticket succesfully booked. Detail of your tickect:" & vbCrLf & "Cinema: " & Branch & vbCrLf & "Movie title: " & moviename & vbCrLf & "Time: " & timeplaying & vbCrLf

                    TxtSMS.Text = "Tickect ID: " & randomID & "Pls show your tickect ID to our reception counter to get your tickect. TQ"

                    TxtSMS.Text = "Seat Booked: " & SplitWord(i).ToString & " "

                Next

Dave Kreskowiak11-May-12 10:54

Dave Kreskowiak

11-May-12 10:54

You do know that every time you set the value of the Text property it REPLACES the text that is already there, not appends to it, correct?

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

rusydan.khir11-May-12 16:24

rusydan.khir

11-May-12 16:24

ooowwhh.. so how i could write the code to show that all .. actually i know i can use & vbcrlf & "something" something like that...

but my problem is i dont know how to display as this line as you can see on my code before:

"Seat booked: " & splitword(i).tostring

where i = 1 ,2 ,3 and until some number depends on the word count.
for know i only can show only for splitword(1).
i use txtsms.text = txtsms.text & "seat booked: " & splitword(i) but the text "seat booked" also repeated.. so what is the correct code to write?? Confused | :confused:

Dave Kreskowiak12-May-12 4:19

Dave Kreskowiak

12-May-12 4:19

Someone else gave you the answer. But, the underlying problem still remains. The problem you ran into a a copmlete lack of experience and very basic knowledge of VB.NET (or any other language). I seriously recommend picking up a beginners book on VB.NET and working through it.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Richard MacCutchan11-May-12 22:49

11-May-12 22:49

Something like

TxtSMS.Text = "Congratulation!! Your ticket succesfully booked. Detail of your tickect:" & vbCrLf & "Cinema: " & Branch & vbCrLf & "Movie title: " & moviename & vbCrLf & "Time: " & timeplaying & vbCrLf
 
TxtSMS.Text += "Tickect ID: " & randomID & "Pls show your tickect ID to our reception counter to get your tickect. TQ"

For i = 4 To wc
    TxtSMS.Text += "Seat Booked: " & SplitWord(i).ToString & " "
Next

Programming is work, it isn't finger painting. Luc Pattyn

rusydan.khir13-May-12 0:55

rusydan.khir

13-May-12 0:55

it works..thanx so much... Smile | :)

Richard MacCutchan13-May-12 1:20

Getting error System.InvalidCastException occurred

13-May-12 1:20

Happy to help.

Programming is work, it isn't finger painting. Luc Pattyn

KireronThunderStone11-May-12 1:09

KireronThunderStone

11-May-12 1:09

Hello,

I get the following error in run time.

Error message

Unable to cast from a number, the value must be less that infinity.

My code in vb .net visual studio 11

Form load
Me.Client = New DXProf(Me) --Excetion thrown here---
Me.components = New Container
Dim manager As New ComponentResourceManager(GetType(Form1))
DXFramework.m_Icon = DirectCast(manager.GetObject("$this.Icon"), Icon)
DXFramework.LoadInstance(Me.Client, Me)
End Sub

End Sub

Here is the exception detail.

System.InvalidCastException occurred
Message=Unable to cast object of type 'DXProf' to type 'idt.medical.IDXClient'.
Source=DXPro
StackTrace:
at DXPro.Form1.Form1_Load(Object sender, EventArgs e) in C:\VBDXDCURRENT\Functionional No Errors\DXPro\Form1.vb:line 73
InnerException:

Any help would be appreciated.

Michael

Re: Getting error System.InvalidCastException occurred

Dave Kreskowiak11-May-12 1:40

Dave Kreskowiak

11-May-12 1:40

What the (explitive deleted) is "DXProf"?? It's surely not part of the .NET Framework, so it's VERY unlikely anyone is going to know about it.

If it's a third party lirbary, you're best bet for getting help on this problem would be the people who wrote that library.

A guide to posting questions on CodeProject[^]

Dave Kreskowiak

Re: Getting error System.InvalidCastException occurred

KireronThunderStone11-May-12 9:28

KireronThunderStone

11-May-12 9:28

Dave,

Thanks for your info,

I am the only one working on this program. The original author is not with us anymore and I a picking up the pieces. I have so so source code and comments and no documentation either.

DXProf is a component in the app that works with externel .dll's. I personally would not have written it that way. But I have deal with what I have.

Thanks for your help.
Michael

Re: Getting error System.InvalidCastException occurred

Richard MacCutchan11-May-12 2:45

Re: Getting error System.InvalidCastException occurred

11-May-12 2:45

KireronThunderStone wrote:
Message=Unable to cast object of type 'DXProf' to type 'idt.medical.IDXClient'.

This message tells you everything you need to know. You are trying to initialise a idt.medical.IDXClient object from a DXProf object, but the two are not compatible.

Programming is work, it isn't finger painting. Luc Pattyn

KireronThunderStone11-May-12 9:24

KireronThunderStone

11-May-12 9:24

Thanks

Re: Getting error System.InvalidCastException occurred

Richard MacCutchan11-May-12 22:45