Geri Dönüşüm Kutusunu Boşaltmak

[beyic_baris]

Türkiye'de ilk Mobil & PC Aynı Anda Metin2 Oyna. Triarchonline kalıcı ve uzun ömürlü yapısı ile 24 Temmuz'da açılıyor. | 1-99 Mobil Metin2 Triarch HEMEN TIKLA!

Bu derste Visual Basic ile geri dönüşüm kutusunu nasıl boşaltacağımızı öğrenelim.

Sadece bir buton eklememiz yeterli olacaktır. Bu kodu formun herhangi bir yerine yapıştırın.

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

Bu kodu ise Button1'in Click Event'ine yazın.

EmptyRecycleBin()

Kolay gelsin.

Alıntıdır.