Feedback

VB - Papierkorb leeren - VB und API

Veröffentlicht von am 11.01.2007
(3 Bewertungen)
Eine Klasse die den Papierkorb löscht. Mit Hilfe der Windowseigenen Funktionen.

Je ein Beispiel für den Aufruf mit Statusanzeige und Sound und ein Beispiel ohne Statusanzeige
GFU-Schulungen  [Anzeige]

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

Option Explicit On
Option Strict On



Friend Class clsSafeNativeMethods


 Friend Const UserInterface_NOCONFIRMATION As Short = &H1S
 Friend Const UserInterface_NOPROGRESS As Short = &H2S
 Friend Const UserInterface_NOSOUND As Short = &H4S

 Friend Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _
            (ByVal hwnd As Integer, ByVal pszRootPath As String, ByVal dwFlags As Integer) As Integer

 Friend Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Integer

End Class
  


'Aufruf mit Statusmeldung

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        clsSafeNativeMethods.SHEmptyRecycleBin(Me.Handle.ToInt32, _
                                                  vbNullString, _
                                                  clsSafeNativeMethods.UserInterface_NOCONFIRMATION)

        clsSafeNativeMethods.SHUpdateRecycleBinIcon()

End Sub

'Aufruf ohne Status und Sound

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        clsSafeNativeMethods.SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, _
            clsSafeNativeMethods.UserInterface_NOCONFIRMATION + clsSafeNativeMethods.UserInterface_NOPROGRESS _
            + clsSafeNativeMethods.UserInterface_NOSOUND)
        clsSafeNativeMethods.SHUpdateRecycleBinIcon()

End Sub
Abgelegt unter Recyclebin, Save, Delete, Papierkorb.

2 Kommentare zum Snippet

Tim Hartwig schrieb am 13.01.2007:
Ein guter Snippet allerdings würde mich stören das man noch erst 2 Buttons erstellen muss was meiner Ansicht nach nicht komfortabel ist bzw. nicht sofort einsatzbereit ist wie eine Klasse oder eine Funktion. Das ist mir aber schon bei anderen Snippets von dir aufgefallen.
Volker Steitz schrieb am 13.01.2007:
Dies soll ja auch nur ein Beispiel für das Aufrufen und den Einsatz der Klasse sein. Oft erreichen einem Fragen wie man denn entsprechenden Klassen einsetzt. Hier wird gleich das Beispiel mitgeliefert.
 

Logge dich ein, um hier zu kommentieren!