كيفية التنقل بين الإطارات في فيجوال بيسك

النموذج الأول : شاشة الترحيب كما بالشكل



عند النقر علي زر استمرار يتم الانتقال النموذج التالي كما بالكود

Dim f2 As New Form2()
Me. Hide()
F2.Show()

عند الضغط علي زر الغاء يتم الخروج من البرنامج كما في الكود

END

النموذج الثاني : نموذج التحقق من اسم المستخدم وكلمة المرور

عند إدخال المستخدم اسم المستخدم وكلمة المرور صحيحة يتم الانتقال إلى النموذج التالي بعد مقارنة اسم المستخدم وكلمة المرور مع محتويات الملف النصي USERS.TEXT :
كما بالكود التالي :

Dim i As Integer

Dim username As String

Dim password As String

Dim f3 As New Form3
Dim found As Boolean = False
Dim sr As IO.StreamReader = IO.File.OpenText("users.txt")

Do While sr.Peek <> -1
username = sr.ReadLine
password = sr.ReadLine
If TextBox1.Text = username And TextBox2.Text = password Then

Me.Hide()
F3.Show()
found = True

End If
Loop
If Not found Then

MsgBox("اسم المستخدم أو كلمة المرور غير صحيحة", 48, "تنبيه")
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Focus()
i = i + 1
End If

If i = 3 Then
Button1.Enabled = False
Timer1.Enabled = True
i = 0
End If
sr.Close( )

أما إذا أخطأ المستخدم فيتم مسح مربعات النص لإعطائه فرصة ثانية

وإذا أخطأ ثلاث مرات يتم إقفال زر موافق لمدة ثلاث دقائق ثم يتاح للمستخدم إدخال بياناته مرة أخري

يظهر الزر موافق بلون باهت عند إدخال الرمز خاطىء
عند الضغط علي الزر الغاء يتم الخروج من البرنامج تبعا للكود التالي :

END

إعداد م / سامية السيد
معهد كوادر التنمية فرع الخرج النسائي