Visual Basic215 ressources dans cette catégorie

Retrouvez ici tous les meilleurs téléchargements

Il s'agit de la recherche des constantes correspondant au dernier paramètre(RootFolder) de la fonction BrowseForFolder(HWnd, Title, Options, RootFolder)
Ces constantes une fois trouvées peuvent remplacer les noms explicites des dossiers.
Il y a par exemple Poste de travail et Favoris réseau qui sont indiqués respectivement par ::{20D04FE0-3AEA-1069-A2D8-08002B30309D} et ::{208D2C60-3AEA-1069-A2D7-08002B30309D} où les noms ne peuvent être utilisés car cela pointerait sur Mes documents

Pour évoluer dans le code du graphique 3D, il est préférable d'avoir utilisé le source sur le 2D au préalable.
Tutoriel associé

Ce code fonctionne aussi pour des feuilles MDI à condition de ne pas en 'aimanter' plus de 2. Il a été testé sous Win 2000 NT et Win XP Home.

Ce code montre comment se connecter sur un système Unix et obtenir les informations sur les utilisateurs connectés (si ce service est activé)
Tutoriel associé

La procédure remplit chaque Combobox en fonction de la sélection précédente, et sans doublon:
La sélection du ComboBox1 définit le contenu du ComboBox2. La sélection du ComboBox2 définit le contenu du ComboBox3 ?etc...

Le classeur montre comment identifier la prise ou la perte de focus du contrôle TextBox, dans un UserForm.

Un deuxième exemple montre comment procéder si les TextBox sont placés dans des Frames.

DynamicWrapperX permet de faire appel à une API :





voir : Appeler les API Win32 avec VBScript : DynamicWrapperX





L'API qui permet de récupérer les paramétres régionaux est GetLocaleInfo voir :





Comment récupérer les paramètres régionaux, comme le séparateur décimal ou celui des milliers ?

Utilisation de la fonction API GetTickCount
En tête d'un module standard, déclarer la fonction
vb
Public Declare Function GetTickCount& Lib "kernel32" ()

puis pour l'utiliser :
vb
Sub MesureDuTempsQuiPasse()
Dim Départ As Double, arrivée As Double, Durée As Double,i As Long
Dim mn As Integer, ms As Integer, sd As Integer, tps As String
Départ = GetTickCount&
'************* ton code ********************
For i = 1 To 100000 'remplace le déroulement du code
DoEvents
Next
'*****************************************
arrivée = GetTickCount&
Durée = arrivée - Départ
mn = Int(Durée / 1000 / 60)
sd = Int((Durée ... Voir la suite

La description se trouve dans le code source

Cette démo permet de paramétrer un niveau de transparence (de 0 à 100%) dans un UserForm.

Ce classeur permet de sélectionner les séries à afficher depuis une boîte de dialogue.
Vous pouvez aussi choisir la plage de données source en paramétrant une date de début et de fin.

La procédure permet de personnaliser les labels qui s'affichent lorsque que le curseur de la souris passe au dessus des points du graphique. Les labels sont créés dynamiquement et vous pouvez y afficher toutes les informations que vous souhaitez. Les labels suivent le curseur de la souris.

Le graphique doit être préalablement activé.


Créé avec Excel 2007.

21 VBscripts, testés sous Windows XP SP3 et IE8, utiles pour réaliser la maintenance d'un ordinateur.
Le VBscript "Maintenance machine XP.vbs" a été traduit en VB6.
Ce VBscript et le programme VB6 sont paramètrables et enchaînent les fonctions :
- Nettoyer les fichiers IE.vbs
- Nettoyer les fichiers système
- Supprime tous les points de restauration et en crée un nouveau
- Synchroniser l'horloge système avec un serveur HTTP ou SNTP
- Vider la corbeille
- Vider le presse-papiers
- Défragmenter les disques durs

Des utilitaires ont été ajoutés :
- Encoder un vbscript (avec boîte de dialogue : entrée .vbs et sortie .vbe)
- Décoder un vbscript (avec boîte de dialogue : entrée .vbe ... Voir la suite

Cette applis télécharge la cote des entreprises inscrites e bource de votre choix.
La sauvegarde de la cote se fait automatiquement et vous pouvez faire une consultation par mois ou par année des cotes que vous avez consulté.

ce programme affiche 4 temps de la conjugaison pour les 2 verbes avoir et etre.