Forma açılış effekti vermək

[Ʌüsal]

Forma 1 əıdəd Timer əlavə edin.

 

1. Timer1-ə klik edin və aşağıdakı kodu yazın.

 

Dim x, y, k As Integer

x = 300

y = 0

For k = 0 To 300

y += 1.1

Me.Size = New System.Drawing.Size(x, y)

Next

Timer1.Stop()

 

 

2. Formda 2 ədə klik edin və kod pəncərəsinə aşağıdakı kodu daxil edin.

 

Timer1.Start()

Timer1.Interval = 100

 

 

Ümumi kod:

 

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim x, y, k As Integer

x = 450

y = 0

For k = 0 To 450

y += 1.1

Me.Size = New System.Drawing.Size(x, y)

Next

Timer1.Stop()

End Sub

 

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 

Timer1.Start()

Timer1.Interval = 100

End Sub

End Class

 

[sahin666]

Cox sagol

[Ʌüsal]

deymez