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]

ASP.NET Core und Angular Komplett für .NET-Entwickler

Sie  lernen in drei (3) Tagen wie man mit  ASP.NET Core und den Technologien  MVC, Entity Framework, WebAPI und  Razor professionelle sowie moderne  Web-Anwendungsarchitekturen aufbaut.  Die Schulung ist der perfekte  Einstieg um insbesondere datengetriebene  und präsentationsorientierte  Applikationen auf Basis der robusten und  skalierbaren ASP.NET Core  Plattform zu erstellen. Nach der Veranstaltung kennen Sie die Konzepte von Angular und können Angular in neue und bestehende ASP.NET-Anwendungen einsetzen.

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.

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!