Avec le code du dessous, est-il possible de récupérer le texte pour le
placer dans un contrôle
transparent???. J'ai des tracés sur la form qui ne peuvent pas être effacés.
Touti
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName As String * 32
End Type
Private Declare Function CreateFontIndirect Lib "gdi32" _
Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" _
(ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function TextOut Lib "gdi32" _
Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, _
ByVal Y As Long, ByVal lpString As String, _
ByVal nCount As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" _
(ByVal hObject As Long) As Long
Private Sub Command1_Click()
DrawText Me, "Je m'appelle", 40, 40, 2700
DrawText Me, "Le Troll :-)", 40, 160, 900
End Sub
Private Sub DrawText(Pict As Object, Txt As String,_
X As Long, Y As Long, Angle As Long)
Dim hFont As Long, OldHdc As Long
Dim lf As LOGFONT, lResult As Long
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour Touti,
Excuses moi, mais je ne comprends pas bien ce que tu désires. Récupérer du texte écrit par les API directement sur une form ou un PictureBox. Si c'est cela, je ne vois pas comment faire, a part utiliser un outil de reconnaissance de caractères, mais avec un texte ayant subi un rotation, c'est pas gagné...
TouTi a écrit :
Bonsoir Jacques
Avec le code du dessous, est-il possible de récupérer le texte pour le placer dans un contrôle transparent???. J'ai des tracés sur la form qui ne peuvent pas être effacés.
Touti
Option Explicit
Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName As String * 32 End Type
Private Declare Function CreateFontIndirect Lib "gdi32" _ Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long Private Declare Function SelectObject Lib "gdi32" _ (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function TextOut Lib "gdi32" _ Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, _ ByVal Y As Long, ByVal lpString As String, _ ByVal nCount As Long) As Long Private Declare Function DeleteObject Lib "gdi32" _ (ByVal hObject As Long) As Long
Private Sub Command1_Click() DrawText Me, "Je m'appelle", 40, 40, 2700 DrawText Me, "Le Troll :-)", 40, 160, 900 End Sub
Private Sub DrawText(Pict As Object, Txt As String,_ X As Long, Y As Long, Angle As Long) Dim hFont As Long, OldHdc As Long Dim lf As LOGFONT, lResult As Long
Excuses moi, mais je ne comprends pas bien ce que tu désires. Récupérer
du texte écrit par les API directement sur une form ou un PictureBox. Si
c'est cela, je ne vois pas comment faire, a part utiliser un outil de
reconnaissance de caractères, mais avec un texte ayant subi un rotation,
c'est pas gagné...
TouTi a écrit :
Bonsoir Jacques
Avec le code du dessous, est-il possible de récupérer le texte pour le
placer dans un contrôle
transparent???. J'ai des tracés sur la form qui ne peuvent pas être effacés.
Touti
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName As String * 32
End Type
Private Declare Function CreateFontIndirect Lib "gdi32" _
Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long
Private Declare Function SelectObject Lib "gdi32" _
(ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function TextOut Lib "gdi32" _
Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, _
ByVal Y As Long, ByVal lpString As String, _
ByVal nCount As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" _
(ByVal hObject As Long) As Long
Private Sub Command1_Click()
DrawText Me, "Je m'appelle", 40, 40, 2700
DrawText Me, "Le Troll :-)", 40, 160, 900
End Sub
Private Sub DrawText(Pict As Object, Txt As String,_
X As Long, Y As Long, Angle As Long)
Dim hFont As Long, OldHdc As Long
Dim lf As LOGFONT, lResult As Long
Excuses moi, mais je ne comprends pas bien ce que tu désires. Récupérer du texte écrit par les API directement sur une form ou un PictureBox. Si c'est cela, je ne vois pas comment faire, a part utiliser un outil de reconnaissance de caractères, mais avec un texte ayant subi un rotation, c'est pas gagné...
TouTi a écrit :
Bonsoir Jacques
Avec le code du dessous, est-il possible de récupérer le texte pour le placer dans un contrôle transparent???. J'ai des tracés sur la form qui ne peuvent pas être effacés.
Touti
Option Explicit
Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As Byte lfUnderline As Byte lfStrikeOut As Byte lfCharSet As Byte lfOutPrecision As Byte lfClipPrecision As Byte lfQuality As Byte lfPitchAndFamily As Byte lfFaceName As String * 32 End Type
Private Declare Function CreateFontIndirect Lib "gdi32" _ Alias "CreateFontIndirectA" (lpLogFont As LOGFONT) As Long Private Declare Function SelectObject Lib "gdi32" _ (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function TextOut Lib "gdi32" _ Alias "TextOutA" (ByVal hdc As Long, ByVal X As Long, _ ByVal Y As Long, ByVal lpString As String, _ ByVal nCount As Long) As Long Private Declare Function DeleteObject Lib "gdi32" _ (ByVal hObject As Long) As Long
Private Sub Command1_Click() DrawText Me, "Je m'appelle", 40, 40, 2700 DrawText Me, "Le Troll :-)", 40, 160, 900 End Sub
Private Sub DrawText(Pict As Object, Txt As String,_ X As Long, Y As Long, Angle As Long) Dim hFont As Long, OldHdc As Long Dim lf As LOGFONT, lResult As Long
Excuses moi, mais je ne comprends pas bien ce que tu désires. Récupérer du texte écrit par les API directement sur une form ou un PictureBox. Si c'est cela, je ne vois pas comment faire, a part utiliser un outil de reconnaissance de caractères, mais avec un texte ayant subi un rotation, c'est pas gagné...
Non ce n'est pas de la reconnaissance de caractère, mais placer du texte à l'orientation voulue sur un controle transparent (type image). Car j'ai déjà sur la form une série de traits(line) que je ne voudrais ni effacer ni cacher. (voir le post précédant concernant l'exemple appliqué à access)
GuY
Bonjour Jacques
Excuses moi, mais je ne comprends pas bien ce que tu désires. Récupérer
du texte écrit par les API directement sur une form ou un PictureBox. Si
c'est cela, je ne vois pas comment faire, a part utiliser un outil de
reconnaissance de caractères, mais avec un texte ayant subi un rotation,
c'est pas gagné...
Non ce n'est pas de la reconnaissance de caractère, mais placer du texte à
l'orientation voulue sur un controle transparent (type image). Car j'ai déjà
sur la form une série de traits(line) que je ne voudrais ni effacer ni
cacher. (voir le post précédant concernant l'exemple appliqué à access)
Excuses moi, mais je ne comprends pas bien ce que tu désires. Récupérer du texte écrit par les API directement sur une form ou un PictureBox. Si c'est cela, je ne vois pas comment faire, a part utiliser un outil de reconnaissance de caractères, mais avec un texte ayant subi un rotation, c'est pas gagné...
Non ce n'est pas de la reconnaissance de caractère, mais placer du texte à l'orientation voulue sur un controle transparent (type image). Car j'ai déjà sur la form une série de traits(line) que je ne voudrais ni effacer ni cacher. (voir le post précédant concernant l'exemple appliqué à access)
GuY
Jacques93
TouTi a écrit :
Bonjour Jacques
[...]
Non ce n'est pas de la reconnaissance de caractère, mais placer du texte à l'orientation voulue sur un controle transparent (type image). Car j'ai déjà sur la form une série de traits(line) que je ne voudrais ni effacer ni cacher. (voir le post précédant concernant l'exemple appliqué à access)
La réponse que j'ai faite à X suppose d'utiliser un contrôle ayant un Device Context (hDC), nécessaire à l'API TextOut, c'est à dire soit une Form soit un PictureBox(le contrôle image n'en possède pas).
Tu devrais créer un nouveau fil en exposant bien ton problème, parce là ça s'éparpille un peu. Et tu auras plus de chance de trouver quelqu'un de pointu dans ce domaine.
-- Cordialement,
Jacques.
TouTi a écrit :
Bonjour Jacques
[...]
Non ce n'est pas de la reconnaissance de caractère, mais placer du texte à
l'orientation voulue sur un controle transparent (type image). Car j'ai déjà
sur la form une série de traits(line) que je ne voudrais ni effacer ni
cacher. (voir le post précédant concernant l'exemple appliqué à access)
La réponse que j'ai faite à X suppose d'utiliser un contrôle ayant un
Device Context (hDC), nécessaire à l'API TextOut, c'est à dire soit une
Form soit un PictureBox(le contrôle image n'en possède pas).
Tu devrais créer un nouveau fil en exposant bien ton problème, parce là
ça s'éparpille un peu. Et tu auras plus de chance de trouver quelqu'un
de pointu dans ce domaine.
Non ce n'est pas de la reconnaissance de caractère, mais placer du texte à l'orientation voulue sur un controle transparent (type image). Car j'ai déjà sur la form une série de traits(line) que je ne voudrais ni effacer ni cacher. (voir le post précédant concernant l'exemple appliqué à access)
La réponse que j'ai faite à X suppose d'utiliser un contrôle ayant un Device Context (hDC), nécessaire à l'API TextOut, c'est à dire soit une Form soit un PictureBox(le contrôle image n'en possède pas).
Tu devrais créer un nouveau fil en exposant bien ton problème, parce là ça s'éparpille un peu. Et tu auras plus de chance de trouver quelqu'un de pointu dans ce domaine.