Visual Basic

pittybird wrote:

Is there anything wrong with my code?
Dim ps As New PlayerSelect
ps.PictureBox1.Image = PictureBox1.Image

Dim myForm2 As New Form2<br />
myForm2.PlayerSelect = Me<br />
myForm2.ShowDialog()

pittybird wrote:

i didnt use ME because the form cannot be convert to the system.drawing.image itself.

Public Class Form2
    Inherits System.Windows.Forms.Form
 
    Public Event NewImage(ByVal i As Image)
 
    Private Sub PictureBox1_Click(blah, blah) Handles PictureBox1.Click
        RaiseEvent NewImage(PictureBox1.Image)
    End Sub
End Class

Public Class Form1
    Inherits System.Windows.Form2.Form
 
    Private Sub Button1_Click(blah, blah) Handles Button1.Click
        Dim newForm2 As New Form2
        AddHandler newForm2.NewImage, AddressOf form2newimagehandler
        newForm2.Show()
    End Sub
 
    Public Sub form2newimagehandler(ByVal i As Image)
        PictureBox1.Image = i
    End Sub
End Class

Sub ValMethod(ByVal struct as SomeStructure(
  'Here it's passed by value
)

Sub RefMethod(ByRef struct as SomeStructure(
  'Now you can modify the structure because it's passed by reference
)

Dim oleDbConn As New OleDbConnection(connectionString
Dim oleDbComm As New OleDbCommand("SELECT RecNum FROM Serial_Table", oleConn)
Dim oleDbReader As OleDbDataReader
 
oleDbReader = oleDbComm.ExecuteReader()
While oleDbReader.Read() = True
    ' What are you doing with this data??????
    ...something...oleDbReader.GetInt32(0)
End While
oleDbReader.Close()
oleDbConn.Close()

Private Sub Button2_Click(blah, blah) Handles Button2.Click
    Dim conn As New OleDbConnection("connectionString")
    Dim comm As New OleDbCommand("SELECT * FROM MyTable", conn)
    Dim dr As OleDbDataReader
 
    conn.Open()
    dr = comm.ExecuteReader(CommandBehavior.CloseConnection)
 
    Dim ID As Integer
    While dr.Read()
        ID = dr.Item("TableColumnName")
    End While
    dr.Close()
End Sub