منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] محتاج بعض الأكواد لتعطيل بعض المهام - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [VB.NET] محتاج بعض الأكواد لتعطيل بعض المهام (/showthread.php?tid=14844)

محتاج بعض الأكواد لتعطيل بعض المهام - adel27 - 21-02-16

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

أحتـاج كود تعطيل كلاً من :.

ألت كنترول وديليت 
ألت وأف 4 
ألت وesc
أيضاً تعطيل cmd ran

في الأخيـر يا غاليين عندي فورم محتاج أنه يظهر ولا أحد يستطيع أغلاقه أو التلاعب فيه 
وأيضاً محتاج أني أفعل أختصـار ذكي للأدمن لكي يغلق هذا الفورم
ويـاليت تعطوني طريقه لتغيير شكل البتون  


أتمنى المســاعده تقبلو أول مشـاركاتي في هذا القسم 

تحياتي 

RE: محتاج بعض الأكواد لتعطيل بعض المهام - Fantastico - 21-02-16

هذه الأكواد التي تستخدم عادة في تعطيل الأوامر
ولكن لم ينجح معي سوى Alt + F4

قمت تكتابة دالة استخدمها في كل عناصر الفورم كما موضح لان الفورم لا يستجيب لاحداث الادوات التي يحويها
قد تستفيد من هذا الكود

PHP كود :
Function IsHandled(ByVal e As KeyEventArgs) As Boolean
        If e.Alt Then
            If e.KeyCode = Keys.F4 Or e.KeyCode = Keys.Escape Or (e.Control And e.KeyCode = Keys.Delete) Then
                Return True
            End If
        End If

        Return False
    End Function

    Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        e.Handled = IsHandled(e)
    End Sub 
لجعل الفورم لا يستجيب لاوامر الاغلاق استفد ايضا من هذا الكود
ضعه في حدث اغلاق الفورم

PHP كود :
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        e.Cancel = True
    End Sub 


RE: محتاج بعض الأكواد لتعطيل بعض المهام - adel27 - 23-02-16

شكراً على مرورك وأحتاج إلى كود يعمل