تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تجميد او الغاء زر الاغلاق X
#1
Rainbow 
[attachment=5951]
بسم الله الرحمن الرحيم

كيف يمكن الغاء او تجميد زر الاغلاق  في البرنامج الخيارات الاخرى موجودة الخاصة بالتصغير او التكبير ماعداء الاغلاق اتمنى المساعدة
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله

أنا باستخدم هذا الكود من زمان
PHP كود :
Protected Overrides ReadOnly Property CreateParams() As CreateParams
    Get
        Dim param 
As CreateParams MyBase.CreateParams
        param
.ClassStyle param.ClassStyle Or &H200
        
Return param
    End Get
End Property 
الرد }}}
تم الشكر بواسطة: محمد مسافر , waelalmsry75
#3
هل يوجد طريقة من خصائص المشروع للتعديل ام لا يوجد مثل زر التصغير والتكبير
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله

لا توجد خاصية لزر الإغلاق فقط،
لكن ممكن تعطل الخاصية ControlBox إذا كان الفورم حجمه ثابت وقتها أكيد ما تحتاج تكبير وتصغير بس حيخفيهم كلهم
الرد }}}
تم الشكر بواسطة:
#5
الموضوع بسيط جداً  ضع الامر e.Cancel = True  في حدث Form_FormClosing هكذا :

كود :
 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       e.Cancel = True
   End Sub
الرد }}}
تم الشكر بواسطة: الوليد ☺
#6
السلام عليكم ورحمة الله

طريقة Dev Saeed حلوة
بس فيه مشكلة وهي أنك ما تقدر تغلق البرنامج هذا غير انه يربك المستخدم لما يضغط على زر X وما يحصل شي
إذا أردت استخدام هذه الطريقة تحتاج تكملة عشان تقدر تخرج من البرنامج
هذا هو الكود
PHP كود :
Public Class Form1

    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click
        DoClose 
True
        Application
.Exit()
    
End Sub

    
Private DoClose As Boolean False
    
Private Sub Form1_FormClosing(ByVal sender As ObjectByVal e As System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing
        
If Not DoClose Then e.Cancel True
    End Sub

End 
Class 
الرد }}}
تم الشكر بواسطة: Dev Saeed , ابو روضة
#7
كلام الأخ الوليد صحيح 100%    

و تحديثاً على الكود الي ارسلته :

كود :
   Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
       e.Cancel = True
       If (MsgBox("هل تريد إغلاق الرنامج", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "إغلاق") = MsgBoxResult.Yes) Then
           End
       End If
   End Sub
الرد }}}
تم الشكر بواسطة: الوليد ☺
#8
خطوتين فقط لعطيل زر الاغلاق

الامر بسيط جدا وفي غاية البساطة
كالتالي
الخطوة الاولى
قم بفتح module جديد وانسخ فيه هذا الكود

Public Declare Function GetSystemMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DrawMenuBar Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Declare Function DeleteMenu Lib "user32.dll" (ByVal hwnd As Long, ByVal nPosition As Long, ByVal uflags As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long


Sub DisableCloseBox()

Const MF_BYCOMMAND As Long = &H0&
Const SC_CLOSE As Long = &HF060
Const SC_MAXIMIZE As Long = &HF030
Const SC_MINIMIZE As Long = &HF020
Const SC_RESTORE As Long = &HF120

Dim hMenu As Long
Dim hwnd As Long
Dim Ret As Long

hwnd = GetForegroundWindow()
hMenu = GetSystemMenu(hwnd, 0&)

Ret = DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
Ret = DrawMenuBar(hwnd)

End Sub


الخطوة الثانية

قم باستدعاء ال module الذي انشئته سابقا فقط بكتابة الامر التالي في كود الفورم عند الحدث active اكتب فقط


DisableCloseBox


وارح يتعطل معك زر الاغلاق للفورم
لكن لا تنسي ان تعمل buutton لإغلاق الفورم او الخروج منه
الرد }}}
تم الشكر بواسطة:
#9
موضوع شيق

جزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#10
الله ينور عليكم وشكرااا
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف يمكن الغاء السوال عند الكتابة على ملف موجود dell 0 48 19-03-24, 01:23 AM
آخر رد: dell
  اخفاء ازرار الاغلاق و التكبير و التصغير الصغيرة mahmoudn 7 566 08-04-23, 01:43 PM
آخر رد: mahmoudn
  [VB.NET] الغاء الامر عماد سلمان منذر 1 515 10-10-22, 08:44 AM
آخر رد: أبووسم
Photo [سؤال] كيفية تفعيل او الغاء امتداد ملف من فلتر الاوبن فايل ديالوج asmarsou 7 1,033 07-08-22, 03:00 AM
آخر رد: سعود
  السلام عليكم مشلكه عند الغاء التحديث الضغط علي no حدث CellEndEdit ahmedhhh2 1 791 11-02-22, 09:55 PM
آخر رد: ahmedhhh2
Rainbow [كود] تجميد للبوتون محمد مسافر 4 1,246 21-07-21, 06:26 PM
آخر رد: محمد مسافر
  اريد كود جعل الفورم يحذف نفسة بعد الاغلاق freeviwer 25 9,456 23-11-20, 09:35 AM
آخر رد: Ban$Dos
  [سؤال] الغاء علامة الماووس التحديد في عنصر richbox عبد الهادي بهاب 2 1,359 13-08-20, 02:23 PM
آخر رد: عبد الهادي بهاب
  [VB.NET] اريد اضافة امر الغاء الامر او العملية اي عملية داخل الفروم بشكل كامل Ahmed TEAM YEMEN 8 3,193 25-05-20, 08:51 PM
آخر رد: Ahmed TEAM YEMEN
  [VB.NET] الغاء حدث الضغط علي راس الاعمدة محمد اسماعيل 4 1,928 18-05-19, 11:16 PM
آخر رد: محمد اسماعيل

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم