Visual Basic

Public Class AddTwoNumbers

    Private m_firstValue As Integer
    Private m_secondValue As Integer
    Public Event OnAdd(message As String)

    Public Sub New()
         m_firstValue=0
         m_secondValue=0
    End Sub

    Public Property FirstValue()As Integer
         Get
             Return m_firstValue
         End Get
         Set(value As Integer)
             m_firstValue=value
         End Set
    End Property

    Public Property SecondValue()As Integer
         Get
             Return m_secondValue
         End Get
         Set(value As Integer)
             m_secondValue=value
         End Set
    End Property

    Public Function Add()As Integer
         RaiseEvent OnAdd("The Fuction Add is running now")
         Return m_firstValue + m_secondValue
    End Function
EndClass

Public Class frmMain
    Private WithEvents m_addClass As New AddTwoNumbers()
     
     ' here you can handle the Event OnAdd in the class AddTwoNumbers, 
     'that means when you call the method m_addClass.Add() the following
     'event will be fired
     Private Sub addClass_OnAdd(value As String) Handles m_addClass.OnAdd
          MessageBox.Show(value)
     End Sub

     Private Sub btnAdd_Click(sender As Object,e As EventArgs)Handles btnAdd.Click
          ' add the values of the input textboxes to the class
          If IsNumeric(txtFirstValue) Then m_addClass.FirstValue=CInt(txtFirstValue.Text.Trim())
          If IsNumeric(txtSecondValue) Then m_addClass.SecondValue=CInt(txtSecondValue.Text.Trim())
          'call the function Add, you will see 2 message boxes, one fired
          ' by the event that is found in the class and you handled it in 
          'this form, and the other by the following message
          MessageBox.Show(m_addClass.Add().ToString())
     End Sub
End Class

For Each r As DataGridViewRow in DataGridView1.Rows
    For Each c As DataGridViewCell in r
        Dim value As String = c.Value.ToString()
    Next
Next

<br />
Dim mainStr as String = ""<br />
Dim rowStr as String = ""<br />
 <br />
For Each r As DataGridViewRow in DataGridView1.Rows<br />
    rowStr = ""<br />
    For Each c As DataGridViewCell in r<br />
         If (c.ColumnIndex > 0) Then<br />
             rowStr += ControlChars.Tab<br />
         End If<br />
         rowStr += c.Value.ToString()<br />
    Next<br />
    mainStr += rowStr + ControlChars.CrLf<br />
Next<br />

CCG3 wrote:

Row1Value1(tab) Row1Value2(tab) Row1Value3
Row2Value1(tab) Row2Value2(tab) Row2Value3

ggreekggod wrote:

My problem is that I want the first row to be selected as soon as the screen containing the grid is shown.

ggreekggod wrote:

Also, when switching to new row and changing check status results are not shown until I leave row and re-enter.

If txtfunckey.Text.Substring(1, 5).StartsWith("PV000") Then
                    newRow("PROP_CATEGORY_ID") = Property_Category_ID
                    Debug.Write(txtfunckey.Text.Substring(1, 5))
                    ' Later Provision for PVNTR001
                ElseIf txtfunckey.Text.Substring(1, 5) = "PVDIF" Then
                    newRow("PROP_CATEGORY_ID") = PVDIF
                    Debug.Write(txtfunckey.Text.Substring(1, 5))
                ElseIf txtfunckey.Text.Substring(1, 5) = "PVNTR" Then
                    Debug.Write(txtfunckey.Text.Substring(1, 5))
                    newRow("PROP_CATEGORY_ID") = PVNTR
                Else
                    MessageBox.Show("The was no Provision for this Functional, Ask Vuyiswa Add Provision for IT", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    newRow("PROP_CATEGORY_ID") = DBNull.Value
                    Debug.Write(txtfunckey.Text.Substring(1, 5))
                End If