كود إزالة شريط العنوان في الفورم؟؟

[أبو انتصار]

بسم الله الرحمن الرحيم

 

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

 

إخوتي في الله ، لي رجاء عندكم ، هو أن تمدوني بكود إزالة شريط العنوان في الفورم ، هذا الشريط الذي يوجد بأعلى الفورم و الذي به زر الإغلاق في الزاوية اليمنى X و لكم مني الشكر و التقدير و من الله تعالى الجزاء .

[خزاني]

 

 

في خانة التصريح :

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 Lon
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Const WS_SYSMENU = &H80000
Dim LR, A, F, V, M
Option Explicit

Private Sub UserForm_Initialize()
 Dim lngWindow As Long, lFrmHdl As Long
    lFrmHdl = FindWindow(vbNullString, Me.Caption)
    lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
    lngWindow = lngWindow And (Not WS_CAPTION)
    Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
    Call DrawMenuBar(lFrmHdl)
End Sub

[حمادة عمر]

ولاثراء الموضوع ... استاذنا /  أبو انتصار

شاهد هذا الملف الراائع من سلسة دروس الاستاذ القدير / عماد الحسامي  ... جزاه الله خيرا

والخاصة باليوزفورم

 

الدرس السادس.rar

[احمد فضيله]

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

جزاك الله كل خير

[حمادة عمر]

اهلا اهلا الاستاذ الغالي / احمد فضيله ... ابو يوسف

وحشتنا اطلالتك

فلا تحرمنا منها

تقبل خالص تحياتي

وتحياتي الخاصة لـ ( جــــو )

[أبو انتصار]

بارك الله فيك أخي و حبيبي في الله على ردك المفيد و جعله الله في ميزان حسناتك

[أبو انتصار]

حبيبي في الله حمادة عمر ، أثرى الله حياتك بكل خير ، و جعل عملك مقبولا في ميزان حسناتك

[أبو انتصار]

حبيبي في الله أحمد فضيله ، بارك الله فيك على المرور الكريم ، و على الإطلالة البهية و جزاك الله عنا بكل خير

[ابو هايدي]

جزاك الله كل خير

[أبو انتصار]

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

[AboNadr]

الاستاذ / حمادة عمر

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

هل من الممكن ان تضع لنا روابط الدروس للاستاذ الحسامي

لكم جزيل الشكر