ممكن ازالة علامة الاغلاق والاطار من الفورم

[محمد الورفلي1]

السلام عليكم

 

اريد  ازالة علامة الاغلاق والاطار من الفورم  واذ امكن شرح الطريقة

 

 

تجربة.rar

 

 

 

[ibn_egypt]

اخى الفاضل

 

تفضل ملفك بعد التعديل تم ازالة شريط العنوان من الفورم 

 

تحياتي  

تجربة.rar

[محمد الورفلي1]

استاذ ابن مصر

شكراً ولكن جربت هذا الكود علي فورم اخر لم يفلح معي ممكن نعرف منك ماهي الخطوات التي فعلتها وهل هناك تغيير في خصائص الفورم (( افيدونا افادكم الله))

[ibn_egypt]

اخى الفاضل

 

الكود يعمل على أى فورم ولكنه ينقسم قسمين .. الأول وهو المتغيرات والتى لابد ان توضع في ال Option Explicit الخاص بالفورم وهي كالتالى

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
 
Private Declare Function DrawMenuBar Lib "User32" ( _
ByVal hwnd As Long) As Long

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

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

بعد ذلك كل ما عليك هو ان تستدعي هذه الدالة باستخدام الأمر التالى والذي يوضع في حدث UserForm_Initialize

Call RemoveCaption(Me)

جرب على اى فورم

 

تحياتي  

[محمد الورفلي1]

السلام عليكم

اولاً اعتذر على التأخر بالرد لااعلمك  بالنتيجة نظراً لنقطاع التيار للأكثر من 8 ساعات

الاستاذ الفاضل (( ابن * مصر  )) شكراً لسعت صدرك لقد قصد في قولي لم افلح في نقل الكود مثلاً في هذا الفورم علي سبيل المثل وعلى ما  اعتقد اني نقلت الكود كملًا كما قلت

 

 

تجربة 3.rar

[ibn_egypt]

اخى الفاضل

 

الخطأ عندك ليس من هذا الكود ولكن من الاكواد الأخرى الخاصة بالقوائم الموجودة لديك بالفورم والموجودة بحدث UserForm_Activate تحتاج الى مراجعة هذه الاكواد

 

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

 

تقبل تحياتي  

تجربة 3.rar

[محمد الورفلي1]

شكرا لك كثيراَ

 

ياستاذ(( ابن * مصر  ))

تم تعديل ديسمبر 19, 2014 بواسطه محمد الخازمي