إظهار الفورم بدون زر الإغلاق

[مهند الزيدي]

السلام عليكم .. ماهو الكود الذي يظهر الفورم بالطريقة كما موضح في الصورة ... بدل الطريفة الاعتيادية

وفقكم الله لكل خير

[KHMB]

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

تفضل كود إخفاء إطار الفورم مع ملف إكسل جاهز

KHMB إخفاء اطار الفورم.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي الغالي أبا الحسن والحسين

إضافة لما تفضلت به في الملف المرفق من الكود ..إضافة بسيطة جداً لكي يعمل الكود على كلا النظامين 32 بت و64 بت (حيث أن الملف المرفق في المشاركة الخاصة بك سيعمل على 64 بت فقط)

استبدال أسطر الإعلانات العامة في الموديول بهذه الأسطر

#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long
#Else
    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
    Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long
#End If

ليصبح الكود النهائي بهذا الشكل (الكود يوضع في حدث الفورم )

#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long
    Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private Declare PtrSafe Function DrawMenuBar Lib "User32" (ByVal hwnd As LongPtr) As Long
#Else
    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
    Private Declare Function DrawMenuBar Lib "User32" ( ByVal hwnd As Long) As Long
#End If

Sub RemoveCaption(objForm As Object)
    
    Dim lStyle          As Long
    Dim hMenu           As Long
    Dim mhWndForm       As Long
    
    If Val(Application.Version) < 9 Then
        mhWndForm = FindWindow("ThunderXFrame", objForm.Caption) 'XL97
    Else
        mhWndForm = FindWindow("ThunderDFrame", objForm.Caption) 'XL2000+
    End If
    lStyle = GetWindowLong(mhWndForm, -16)
    lStyle = lStyle And Not &HC00000
    SetWindowLong mhWndForm, -16, lStyle
    DrawMenuBar mhWndForm
    
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Call RemoveCaption(Me)
End Sub

 

ونقطة أخيرة للاستفادة الكاملة من الكود

يمكنك وضع الإعلانات العامة والإجراء المسمى RemoveCaption في موديول عادي ..بينما يوضع حدث زر الأمر وحدث بدء تشغيل الفورم في حدث الفورم أي يمكن الفصل بينهما

تقبل تحياتي

[مهند الزيدي]

بارك الله فيك أخي الفاضل KHMB على هذا الحل الرائع وجزيت خير الجزاء

وشكرا لك أخي العزيز ياسر خليل ..دائما ما تعجبني أجوبتك .. وفقكم الله لكل خير .. واطال في أعماركم

[KHMB]

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

اخي العزيز الاستاذ الفاضل / ياسر خليل

بارك الله فيك رائع جدا فعلا ممكن لايعمل عند الكثير لان الاغلبية يعمل علي نظام 32 بت

جزاك الله خير

[مهند الزيدي]

الأخ العزيز KHMB شكرا جزيلا لك .. وفقكم الله لكل خير ..

مع شكري للعزيز ياسر خليل المبدع ....

[ياسر خليل أبو البراء]

أخي الكريم مهند

الحمد لله أن تم المطلوب على خير .. وإلى لقاء في موضوعات أخرى

تقبل وافر تقديري واحترامي