Vider Corbeille
Résolu
allthew3
Messages postés
551
Date d'inscription
samedi 8 janvier 2005
Statut
Membre
Dernière intervention
12 avril 2008
-
16 avril 2007 à 18:57
allthew3 Messages postés 551 Date d'inscription samedi 8 janvier 2005 Statut Membre Dernière intervention 12 avril 2008 - 16 avril 2007 à 20:38
allthew3 Messages postés 551 Date d'inscription samedi 8 janvier 2005 Statut Membre Dernière intervention 12 avril 2008 - 16 avril 2007 à 20:38
A voir également:
- Shemptyrecyclebina
- Q 2011 vider ✓ - Forum C# / .NET
- Renfield vider ✓ - Forum Visual Basic
- Php vider un tableau ✓ - Forum PHP
- Vba vider presse papier - Forum Visual Basic
- Vider un tableau ✓ - Forum Delphi / Pascal
7 réponses
allthew3
Messages postés
551
Date d'inscription
samedi 8 janvier 2005
Statut
Membre
Dernière intervention
12 avril 2008
2
16 avril 2007 à 20:38
16 avril 2007 à 20:38
je viens de trouver !
SHEmptyRecycleBin(
Me.Handle.ToInt32, vbNullString, 1)SHUpdateRecycleBinIcon()
voilà merci à tous d'avoir essayer, merci !
SHEmptyRecycleBin(
Me.Handle.ToInt32, vbNullString, 1)SHUpdateRecycleBinIcon()
voilà merci à tous d'avoir essayer, merci !
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
16 avril 2007 à 19:06
16 avril 2007 à 19:06
J'ai mis en rouge quelque chose qui doit être corrigé à double titre (après avoir vu le type retourné par les fonctions sous VN.Net, que je ne connais pourtant pas !!!...)
<li>
Private
Declare
Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd AsLong, ByVal pszRootPath AsString, ByVal dwFlags AsLong) AsLong
</li>
<li>
Private
Declare
Function SHUpdateRecycleBinIcon Lib "shell32.dll" ()AsLong
</li>
<li>
Private
Declare
Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hwnd AsLong, ByVal pszRootPath AsString, ByVal dwFlags AsLong) AsLong
</li>
<li>
Private
Declare
Function SHUpdateRecycleBinIcon Lib "shell32.dll" ()AsLong
</li>
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
16 avril 2007 à 19:07
16 avril 2007 à 19:07
Et je vois que tu sautes pas mal d'espaces ! (Astoto, non ! As toto ? oui)
allthew3
Messages postés
551
Date d'inscription
samedi 8 janvier 2005
Statut
Membre
Dernière intervention
12 avril 2008
2
16 avril 2007 à 19:08
16 avril 2007 à 19:08
l'erreur n'est pas là ... : c'est dans le "Me.hwnd" qui n'existe pas en VB.net ...
si quelqu'un aurait autre chose à proposé ...
si quelqu'un aurait autre chose à proposé ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
jmfmarques
Messages postés
7666
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
27
16 avril 2007 à 19:34
16 avril 2007 à 19:34
Le hwnd est un handle et existe à ma connaissance sous vb.net !
Le Me est ta form !
Quand à Me.hwnd, ma foi, je ne vois pas où est ton problème ...
Surtout après avoir vu par exemple ceci, sur un site en VB.Net :
Declare Auto Function MBox Lib "user32.dll" _
Alias "MessageBox" (ByVal hWnd As Integer, _
ByVal txt As String, ByVal caption As String, _
ByVal Typ As Integer) As Integer
SetLayeredWindowAttributes Me.hWnd, RGB(200, 0, 200), 128, LWA_COLORKEY 'Or LWA_ALPHA
Je t'ai pourtant invité à vérifier tes types (dont je sais qu'il ne sont pas les mêmes sous VB6 (long) et VB.Net (Integer))
Mais c'est toi qui a en main une aide en ligne VB.Net !... pas moi... et pourtant !...
Le Me est ta form !
Quand à Me.hwnd, ma foi, je ne vois pas où est ton problème ...
Surtout après avoir vu par exemple ceci, sur un site en VB.Net :
Declare Auto Function MBox Lib "user32.dll" _
Alias "MessageBox" (ByVal hWnd As Integer, _
ByVal txt As String, ByVal caption As String, _
ByVal Typ As Integer) As Integer
SetLayeredWindowAttributes Me.hWnd, RGB(200, 0, 200), 128, LWA_COLORKEY 'Or LWA_ALPHA
Je t'ai pourtant invité à vérifier tes types (dont je sais qu'il ne sont pas les mêmes sous VB6 (long) et VB.Net (Integer))
Mais c'est toi qui a en main une aide en ligne VB.Net !... pas moi... et pourtant !...
allthew3
Messages postés
551
Date d'inscription
samedi 8 janvier 2005
Statut
Membre
Dernière intervention
12 avril 2008
2
16 avril 2007 à 20:07
16 avril 2007 à 20:07
si Me.hwnd existe, pourquoi n'es-tu pas capable de résoudre mon problème ?
(Me renvoit à la présente Form : oui c'est vrai ... )
++
(Me renvoit à la présente Form : oui c'est vrai ... )
++
violent_ken
Messages postés
1812
Date d'inscription
mardi 31 mai 2005
Statut
Membre
Dernière intervention
26 octobre 2010
2
16 avril 2007 à 20:18
16 avril 2007 à 20:18
Violent Ken
Google is your friend...
http://www.google.com/search?client=opera&rls=fr&q=empty+recycle+bin+vb.net&sourceid=opera&ie=utf-8&oe=utf-8
Hex Editor VB
Google is your friend...
http://www.google.com/search?client=opera&rls=fr&q=empty+recycle+bin+vb.net&sourceid=opera&ie=utf-8&oe=utf-8
Hex Editor VB