- Yasaklandı
- #1
Öncelikle formumuza sub eklememiz gerekiyor kütüphanemize şu kodu giriyoruz
[CODE title="Kütüphane Girilcek Kod"] Private Sub temizlebro()
SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION)
SHUpdateRecycleBinIcon()
End Sub[/CODE]
Girdikten sonra şimdi public classın altına şu kodu girmemiz gerekiyor.
[CODE title="Public classın altına girilcek kod"]
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[/CODE]
Şimdide birtane button oluşturup içine şu kodu giriniz.
[CODE title="Button girilcek kod"] SHEmptyRecycleBin(Me.Handle.ToInt32, vbNullString, SHERB_NOCONFIRMATION)
SHUpdateRecycleBinIcon()[/CODE]
Artık button bastığımızda çöp kutumuz otomatik temizlencek.
