Visual Basic

w.well WHERE w.WellID = m.MovefromGUID  AND w.well WHERE w.WellID = m.Move2GUID

Public Class Person

    Private strName As String
    Private intAge As Integer

    Public Sub New(ByVal personName As String, ByVal personAge As Integer)
        strName = personName
        intAge = personAge
    End Sub

    Public Property Age() As Integer
        Get
            Return intAge
        End Get
        Set(ByVal value As Integer)
            intAge = value
        End Set
    End Property

    Public Property Name() As String
        Get
            Return strName
        End Get
        Set(ByVal value As String)
            strName = value
        End Set
    End Property

    Public Shared Function GetPeople() As List(Of Person)
        Dim lstPeople As New List(Of Person)
        With lstPeople
            .Add(New Person("Shantell", 23))
            .Add(New Person("Bill", 45))
            .Add(New Person("Keith", 36))
            .Add(New Person("Jason", 73))
            .Add(New Person("Sean", 45))
            .Add(New Person("Chris", 90))
            .Add(New Person("Peter", 15))
            .Add(New Person("Jeremy", 22))
            .Add(New Person("Kevin", 67))
        End With
        Return lstPeople
    End Function

End Class

Public Class Form1

    Private People As List(Of Person) = Person.GetPeople 'collection of business objects
    Private frm2 As Form2 'declare form2 at class level

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        frm2 = New Form2(People(0)) 'instantiate local form2
        frm2.Show() 'make sure is visible
        DataGridView1.DataSource = People 'bind DataGridView to collection
    End Sub

    Private Sub DataGridView1_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
        If People.Count > 0 Then
            frm2.RefreshPerson(People(e.RowIndex)) 'call function in form2 to set new selected object
        End If
    End Sub

End Class

Public Class Form2
    Private CurrentPerson As Person 'declare local object 

    Public Sub New(ByVal yourPerson As Person)
        InitializeComponent()
        CurrentPerson = yourPerson 'instantiate local object
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        UpdateUI() 'make sure UI is loaded
    End Sub

    'to be called when selected person changes such as DataGridView.RowEntered etc
    Public Sub RefreshPerson(ByVal yourPerson As Person)
        CurrentPerson = yourPerson 'reset current object
        UpdateUI() 'refresh UI
    End Sub

    Private Sub UpdateUI()
        txtAge.Text = CurrentPerson.Age
        txtName.Text = CurrentPerson.Name
    End Sub
End Class

For x = 0 To Image.Length - 1
    If (x MOD 4) = 0 Then
        Image1(x)=Image(x)
        Image2(x)=Image(x)
    Else
        Image1(x)= Image(x) AND MaskByte
        Image2(x)= Image(x)-Image1(x)
    End If
Next

<br />
Extracted = uint8(bitand(255, bitshift(Stego, 8 - n)));<br />

Mc--Gann wrote:

remote server