اخوانى الاحباب بالنسبة لليوزر فورم

[mhareek]

هل ممكن ظهور اليوزر فورم بدون الفريم الازرق الى من الاعلى الى به علامة الغلق

اي يظهر بدون الفريم بالمرة

رجوا الافادة جزاكم الله خيرا

[mhareek]

اخوانى هل من مجيب

جزاكم الله خير مجرد استفسار

[zine pef]

جرب هذا الكود مع التوفيق

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
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long _
    , lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub UserForm_Initialize()

  Dim hWnd As Long, Style As Long
  hWnd = FindWindow(vbNullString, Me.Caption)
  Style = GetWindowLong(hWnd, -16) And Not &HC00000
  SetWindowLong hWnd, -16, Style
  DrawMenuBar hWnd
End Sub

[ابو اسامة العينبوسي]

السلام عليكم

ان كان الهدف منع استخدام علامة الغلق ممكن بدون ذلك

[mhareek]

جميل جميل والله اخى zine pef الف شكر اخى الحبييب هذا بالضبط مااردتة

بارك الله فيك ونفعك بعلمك

الف شكر اخى الحبييب ابو اسامة بوركت

جزاك الله خير

اكثر الله من امثالكم

وزادكم علما وخيرا من فضلة

[zine pef]

امين اخي mhareek

و لا شكر على واجب و فيك بركة اخي

نحن في بداية الطريق نستفيد و نفيد ان شاء الله

مع التوفيق

[خالـ(ابوعثمان)ـد]

عزيزي ابو أسامه

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

ارجو منك توضيح الطريقة

[A L M A I S T R O]

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

Cancel = True

End Sub