Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 10 01:54:10

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

[REFACTORING] TéLéCHARGEZ RESHARPER V5 PREVIEW POUR VISUAL STUDIO 2010 par tja

DéSACTIVER L'AUTOCOMPLéTION DANS OPENOFFICE CALC par MadMatt

ON A éTé TECHCRUNCHé ! par Nix

GOOGLE OS par Bidou

SALUT par hachem100

RE : ECHEC SUPPRESSION LIGNE SOUS CONDITION DE LA PREMIERE CELLULE par pile_poil

RE : TRI AVEC RELATIONS par LIBRE_MAX

+ de logiciels à télécharger

1 467 608 membres
28 nouveaux aujourd'hui
15 053 membres club

Trouver une ressource

Trouvez une ressource parmi 40 107 codes, 1 304 660 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 !

RACCOURCI SUR LE BUREAU EN VB6

Information sur la source

Catégorie :API Niveau : Débutant Date de création : 18/09/2003 Date de mise à jour : 19/09/2003 04:50:46 Vu / téléchargé: 5 601 / 1 075

Auteur : rene38

Ecrire un message privé

Note :

8,60 / 10

Commentaire sur cette source (9)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Utilisation de la fonction API fCtreateShellLink de vb6stkit.dll pour placer sur le bureau de Windows (trouvé grâce à SHGetSpecialFolderPathA).

Petit programme autonome.

Changer File1.Pattern pour faire des raccourcis vers des fichiers autres que des .exe

Conclusion

Pour tenir compte des remarques de PROGRAMMIX et TheHacker, une mise à jour plus commentée et avec possibilité de
- choisir le nom du raccourci
- préciser les paramètres de la ligne de commande.

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Raccourci.frm 7 819 octets
Raccourci.frx2 250 octets
Raccourci.vbp 617 octets

Télécharger le zip

Sources du même auteur

AFFICHER ET IMPRIMER DANS TOUS LES SENS : APPLICATION

COURBE EN COORDONNÉES PARAMÉTRIQUES

EFFECTUER DES SYMÉTRIES SUR UNE IMAGE

FEUILLE DE FOND D'UNE BOITE DE CD/DVD

CAPS LOCK, NUM LOCK, SCROLL LOCK PAR LOGICIEL

Toutes les sources de rene38

Sources de la même categorie

IP_PUBLIQUE_INTERNETGETCONNECTEDSTATE par marco62118

TOUTES LES RÉSOLUTIONS D'ÉCRAN ET TAILLE MAXI DE LA FORM AUD... par marco62118

UTILISER L'API DE GOOGLE (CALENDRIER) par Any_Problem_Have_Solution

WIFI MANAGÉ (WLANAPI) EN VB.NET par fadelovesky

GÉNÉRER UN DOCUMENT RTF EN VBA/VB AMÉLIORÉ par Triboutmatthieu

Toutes les sources de la catégorie API

Commentaires et avis

Commentaire de PROGRAMMIX le 18/09/2003 21:54:14

Salut Rene38

Voilà une idée qu'elle est bonne...

J'ai téléchargé ta source et je sens qu'elle va souvent me servir...

Toutefois, voici 2 sugestions :
- Ajouter un second TextBox qui permettrait d'indiquer le nom que l'on voudrait voir apparaître sous le raccourcis (je n'aime pas les "Application.EXE") ;
- Ne vaudrait-il pas mieux tester l'existence d'un raccourcis avant de le créer ?

9/10 parce que... ;-)

Commentaire de TheHacker le 18/09/2003 22:23:10

salut, ouai c sympa comme prog, mais j'comprend pas trop pourquoi il faut indiquer ".../.../Bureau" ??? comment il connait le repertoire du bureau alors ??? il ets un peu bizarre cet API, tu peux expliquer les arguments a passer en parametres stp, merci @+

Commentaire de rene38 le 19/09/2003 04:46:26

Mise à jour tenant compte de vos suggestions.
sauf test d'existence : si on crée 2 fois le même (même nom, même cible, mêmes arguments), le dernier écrase le précédent.

Commentaire de DARKSIDIOUS le 22/09/2003 09:01:43 administrateur CS

Salut Rene38,

C'est une superbe source en effet qui est vraiment pratique !

Ca vaut 9/10 !

DarK Sidious

Commentaire de Nicolas75 le 12/02/2004 18:49:22

Salut

Effectivement source excellente. Mais j'ai tout de même un petit souci.

Lorsque je change la valeur 16 pour pouvoir créer mon raccourci dans le dossier Démarrage de windows (Valeur 7 ou 24) il ne se passe absolument rien.

Pas de message d'erreur et pas de raccourci non plus.

Quelqu'un peut t'il m'expliquer ?

J'utilise windows 2000 Pro et VB6

Mille merci

Commentaire de rene38 le 13/02/2004 01:57:03

Bonsoir Nicolas75

petites modifications à faire dans ton cas :

1) Comme tu l'as trouvé toi-même,
Réponse = SHGetSpecialFolderPath(Me.hWnd, NomDuBureau, &H7, 0)
7 pour le dossier de démarrage à la place de 16 (&H10) pour le bureau.

2) 3 lignes avant la fin du Sub, remplacer

Bureau = "..\.." & Mid$(NomDuBureau, Compteur)

par

Bureau = Mid$(NomDuBureau, Compteur)

Commentaire de rene38 le 13/02/2004 02:05:00

... et j'ai oublié l'explication :
le chemin du raccourci n'est pas correct. La fonction OSfCreateShellLink renvoie donc RetourFonction = 0
Il faudrait tester la valeur de RetourFonction :
- 0 => ça n'a pas marché (le raccourci n'est pas créé)
- autre que 0 => le raccourci a été créé.

Commentaire de Nicolas75 le 14/02/2004 18:27:02

Salut Rene38

Mille merci pour ta réponse.

J'ai essayé et ça marche super.

A+

Commentaire de patrice_b le 23/05/2006 18:01:06

Excellente source.