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 faire apparaître une boîte de sélection de répertoire sans utiliser CommonDialog?
Avec la fonction API SHBrowseForFolder, on affiche une boîte de sélection de répertoire, tout ce qu'il y a de plus simple. Le reste est documenté dans le code...

Private Declare Function SHBrowseForFolder Lib _
       "shell32" (lpbi
As BrowseInfo) As Long
Private Declare Function
SHGetPathFromIDList Lib "shell32" _
        (ByVal pidList
As Long, ByVal lpBuffer As String) As Long
Private Declare Function
lstrcat Lib "kernel32" Alias "lstrcatA" _
        (ByVal lpString1
As String, ByVal lpString2 As String) As Long
Private Const
BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260
Private Type BrowseInfo
    hWndOwner
As Long
   
pIDLRoot As Long
   
pszDisplayName As Long
   
lpszTitle As Long
   
ulFlags As Long
   
lpfnCallback As Long
   
lParam As Long
   
iImage As Long
End Type

Public Function
GetDirectory(stTitre As String) As String
' Cette fonction permet de récupérer un chemin de répertoire.
Dim stTmp As String
Dim
biStruct As BrowseInfo
Dim lgRep As Long
' On passe le handle de la fenêtre appellante
' (ici on suppose que c'est la fenêtre courante).
biStruct.hWndOwner = Me.hWnd
' On utilise lstrcat pour récupérer un pointeur sur une chaîne.
biStruct.lpszTitle = lstrcat(stTitre, vbNullString)
biStruct.ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
' Affichage de la fenêtre de sélection.
lgRep = SHBrowseForFolder(biStruct)
If lgRep Then
   
stTmp = Space$(MAX_PATH)
' On récupère le répertoire choisit.
   
SHGetPathFromIDList lgRep, stTmp
    stTmp = Left$(stTmp, InStr(stTmp, vbNullChar) - 1)
Else
   
stTmp = vbNullString
End If
' Retourne la valeur (ou un chaîne vide en cas d'erreur).
GetDirectory = stTmp
End Function
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