Visual Basic Research Center

~ 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 ~

~ Partenaires ~

~ L'Astuce du Jour ~

Comment forcer la saisie de majuscule ou minuscule dans une TextBox?
Pour cela, on peut utiliser simplement KeyAscii = Asc(Ucase$(Chr$(KeyAscii))) en le placant dans l'évènement KeyPress du contrôle correspondant. Une autre possibilité consiste à faire appel aux fonctions API.

Private Declare Function GetWindowLong Lib "user32" _
        Alias "GetWindowLongA" (ByVal hWnd As Long, _
        ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" _
        Alias "SetWindowLongA" (ByVal hWnd As Long, _
        ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const ES_UPPERCASE = &H8&
Private Const ES_LOWERCASE = &H10&

Public Sub TextUpper(txtSource As TextBox)
Dim lgRep As Long, lgStyle As Long
lgStyle = GetWindowLong(txtSource.hWnd, GWL_STYLE)
lgRep = SetWindowLong(txtSource.hWnd, GWL_STYLE, _
                      lgStyle Or ES_UPPERCASE)
End Sub

Public Sub TextLower(txtSource As TextBox)
Dim lgRep As Long, lgStyle As Long
lgStyle = GetWindowLong(txtSource.hWnd, GWL_STYLE)
lgRep = SetWindowLong(txtSource.hWnd, GWL_STYLE, _
                      lgStyle Or ES_LOWERCASE)
End Sub

De cette manière on peut imaginer une boucle qui parcours l'ensemble des TextBox d'une feuille pour toutes les forcer en majuscule, ainsi on n'encombre pas les évènements des contrôles, et on allège par la même occasion le code de la feuille.

Astuce Précédente - Liste des astuces - Proposer une astuce

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 ~

800x600 - 1024x768
1152x864 - 1280x960

~ Recommander ~