Visual Basic

Dim fr1 As Form1<br />
fr1.teste() ***

Dim fr1 As New Form1<br />
fr1.teste() ***

<br />
Public Class Form2<br />
    Inherits System.Windows.Forms.Form<br />
<br />
#Region " Windows Form Designer generated code "<br />
...<br />
#End Region<br />
<br />
'declare an event that can be caught in Form1 code<br />
'you can name this whatever you want<br />
    Public Event OnRowDoubleClicked()<br />
<br />
    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        'databind your datagrid here or in design mode<br />
    End Sub<br />
<br />
    Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.DoubleClick<br />
'This is if you want to close your window on a when <br />
'the user double clicks a row<br />
<br />
'raise the event to be caught in Form1<br />
        RaiseEvent OnRowDoubleClicked()<br />
<br />
        Me.Close()<br />
    End Sub<br />
<br />
    Private Sub Form2_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) _<br />
        Handles MyBase.Closing<br />
        'cancel closing of form<br />
        e.Cancel = True<br />
        'hide the form from the user<br />
        Me.Hide()<br />
    End Sub<br />
End Class<br />

<br />
Public Class Form1<br />
    Inherits System.Windows.Forms.Form<br />
<br />
#Region " Windows Form Designer generated code "<br />
...<br />
#End Region<br />
<br />
'declare a Form2 with events - the key to handling the <br />
'doubleclick in Form2<br />
    Private WithEvents f2 As Form2<br />
<br />
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
'display the form to the user<br />
<br />
'check if Form2 has been created<br />
        If Not f2 Is Nothing Then<br />
            If Not f2.IsDisposed Then<br />
'display form if not disposed<br />
                f2.ShowDialog()<br />
            Else<br />
'create new instance of Form2<br />
                f2 = New Form2<br />
                f2.ShowDialog()<br />
            End If<br />
        Else<br />
'create new instance of Form2<br />
            f2 = New Form2<br />
            f2.ShowDialog()<br />
        End If<br />
<br />
    End Sub<br />
<br />
<br />
    Private Sub f2_OnRowDoubleClicked() Handles f2.OnRowDoubleClicked<br />
        'handle the double click event in the datagrid of Form2<br />
'now you can access the Datagrid information since it is a public control <br />
'in Form2...like so:<br />
TextBox1.Text = f2.DataGrid1....<br />
    End Sub<br />
End Class<br />

My: Blog | Photos
WDevs.com - Open Source Code Hosting, Blogs, FTP, Mail and More

<br />
Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter<br />
'select all text in the text box<br />
TextBox1.SelectAll()<br />
End Sub<br />

<br />
Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter<br />
Ctype(sender,TextBox).SelectAll()<br />
End Sub<br />