أريد كود لأظهار الفورمة مرة واحدة فقط عند تنزيل البرنامج للمرة الاولى

أضف فورم 1 و فورم 2 وضع الكود التالي في الفورم الاول :

Private Sub Form_Load()
	' البحث هل يوجد الملف أم لا
	If Dir("C:\WINDOWS\nour", vbNormal Or vbReadOnly Or vbHidden Or vbSystem Or vbArchive) = "" Then
		' لا يوجد ملف لذلك يتم تحميل واجهة الفتح لأول مرة
		'ثم القيام بعملية وضع ملف
		' الان حفظ ملف في النظام
		'يعني : سوف ينشأ ملف اسمه NOUR
		Dim A
		A = FreeFile
		Open "C:\WINDOWS\nour" For Output As A
		Write #A,
		Close A
		'نهاية
		Exit Sub
	Else
		' تم إيجاد الملف يفتح واجهة ثانية
	   Unload Me
	   'Form1.Hide
		Form2.Show
	End If
End Sub

وفي المرفقات المثال كامل

HI_NOUR.zip

السالم عليكم

يمكن عمل شاشة تظهر لمرة واحدة عن طريق الريجسترى

وتجده فى المثال المرفق بتخزين كلمة او رقم او اى بيانات فى الريجسترى عند اظهار الشاشة لاول مرة

طريقة عمل البرنامج

استخدام الامر saveseting and getseting

لقراة وتخزين معلومة فى الريجسترى

exam1.rar

اقتباس

عن طريق الريجسترى

جزاك الله خيراً اخي الكريم

مشكورين يا شباب