Bonjour a tous et a toutes.
Je viens vous exposer mon problème, j'ai auparravant fait une recherche sur le forum et google, mais je n'ai pas trouvé de solution, hélas lol
En faite, je suis en train de créer un programme, je l'ai créér de tels façon que le programme fonctionne comme ceci:
1) L'utilisateur chosit une image sur son pc
Le chemin de l'image se créé alors dans la textebox
2) Il appuie alors sur un bouton qui a son tour va ouvrir une dll d'un programme et remplacer une image incorporé dedans par la sienne.
Voila comment j'ai créé cela
J'ai incorporé un CommonDialog1, une textbox, un bouton "parcourir", et un bouton "aplliquer"
Ici le Bouton aplliquer ou j'utilise la fonction Sendkeys
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26 Option Explicit Bouton Quitter Private Sub cmdQuitter_Click() End End Sub Bouton Parcourir Private Sub Command1_Click() Dim NomFichier As String Text1 = "Ce label renvoie le nom du fichier sélectionné." ' Initialize le répertoire par défaut CommonDialog1.InitDir = "D:\Temporaire" ' Initialize le titre du CommonDialogBox CommonDialog1.DialogTitle = "Ceci est un test" ' On utilise le CommonDialogBox pour Ouvrir un fichier CommonDialog1.ShowOpen ' Récupère le nom du fichier sélectionné NomFichier = CommonDialog1.FileName ' Affiche le nom du fichier récupéré Text1 = NomFichier End Sub
Voila mon problème est que une fois arrivé dans la dll je dois incorporer le chemin de l'image qui une fois selectionne par l'utilisateur se trouve dans le textbox.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86 Private Sub Command2_Click() Dim Reponse, i Reponse = Shell("C:\Program Files\Editeur\Ressources\ResourceHacker\ResHacker.exe", 1) ' Ensuite, on active le programme pour qu'il puisse recevoir les ' commandes : SendKeys "%(f)" SendKeys "{ENTER}" SendKeys "C:\Program Files\Windows Live\Messenger\msgsres.dll", True SendKeys "{TAB}" SendKeys "{ENTER}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{RIGHT}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{RIGHT}" SendKeys "{DOWN}" SendKeys "%(f)" SendKeys "{RIGHT}" SendKeys "{RIGHT}" SendKeys "{RIGHT}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{DOWN}" SendKeys "{ENTER}" SendKeys "{ENTER}" End Sub Private Sub Form_Load() End Sub
Je voudrais prendre ce texte a son tour afin q'il se place automatiquement dans le programme.
Afin que l'utilisateur ne refasse pas deux fois le même et que la manipulation Sendkeys ne soit pas casser
Partager