Bu derste geri dönüşüm kutusu nasıl boşaltılır visual basic ile onu öğrenmeye çalışalım. Bunun için tek bir buton eklemeniz kafi ve istediğiniz herhangi bir tarafına yapıstırın.
Kodlar:
Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Int32, ByVal pszRootPath As String, ByVal dwFlags As Int32) As Int32
Private Declare Function SHUpdateRecycleBinIcon Lib "shell32.dll" () As Int32
Private Const SHERB_NOCONFIRMATION = &H1
Private Const SHERB_NOPROGRESSUI = &H2
Private Const SHERB_NOSOUND = &H4
Private Sub EmptyRecycleBin()
SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION)
SHUpdateRecycleBinIcon()
End Sub
Aşağıdaki kodu ise Button1'in Click Event'ine yazın.
EmptyRecycleBin()
ads
Hiç yorum yok: