AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 12 03:24:58
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

25 commentaire(s) de jmc70 sur des sources sur tout CodeS-SourceS

Le : 01/09/2008 20:50:38
Source : ETAT VOLUME WINDOWS - MODIFIER LE VOLUME, LE MUTE, ET OBTENIR DES INFORMATIONS SUR LA CARTE SON [MODULE DE CLASSE]
Bonne source qui me sera utile. Très claire, bien commentée et facilement réutilisable. Merci.

Le : 31/12/2007 10:38:45
Source : LISTER LES PAGES DE CODE SUPPORTÉES PAR WINDOWS
Je me demandais aussi à quoi correspondait cette liste des code de pages (la variable de type Long laissait entendre qu'il y en avait plusieurs milliers).
Pour le savoir, j'ai donc placé le code ci-dessus dans un module et le code ci-dessous dans une feuille sur laquelle se trouve un bouton Command1 et une liste Liste1 :

Private Sub Command1_Click()
Dim i As Long
Call f_CodePage_Init
For i = 0 To g_CodePageNbr - 1
    Liste1.AddItem Str$(g_CodePageLst(i).Id) + " " + g_CodePageLst(i).Name
Next i
End Sub

S'affiche ainsi la liste des codes supportés (55 sur ma machine). Ce qui se présente comme ceci (pour les premiers) :

10000 MAC - romain
10006 MAC - grec I
10007 MAC - cyrillique
10010 MAC - Roumanie
10017 MAC - Ukraine
10029 MAC - latin II
10079 MAC - islandais
10081 MAC - turc
10082 MAC - croate
1026 IBM EBCDIC - Turque (Latin-5)

Le : 14/08/2006 18:04:59
Source : COMMENT AFFICHER UN CURSEUR SOURIS EN COULEUR SANS API
Merci pour cette astuce toute simple que je ne connaissais pas (pas plus que les fichiers de ressources - je pensais qu'il fallait avoir l'édition professionnelle de VB, mais ce n'est pas le cas).
Pour répondre rapidement aux deux précédents commentaires (tardivement, mais ça peut servir à d'autres), voici la démarche à suivre pour créer le fichier de ressources :
- depuis VB6, aller dans le menu Compléments/Gestionnaire de compléments puis charger l'Editeur de ressource VB6 ;
- aller dans le menu Projet/Ajouter un nouveau Fichier de ressources. Lui donner un nom et un emplacement de stockage. Pour l'instant, il est vide et il apparaît dans l'Explorateur de projet, dossier Documents associés ;
- il suffit de double cliquer sur son nom pour lancer l'éditeur de ressources et ajouter les curseurs (ou autres objets nécessaires) à partir des icones de la barre de menu de l'éditeur.
Tout cela est bien sûr détaillé dans l'aide et on le trouve facilement en tapant LoadResPicture pour la recherche.

Le : 08/05/2006 18:51:02
Source : WSPDF - CLASSE DE GÉNÉRATION DE FICHIER PDF ( SANS OCX , NI IMPRIMANTE VIRTUELLE ) STYLE OBJET PRINTER
Excellent travail. Je voulais réaliser un petit générateur de formulaires en RTF, finalement, je l'ai fait en PDF en bénéficiant ainsi de la garantie de la restitution.
Evidemment, ce n'est pas très rapide, mais c'est incroyable ce qu'on peut réaliser en VB !
Une petite remarque : j'ai mis un certain nombre de variables d'entrée en Byval plutôt qu'en Byref. Cela permet d'utiliser, si on le souhaite, des variables entières plutôt que doubles dans le programme appelant.
Et en plus un suivi du projet est assuré depuis plusieurs années. Cela mérite vraiment 10/10

Le : 12/01/2006 19:42:37
Source : CRÉATION D'UN ARBORESSANCE
Le code de Zefri fonctionne bien si le chemin commence par une lettre de lecteur mais ce n'est pas le cas pour un chemin unicode du genre "\\Edmini\Share\" (disque dur distant par exemple - bon, je sais, on peut se connecter auparavant à un lecteur réseau pour déclarer une lettre de volume, mais j'aimerais faire sans)
Si quelqu'un a une solution...

Le : 11/01/2006 22:17:31
Source : QUELQUES API TRÉS SIMPLE ET UTILE
Pour lancer l'application, on utilise shell.

Public Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Public Const MAX_FILENAME_LEN = 256

Sub LanceApplication(nomfic$)
' Lance une application à partir du nom de fichier passé en paramètre
' par exemple un fichier doc lance Word, un fichier htm lance Internet Explorer
Dim i%
Dim a
Dim = s2$, application$
s2$ = String(MAX_FILENAME_LEN, 32) & Chr$(0)
i% = FindExecutableA(nomfic$ & Chr$(0), vbNullString, s2)
If i% > 32 Then
    application$ = Left$(s2$, InStr(s2$, Chr$(0)) - 1)
    a = Shell(application$ & " " & Chr$(34) & nomfic$ & Chr$(34), 3)
End If
End Sub

Le : 13/11/2005 18:33:28
Source : RÉCUPÉRER LA DESCRIPTION D'UN EXECUTABLE + AUTRES INFORMATIONS (DATE, VERSION, COMPANY, COPYRIGHT, ETC...)
Exactement ce que je cherchais et en plus très clair.
Merci

Le : 13/05/2005 22:22:08
Source : RÉALISER SA BARRE D'OUTILS LORS DU CHARGEMENT
Merci pour ce petit bout de code
C'est tout à fait ce que je cherchais car je peux ainsi partager un seul ImageList placé sur une feuille pour illustrer les barres d'outils de différentes feuilles (ce qui évite de répéter les mêmes images sur chaque feuille). Si la feuille qui contient l'ImageList se nomme Accueil.frm par exemple, l'appel dans la procédure deviendra en ligne 6 :
Set MaToolBar.ImageList = Accueil.ImageList1
C'est de plus très souple car les images sont repérées par leur Key dans l'ImageList, ce qui fait qu'on peut en ajouter et en retirer par la suite autant qu'on veut (alors qu'en mode graphique il faut refaire toute la barre).

Le : 13/03/2005 20:26:09
Source : TREEVIEW ET FICHIER/DISQUE
Cette source est très claire et parfaitement documentée. Elle m'a bien aidé car je l'ai facilement adaptée à ce que je voulais réaliser (afficher l'arborescence à partir d'un sous-dossier donné).
Merci et bravo.

Le : 05/03/2005 18:08:54
Source : PETITE GESTION DE FICHIER XML UTILISANT LE DOM EN VB6 - TUTORIEL EXEMPLE.
Bonjour Lvrimmo,
j'ai généré dans la petite gestion, un fichier aléatoire de 32000 enregistrements (je ne suis pas allé au delà car j'utilise des variables entières dans le programme). Chaque enregistrement contient sept champs de 20 caractères ce qui donne en fin de compte un fichier d'un peu moins de 9 Mo (assez économe par rapport à un fichier à accès direct dont tous les champs occupent la même place, qu'ils soient pleins ou vides).
Le chargement du fichier, incluant la constitution de la liste des noms prend environ 6 sec. La sauvegarde de tout le fichier, moins de 4 sec. La mise à jour d'une fiche prend également 6 sec (dans pfg, le fichier est écrit sur le disque et la liste des noms est rechargée intégralement - ce qui peut expliquer cette lenteur). L'accès à une fiche est bien sûr instantané puisque tout le fichier est en mémoire (la recherche en plein texte plante, mais je n'ai pas cherché pourquoi).
J'ai fait les essais sur un portable Centrino à 1,5 Ghz sous XP Pro avec 512 Mo de Ram, le fichier étant sur un disque USB externe. J'avais arrêté et redémarré l'ordinateur pour purger la mémoire.
On peut bien sûr diminuer significativement ces temps d'attente en créant un fichier index séparé et en ne faisant la mise à jour sur le disque qu'à la fin de la session (ce qui présente un risque de perte de données en cas de panne de courant ou de plantage).
Ces performances restent modestes par rapport à un gestionnaire de base de données mais peut rendre déjà pas mal de services (il faut tout de même rentrer les 32000 fiches !)
J'ai aussi généré sans problème 50000 fiches (mais sans pouvoir les recharger du fait des variables entières - n'oublions pas que le programme était au départ destiné à gérer des petits fichiers !)
Amicalement


1 2 3


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


Console Nintendo DSi Blanche
Entre 160€ et 170€


Visiter le guide achat

Photothèque Nouveau !

Photo friends at the beach.Photo femme, plage, bien être, soleil, vacances, été, détente, repos
Photo pretty teenage girlsPhoto pretty women

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 1,186 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.