(تمت الاجابة) كيفية إلغاء زر X (الخاص بالاغلاق ) في اليوزرفورم

[إبراهيم ابوليله]

الاخوه الكرام تحيه طيبه وبعد

كيف اقوم باخفاء زر X (الخاص بالاغلاق ) USERFORM1

وذلك حتى اجبر المستخدم فى ادخال الاسم والباسورد

لانه اذا قام باغلاق ض خ والاضافه مع منع تغير الاسم.rarUSERFORM1من زر X سوف يستطيع الدخول الى البرنامج

[الـعيدروس]

السلام عليكم

الصق هذه السطر في حدث الفورم

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

Cancel = True

End Sub

[محمد يحياوي]

شكرا اخي الفاضل ابو نصار هذه بعض الامثلة تعطيل او اخفاء زر الغلق

Disable the x close button1.zip

Disable the x close button2.rar

Disable the x close button3.rar

Disable the x close button4.rar

Disable the x close button5.rar

[إبراهيم ابوليله]

بارك الله فيكم اخوانى

[احمد فضيله]

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

[hussein chechen]

بارك الله فيكم عمل اكثر من رائع

[بوحماد]

بارك الله فبك

[aburajai]

اخواني الاحبارء

 

اذا اردنا الغاء البار الازرق في الفورم

 

بحيث يظهر مربع بدون البار الاعلى 

 

ما هو الكود

 

لو سمحتم

[حمادة عمر]

السلام عليكم

الاخ الكريم / aburajai

بارك الله فيك

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

واليك ملف مرفق به فورم مع الاكواد المذكورة لالغاء الشريط الازرق من الفورم ( ترويسه الفورم )

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
Const GWL_STYLE = -16
Const WS_CAPTION = &HC00000
Const WS_SYSMENU = &H80000

Private Sub UserForm_Initialize()
  On Error Resume Next
  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

Private Sub CommandButton1_Click()
End
End Sub

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

 

 

الغاء الترويسه من الفورم.rar

[سما محمد]

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

دائما لا تترك احدا بدون رد

جعلك الله في عوننا جميعا

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

[حمادة عمر]

بارك الله فيكي

اختي الفاضلة / سما

[عبدالعزيز راشد]

بارك الله فيكم على حسن تعاونكم وان شاء الله مايغير عليكم