السلام عليكم
ان شاء الله هذا الموضوع بداية لمجموعة كبيرة من المواضيع المختصرة التي تحتوي على اكواد مهمة لا غنى عنها لكل مبرمج
اتمنى ان يحقق الفائدة للجميع
1- الكود الاول : انشاء فورم
كود PHP:
Public Class Form1
Dim FIndex As Integer = 2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Frm As New Form
Frm.Text = "Form" & FIndex
Frm.Show()
FIndex += 1
End Sub
End Class
'1-انشاء الفورم
2-الكود الثاني : فتح الفورم بطريقة جميلة
كود PHP:
Public Class Form1
Dim x As Integer, y As Integer
Dim z As Single, w As Single
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.SetBounds(x, y, z, w)
x = x + 1
y = y + 1
If x = 100 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Me.SetBounds(x, y, z, w)
z = z + 1
w = w + 0.77
If z = 392 Then
Timer2.Enabled = False
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Interval = 10
Timer2.Interval = 10
End Sub
End Class
'2-فتح الفورم و اظهارها بطريقة استعراضية مميزة
رد مع اقتباس
