MyTetra Share
Делитесь знаниями!
Время создания: 24.03.2018 23:14
Раздел: VB
Запись: xintrea/mytetra_db_adgaver_new/master/base/1521922440xvxfrh70wi/text.html на raw.githubusercontent.com

Form.Load Event

.NET Framework (current version)

 


Note

The .NET API Reference documentation has a new home. Visit the .NET API Browser on docs.microsoft.com to see the new experience.

Occurs before a form is displayed for the first time.

Namespace:   System.Windows.Forms
Assembly:  System.Windows.Forms (in System.Windows.Forms.dll)

Syntax

C#

C++

F#

VB

Public Event Load As EventHandler


Remarks

You can use this event to perform tasks such as allocating resources used by the form.

For more information about handling events, see Handling and Raising Events .

Examples

The following code example demonstrates how to use the SetDesktopLocation , Load, Activated , and Activate members. To run the example, paste the following code in a form called Form1 containing a Button called Button1 and two Label controls called Label1 and Label2.

C#

C++

VB

Shared x As Integer = 200

Shared y As Integer = 200


Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click


' Create a new Form1 and set its Visible property to true.

Dim form2 As New Form1

form2.Visible = True


' Set the new form's desktop location so it appears below and

' to the right of the current form.

form2.SetDesktopLocation(x, y)

x += 30

y += 30


' Keep the current form active by calling the Activate method.

Me.Activate()

Me.Button1.Enabled = False

End Sub




' Updates the label text to reflect the current values of x and y,

' which was were incremented in the Button1 control's click event.

Private Sub Form1_Activated(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles MyBase.Activated

Label1.Text = "x: " & x & " y: " & y

Label2.Text = "Number of forms currently open: " & count

End Sub


Shared count As Integer = 0


Private Sub Form1_Closed(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles MyBase.Closed

count -= 1

End Sub


Private Sub Form1_Load(ByVal sender As Object, _

ByVal e As System.EventArgs) Handles MyBase.Load

count += 1

End Sub


Version Information

.NET Framework
Available since 1.1

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования