منع البرنامج من التحميل مرتين

هذا الكود يمنع البرنامج من التحميل من نفس المسار مرتين ثم يقوم بتنشيط البرنامج
الكود :
Function AnotherInstance() As Integer
Dim AppTitle$
If App.PrevInstance Then

AppTitle$ = App.Title

App.Title = "No longer want this app running..."

AppActivate AppTitle$

AnotherInstance = True
Else

AnotherInstance = False
End If
End Function

Sub Form_Load()

If AnotherInstance() Then End

End Sub

لتحميل السورس

اضغط هنـــــــــا

إقرأ المزيد

عرض فورم بداخل فورم

كود رائع لعرض فورم بداخل فورم وطبعا ده هيفدنا جدا في البرنامج من ناحية التصميم
و يمكنك تحميل المشروع من الرابط اسفل التدوينه
الشرح
يتم اضافة 2 فورم للمشروع
في Form_Load للفورم 1 قم بكتابة هذا الكود

Private Sub Form_Load()
SetParent Form2.hWnd, Form1.hWnd
Form2.Show
End sub


للتحميل اضغط هـنـــــــــــــــــا

إقرأ المزيد