10-11-24, 03:43 PM
وعليكم السلام ورحمة الله وبركاته
بعد جعل الـ Home هي نافذة الاقلاع الرئيسية ..
أكتب الكود التالي في محررها :
وفي محرر نافذة الـ Form1 في قسم التصريحات العام :
وفي نهاية كل تيك (Tick) لكل تايمر أضف الكود التالي :
بعد جعل الـ Home هي نافذة الاقلاع الرئيسية ..
أكتب الكود التالي في محررها :
كود :
Private Sub HOME_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
Form1.MdiParent = Me
Form1.Show()
End Subوفي محرر نافذة الـ Form1 في قسم التصريحات العام :
كود :
Dim t1 As Integer = 0
Dim t2 As Integer = 200 ' هذه القيمة تغيرها بحسب حاجتك من الوقت طويل أو قصير زيد أو أنقص منها كما تشاءوفي نهاية كل تيك (Tick) لكل تايمر أضف الكود التالي :
كود :
t1 += 1
If t1 > t2 Then Me.Close()قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
