Άδειασμα Κάδου Ανακύκλωσης

Συζητήσεις για τις γλώσσες του dot Net και για του Visual Studio της Microsoft

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Valerov
Δημοσιεύσεις: 231
Εγγραφή: 13 Ιαν 2003 09:36
Τοποθεσία: Πάτρα

Άδειασμα Κάδου Ανακύκλωσης

Δημοσίευση από Valerov » 12 Φεβ 2004 00:07

Κώδικας που δίνει την δυνατότητα στον χρήστη να αδειάσει τον Καδο Ανακύκλωσης μέσα απο εφαρμογή της Visual Basic.

Right-Click στο Project για να προσθέσουμε ενα Module και τοποθετούμε τον παρακάω κώδικα:

Option Explicit
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal HWnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Public Sub MakeRecycleBinEmpty(Optional ByVal Drive As String, Optional NoConfirmation As Boolean, Optional NoSound As Boolean)

Dim HWnd, Flags As Long
On Error Resume Next
HWnd = Screen.ActiveForm.HWnd
If Len(Drive) > 0 Then _
Drive = Left$(Drive, 1) & ":\"
Flags = (NoConfirmation And &H1) Or (NoSound And &H4)
SHEmptyRecycleBin HWnd, Drive, Flags
End Sub


Η συνάρτηση έχει 3 παραμέτρους, Drive, NoCorfimation(Boolean) και NoSound(Boolean). Η παράμετρος Drive καθορίζει ποιός κάδος θα αδειάσει για την περίπτωση που υπάρχουν παραπάνω απο ενα λειτουργικά. Η παράμετρος NoConfirmation καθορίζει το αν θα εμφανιστεί μύνημα επιβεβαίωσης και η NoSound για τον αν θα ακουστεί ήχος την ώρα που αδειάζει ο κάδος.
Αφού τοποθετήσαμε τον παραπάνω κώδικα σε ενα Module, αυτό που μένει είναι να καλέσουμε την συνάρτηση. Για να δοκιμάσετε τον κώδικα τοποθετείστε σε μια φόρμα ενα Command Button και πληκτρολογείστε τον εξής κώδικα:

Private Sub Command1_Click()
MakeRecycleBinEmpty "C", False, True
End Sub


Αποτέλεσμά? Θα σας εμφανιστεί μύνημα το οποίο θα σας ρωτάει αν θέλετε να αδειάσει ο κάδος ανακύκλωσης, με τον ήχο απενεργοποιημένο.
:: Always Dive With A Partner ::

Απάντηση

Επιστροφή στο “dot Net και Visual Studio”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες