Feedback

VB - Schliessen des Forms über X-Button verhindern

Veröffentlicht von am 24.12.2006
(14 Bewertungen)
Die folgende Funktion deaktiviert den x-Button des Formulares.

Dies kann recht nützlich sein um ein unbeabsichtigtes schliessen des Formulares zu verhindern.
GFU-Schulungen  [Anzeige]

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

JavaScript für .NET-Entwickler

Sie sind .NET-Entwickler und nun stehen Sie vor der Aufgabe, JavaScript in Ihre Arbeit einzubinden. Die Schulung vermittelt Ihnen die JavaScript Grundlagen und die Funktionen der Scriptsprache. Sie wissen, wie objektorientierte Programmierung in JavaScript funktioniert und lernen abschließend Best Practicies Fälle kennen.

Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Integer, ByVal bRevert As Integer) As Integer
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Integer, ByVal nPosition As Integer, ByVal wFlags As Integer) As Integer
Public Const iPOSITION = &HF060&
Public Const iFLAGS = &H0&



Function NoFormCloseButton(ByVal iHWND As Integer) As Integer
        Dim WindowSystemMenu As Integer = GetSystemMenu(iHWND, False)
        Return RemoveMenu(WindowSystemMenu, iPOSITION, iFLAGS)

End Function
 
'Auf der funktion im Activated Event des Formulares

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
        NoFormCloseButton(ActiveForm.Handle().ToInt32())

End Sub
Abgelegt unter Form, Close.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!