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

كيف يمكن الغاء او تجميد زر الاغلاق  في البرنامج الخيارات الاخرى موجودة الخاصة بالتصغير او التكبير ماعداء الاغلاق اتمنى المساعدة
الرد }}}}
تم الشكر بواسطة:
#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 
الرد }}}}
تم الشكر بواسطة: محمد مسافر
#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
موضوع شيق

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] الغاء إختيار الصف الأول tifagreet 1 56 09-11-16, 02:57 AM
آخر رد: ممدوح
  [VB.NET] الغاء خاصية الفرز والترتيب ( sort ) في الداتا جريد فيو Codack 4 153 04-10-16, 08:19 PM
آخر رد: Codack
  [سؤال] الغاء ظهور قائمة النسخ عند النقر بزر الماوس الايمن Ahmed Gandos 1 128 31-03-16, 02:15 AM
آخر رد: HASAN6.0
  [سؤال] شباب هو من الممكن الغاء الفراغات الجانبية للتقرير احمد عبد الحكيم 0 199 12-04-15, 05:10 PM
آخر رد: احمد عبد الحكيم
Question [سؤال] كود تجميد النظام نبيل جعران 3 811 15-03-15, 05:22 PM
آخر رد: نبيل جعران
  تجميد تفعيل ليبل djelloul 1 425 12-10-14, 12:42 AM
آخر رد: djelloul
  اريد طريقة الغاء البرنامج بعد وقت محدد hassan 10 2,113 26-05-14, 07:01 PM
آخر رد: hassan
  [VB.NET] تجميد أي ملف tarek 6 794 13-04-14, 07:41 PM
آخر رد: Aly El-Haddad
  الغاء تحديد العنصر فى ComboBox ali.alfoly 2 634 04-11-13, 02:59 PM
آخر رد: ali.alfoly
  خاصية ازرار الاغلاق للفورم aftfm 2 775 12-10-13, 09:30 PM
آخر رد: aftfm

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


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