Visual Basic

"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar

The Second EuroCPian Event will be in Brussels on the 4th of September

Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!

My Blog

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
    Const WM_SYSCOMMAND As Integer = &H112
    Const SC_CLOSE As Integer = &HF060

    If m.Msg = WM_SYSCOMMAND AndAlso m.WParam.ToInt32 = SC_CLOSE Then
        Me.Hide()
        Exit Sub
    End If

    MyBase.WndProc(m)
End Sub

Insert INTO TableName (Filed1,Filed2,Filed3)<br />
values (val1,val2,val3)

Dim sqlString As String = "INSERT INTO MyTable (Field1, Field2, Field3) VALUES (?, ?, ?)"
Dim comm As New OleDbCommand(sqlString)

comm.Parameters.Add("@Field1Value", OleDbType.VarChar, 80).Value = somevalue
comm.Parameters.Add("@Field2Value", OleDbType.VarChar, 80).Value = somevalue
comm.Parameters.Add("@Field3Value", OleDbType.VarChar, 80).Value = OleDbType.Empty

Module Module1
    Public Sub Main()
        Dim myForm As New Form1
        Fill(myForm)
        Application.Run(myForm)
        myForm.Dispose()
    End Sub

    Private Sub Fill(ByRef form As Form)
        form.Text = "My Caption Text..."
    End Sub
End Module

Me.Text ="My Caption Text..."

Dim nextForm As Form2
nextForm.Text = "Set some text here..."
nextForm.Show()