مساعدة في Userforme

[أبوبكر مسعودي]

السلام عليكم و رحمة الله

أريد حذف زر الإغلاق من الفورم أرجو توضيح الطريقة و شكرا

[الـعيدروس]

السلام عليكم

تفضل هذا الكود

يدرج في حدث الفورم

Option Explicit

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

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Const GWL_STYLE = -16

Const WS_SYSMENU = &H80000

Private Sub UserForm_Initialize()

   Dim hWnd As Long, lStyle As Long

   If Val(Application.Version) >= 9 Then

   hWnd = FindWindow("ThunderDFrame", Me.Caption)

   Else

   hWnd = FindWindow("ThunderXFrame", Me.Caption)

   End If

   lStyle = GetWindowLong(hWnd, GWL_STYLE)

   SetWindowLong hWnd, GWL_STYLE, (lStyle And Not WS_SYSMENU)

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Cancel = (CloseMode = 0)

End Sub

قبل تفعيل الفورم لاتنسى تضيف زر لإخفاء الفورم مثلا ليبل هكذا

Private Sub Label1_Click()

ME.Hide

End Sub

[أبوبكر مسعودي]

شكرا على التجاوب و لكن لا أقصد باستعمال الكود

لكن من خلال خصائص الفورم

تم تعديل فبراير 21, 2012 بواسطه messboub

[عبدالله المجرب]

يمكن الاكتفاء بهذا لالغاءه دون حذفه

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Cancel = (CloseMode = 0)

End Sub

[أبوبكر مسعودي]

شكرا أخي عبد الله لكن أين أضع الكود

[عبدالله المجرب]

يوضع في حدث الفورم

[أبوبكر مسعودي]

شكرا وجزاك الله كل خير أخي عبد الله

[الـعيدروس]

السلام عليكم

الاستاذ عبدالله الحبيب

بالنسبة للكود المختصر في حدث اغلاق الفورم

يقوم بالغاء تفعيل الزر ولا يخفية

للمعلومية فقط

تقبل تحياتي وشكري