Hit-Parade .VB Research Center . Compteur
Accueil ~  Code ~  Programmes ~  Api ~  Forum ~  Cours ~  Livres ~  Quiz ~  Annuaire
~ Edito ~
12/03/2006 @ 13:39
Depuis la dernière mise à jour (qui remonte à... oulala plusieurs mois), un petit ménage de printemps s'impose. Ca tombe bien, c'est presque la période.
Au menu, et progressivement sur les jours à venir, rafraîchissement de plusieurs fonctions et procédures, nouvelles APIs et nouveaux programmes.

~ Rechercher ~

  

~ Annuaire VB ~
 Rechercher un site :
  

~ Partenaires ~

~ L'Astuce du Jour ~

Comment charger l'icône par défaut associé à un type de fichier?
Quelques constantes à définir, une structure de données et deux fonctions API. La fonction demande deux paramètres, le nom du fichier dont on cherche l'icône associée, et une référence vers un contrôle PictureBox.

Private Const SHGFI_ICON = &H100
Private Const SHGFI_LARGEICON = &H0
Private Const SHGFI_SMALLICON = &H1
Private Const SHGFI_SHELLICONSIZE = &H4
Private Const DI_NORMAL = &H3

Private Type SHFILEINFO
    hIcon
As Long
   
iIcon As Long
   
dwAttributes As Long
   
szDisplayName As String * 260
    szTypeName
As String * 80
End Type

Private Declare Function
DrawIconEx Lib "user32" (ByVal hdc As Long, _
       
ByVal xLeft As Long, ByVal yTop As Long, ByVal hIcon As Long, _
       
ByVal cxWidth As Long, ByVal cyWidth As Long, ByVal istepIfAniCur As Long, _
       
ByVal hbrFlickerFreeDraw As Long, ByVal diFlags As Long) As Long

Private Declare Function
SHGetFileInfo Lib "shell32.dll" Alias "SHGetFileInfoA" _
        (ByVal pszPath
As String, ByVal dwFileAttributes As Long, psfi As SHFILEINFO, _
        
ByVal cbSizeFileInfo As Long, ByVal uFlags As Long) As Long

Private Sub
ChargeIconAssocie(stFichier As String, picTemp As Control)
Dim lgRet As Long
Dim
shInfo As SHFILEINFO
' Get the icon data from the file
lgRet = SHGetFileInfo(stFichier, 0, shInfo, Len(shInfo), SHGFI_ICON Or _
                      SHGFI_SHELLICONSIZE
Or SHGFI_SMALLICON)
If (lgRet > 0) Then
   
' clear the PictureBox
   
Set picTemp.Picture = Nothing
   
' put the icon onto the PictureBox
   
DrawIconEx picTemp.hdc, 0, 0, shInfo.hIcon, 0, 0, 0, 0, DI_NORMAL
End If
End Sub
17/04/2006 @ 19:04 - Code
Petite mise à jour avec quatre nouvelles fonctions à découvrir dans la rubrique "Code".
A+
13/03/2006 @ 19:11 - API
On commence la semaine en douceur avec 5 fonctions APIs (certaines sont des ajouts, d'autres des modifications), avec leurs exemples.
Je constate que le code de ces derniers est un peu trop large pour l'affichage en 800x600... je le note pour le rectifier d'ici la fin de la semaine. D'ailleurs, ça me fait penser que l'affichage dans d'autres résolutions (par le bloc "affichage" dans la colonne de droite) donne n'importe quoi... à regarder aussi donc.
Have a nice evening...
12/03/2006 @ 12:03 - Ménage et fonds de tiroir
Après une loooongue période de sommeil je reprend le clavier pour dépoussierer le site.
Il faut dire qu'avec le temps, il y a pas mal de chose qui ne vont plus. Des liens qui se cassent, quelques bugs qui s'entassent, et des compteurs qui s'affolent .
En plus, si le site tourne en rond, de mon côté je continue malgré tout à accumuler du code. Et c'est quand même mieux si tout le monde peut en profiter.
Ca fait beaucoup de boulot tout ça et il y en a donc pour quelques jours. Voyons... ça fait une bonne trentaine de fonctions supplémentaires qui devraient arriver, quelques APIs et un petit programme pour se divertir.

Pour ce qui est de la reprise du site, c'est toujours d'actualité. On en reparlera plus tard...
~ En stock ~
. 20 livres sur Visual Basic
. 1474 icônes

~ Affichage ~

~ Recommander ~





Géré par LBB.ORG
Visual Basic Research Center - (c) 2000/2002 -  Webmaster : docvb (chez) free (point) fr