[VBA]Obtenir le "handle" d'un objet

**LiNuXaDDiKt** · 12/03/2006, 18h22

Bonjour à tous,

J'ai découvert sur ce site ce petit bout de code qui semble répondre à mon besoin.

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
 
- Copiez tout d'abord ces déclarations au début du module de la form :
 
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                    (ByVal hwnd As Long, ByVal wMsg As Long, _
                                     ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, _
                                                                     ByVal Length As Long)
 
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINELENGTH = &HC1
Private Const EM_LINEINDEX = &HBB
Private Const EM_GETLINE = &HC4
 
 
 
- La procédure ci-dessous affiche une par une les lignes du textbox dont le handle est passé en paramètre :
 
 
Private Sub AfficheLignes(lngHandleTextBox As Long)
 
Dim lngNbLignes As Long, i As Long
Dim lngIndexCar As Long, intLongueurLigne As Integer
Dim strLigne As String
 
'nombre de lignes
lngNbLignes = SendMessage(lngHandleTextBox, EM_GETLINECOUNT, 0, 0)
 
For i = 1 To lngNbLignes
   'index du premier caractère de la ligne
   lngIndexCar = SendMessage(lngHandleTextBox, EM_LINEINDEX, i - 1, 0)
   'longueur de la ligne
   intLongueurLigne = SendMessage(lngHandleTextBox, EM_LINELENGTH, lngIndexCar, 0)
   'récupère la ligne dans la chaîne strLigne
   strLigne = Space(intLongueurLigne)
   CopyMemory ByVal strLigne, intLongueurLigne, Len(intLongueurLigne)
   SendMessage lngHandleTextBox, EM_GETLINE, i - 1, ByVal strLigne
   MsgBox strLigne
Next
 
End Sub

Le hic, c'est que mon expérience est limitée en programmation (surtout en VB) et que je ne sais pas comment obtenir le "handle" du text box que je doit passer en paramètre.

Cela dit, votre aide serait grandement apprécié.

Rob.

**jmfmarques** · 12/03/2006, 18h33

Ca vaut peut-être le coup de regarder la propriété hWnd dans l'aide en ligne ...

**LiNuXaDDiKt** · 12/03/2006, 18h44

jmfmarques, je viens de me rendre compte que j'ai omis de spécifier que c'est en VBA et non en VB.

En VB il y a effectivement une propriété hWnd ce qui retourne le handle du textbox. Cette propriété ne semble pas existante pour un textbox en VBA (dumoins je ne l'ai pas trouvé).

**SfJ5Rpw8** · 12/03/2006, 18h57

tu nous as pas dit quel été le but de ce code ...?

**LiNuXaDDiKt** · 12/03/2006, 19h04

Tu as bien raison bbil

Je désire aller chercher ligne par ligne du texte qui a été collé par l'usager dans un textbox multilignes. Ces lignes sont des commandes alors il est important de bien détecter la fin de ligne correctement. Comme spécifié dans le FAQ ou j'ai trouvé ce code, il est possible de détecter le retour de chariot à la fin de la ligne mais il semble que ce ne soit pas aussi fiable que par la méthode cité en exemple.

**jmfmarques** · 12/03/2006, 19h06

j'ai omis de spécifier que c'est en VBA et non en VB.

Comme de le demande Bbil ... C'est pour quoi faire ?

Si c'est important, alors on va aller chercher ce handle en utilisant l'API de Windows...

**SfJ5Rpw8** · 12/03/2006, 19h06

mais ce text box il est dans ton application VBA ?

**LiNuXaDDiKt** · 12/03/2006, 19h08

Oui bbil ce textbox est dans mon application vba

**jmfmarques** · 12/03/2006, 19h09

Attention : dans une Textbox, les lignes ne sont pas forcément séparées par des vbcrlf !!!

Si dépassement de la largeur : gestion échappant à ce principe (pour l'affichage)

Tu ferais à mon avis mieux d'utiliser une listbox pour celà !

**LiNuXaDDiKt** · 12/03/2006, 19h14

Hola, c'est complètement marteau!

Je n'ai même pas le temps de répondre qu'il a déjà une autre réponse de posté.

jmfmarques, est-ce qu'un listbox peut recevoir un "coller" de l'usager? Corrige moi si j'ai tors mais je ne crois pas.

**SfJ5Rpw8** · 12/03/2006, 19h15

avec un textbox1... tu peu t'inspier de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 Dim tbLg() As String
 Dim st
 'lecture des lignes ..
 tbLg = Split(TextBox1, vbCrLf)
'Afficher les diférentes lignes dans fenêtre exécito,
 For Each st In tbLg
  Debug.Print st
  Next
 End Sub

tu n'as pas besoin d'utiliser tes API Message... pour acccéder au Textbox présent dans ton VBA...

**jmfmarques** · 12/03/2006, 19h17

Ce serait possible avec une dll mais lourd à gérer.

Rien ne tempêche par contre d'associer une petite textbox "tremplin" à ta listbox, d'y faire ton coller et, en cliquant, de l'ajouter à ta listbox !

Tu peux aussi utiliser une combobox (et là, le coller peut se faire)...

**jmfmarques** · 12/03/2006, 19h18

Split(TextBox1, vbCrLf)

Voir ce que j'ai dit plu haut à propos des lignes affichées dans une textbox

**SfJ5Rpw8** · 12/03/2006, 21h11

Envoyé par jmfmarques

Attention : dans une Textbox, les lignes ne sont pas forcément séparées par des vbcrlf !!!

il sagit ici de ligne de "commandes" collés par l'opérateurs... celle-ci peuvent prendre plusieurs lignes du text box à l'affichage mais chacune d'elles sont toujours séparés de vbCrLF et peuvent dont être extraite par un Split...

**jmfmarques** · 12/03/2006, 21h23

oui !... si l'utilisateur pense à séparer systématiquement ses "coller" par un retour charriot ...

**SfJ5Rpw8** · 12/03/2006, 21h26

Envoyé par jmfmarques

oui !... si l'utilisateur pense à séparer systématiquement ses "coller" par un retour charriot ...

? s'il ne fait pas de retour chariot ces textes seront sur la même ligne du text box...

**jmfmarques** · 12/03/2006, 21h52

hé oui....
mais une texbox "tremplin" de sasie est effacée à chaque rajout dans la
Listbox
une combo, quand à elle, est par définition textbox + listbox et est faite pour cela.
bonne nuit..

[VBA]Obtenir le "handle" d'un objet

VBA

Discussions similaires

Partager

Partager