Bonjour,
Je voudrais avoir des informations sur la fonction DrawText de l'api Window.
Je travaille sur une base access, et j'ai besoin de savoir qu'elle sera la hauteur d'un label.
Il y un exemple de la fonction dans le tutoriel http://cafeine.developpez.com/access...utoextensible/ mais j'arrive pas avoir le résultat que je désire.
Je détermine une largeur maximum de 1500 twips que je convertis en pixel pour un string qui contient "les diamètres intérieurs et extérieurs de la portée de buse seront utilisés" mais lors de l'affichage du label,j'obtiens le résultat suit :
Et je voudrais savoir comment afficher tout le texte dans le label
Code Vba :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 Dim label As label Set label = CreateControl("Vue", acLabel, acDetail, , , cControle.X, cControle.Y + 10) label.Caption = ChrW(&H25CF) & " " & cIntitule label.Width = 1500 label.Height = GetTextWidthMultiline(cIntitule, 1500 / TwipsPerPixelY) * TwipsPerPixelY
Partager