مطلوب كود اخفاء شريط المهام للويندوز عند تشغيل قاعدة البيانات

[momy_nana]

السلام عليكم

مثل ما هو مذكور في العنوان

اريد كود يقوم باخفاء WINDOWS TASK BAR عند تشغيل قاعدة البيانات

انا حصلت على كود بس اشتغل على نموذج واحد و مش راضي يشتغل على باقي النماذج

هل يمكن مساعدتي

و الكود اللي حصلت عليه هو

Private Const SW_HIDE = 0

Private Const SW_SHOW = 5


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


Private Sub SetWinTaskBarVisible(tbVisible As Boolean)

		Dim hTaskBar As Long


		hTaskBar = FindWindow("Shell_TrayWnd", vbNullString)

		If tbVisible Then

				ShowWindow hTaskBar, SW_SHOW

		Else

				ShowWindow hTaskBar, SW_HIDE

		End If

End Sub


Private Sub Form_Load()

		SetWinTaskBarVisible False

End Sub


Private Sub Form_Unload(Cancel As Integer)

		SetWinTaskBarVisible True

End Sub

تم تعديل أكتوبر 20, 2012 بواسطه أبو آدم
: احتواء الكود

[محمد ايمن]

اخي الكريم

هذا الكود يطبق على نموذج واحد فقط

وهو النموذج الذي يفتح عند تشغيل قاعدة البيانات و عند اغلاقه يتم اغلاق قاعدة البيانات

هذه هي الطريقة المثلى لاستخدام هذا الكود