C'est pour les mots-croisés, l'impression sur une feuille, la solution,
je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire
pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait
de faire une photo (Picture) de chaque lette accentuée ou pas, une
quarantaine environ, puis de les enregistrer à l'envers, tête en bas, ainsi
quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à y
mettre la photo correspondante retournée, toutefois, il y a peut être moins
laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a
peut être d'autres, c'est soit écrire à l'envers (je ne sais pas comment),
soit écrire dans un objet textBox et le mettre à l'envers (je ne sais pas
davantage comment), enfin bref, vous voyez mon problème, quelle serait votre
solution je vous prie ?
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
at
LE TROLL avait énoncé :
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait de faire une photo (Picture) de chaque lette accentuée ou pas, une quarantaine environ, puis de les enregistrer à l'envers, tête en bas, ainsi quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à y mettre la photo correspondante retournée, toutefois, il y a peut être moins laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a peut être d'autres, c'est soit écrire à l'envers (je ne sais pas comment), soit écrire dans un objet textBox et le mettre à l'envers (je ne sais pas davantage comment), enfin bref, vous voyez mon problème, quelle serait votre solution je vous prie ?
Cordialement ;o)
Tu as un exemple ici
http://www.a1vbcode.com/snippet-3401.asp
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 DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As String * 1 lfUnderline As String * 1 lfStrikeOut As String * 1 lfCharSet As String * 1 lfOutPrecision As String * 1 lfClipPrecision As String * 1 lfQuality As String * 1 lfPitchAndFamily As String * 1 lfFaceName As String * 32 End Type
'Create a procedure named RotateText and pass the following parameters as arguments ' Picturebox, Text to be displayed, current X and Current Y as parameters
'Call the procedure from the click event of the command button
Private Sub RotateText(PBCtrl As PictureBox, disptxt As String, CX, CY) Dim Font As LOGFONT Dim hFont As Long, ret As Long Const FONTSIZE = 8 ' Desired point size of font
' Clean up by restoring original font. ret = DeleteObject(hFont) End Sub
Private Sub Command1_Click() RotateText Picture1, "Heat Details", Picture1.Width 5, Picture1.Height - 200 End Sub
LE TROLL avait énoncé :
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la solution,
je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter
la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait
de faire une photo (Picture) de chaque lette accentuée ou pas, une
quarantaine environ, puis de les enregistrer à l'envers, tête en bas, ainsi
quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à y mettre
la photo correspondante retournée, toutefois, il y a peut être moins
laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a peut
être d'autres, c'est soit écrire à l'envers (je ne sais pas comment), soit
écrire dans un objet textBox et le mettre à l'envers (je ne sais pas
davantage comment), enfin bref, vous voyez mon problème, quelle serait votre
solution je vous prie ?
Cordialement ;o)
Tu as un exemple ici
http://www.a1vbcode.com/snippet-3401.asp
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 DeleteObject Lib "gdi32" (ByVal hObject As
Long) As Long
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As String * 1
lfUnderline As String * 1
lfStrikeOut As String * 1
lfCharSet As String * 1
lfOutPrecision As String * 1
lfClipPrecision As String * 1
lfQuality As String * 1
lfPitchAndFamily As String * 1
lfFaceName As String * 32
End Type
'Create a procedure named RotateText and pass the following parameters
as arguments
' Picturebox, Text to be displayed, current X and Current Y as
parameters
'Call the procedure from the click event of the command button
Private Sub RotateText(PBCtrl As PictureBox, disptxt As String, CX, CY)
Dim Font As LOGFONT
Dim hFont As Long, ret As Long
Const FONTSIZE = 8 ' Desired point size of font
C'est pour les mots-croisés, l'impression sur une feuille, la solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait de faire une photo (Picture) de chaque lette accentuée ou pas, une quarantaine environ, puis de les enregistrer à l'envers, tête en bas, ainsi quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à y mettre la photo correspondante retournée, toutefois, il y a peut être moins laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a peut être d'autres, c'est soit écrire à l'envers (je ne sais pas comment), soit écrire dans un objet textBox et le mettre à l'envers (je ne sais pas davantage comment), enfin bref, vous voyez mon problème, quelle serait votre solution je vous prie ?
Cordialement ;o)
Tu as un exemple ici
http://www.a1vbcode.com/snippet-3401.asp
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 DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As String * 1 lfUnderline As String * 1 lfStrikeOut As String * 1 lfCharSet As String * 1 lfOutPrecision As String * 1 lfClipPrecision As String * 1 lfQuality As String * 1 lfPitchAndFamily As String * 1 lfFaceName As String * 32 End Type
'Create a procedure named RotateText and pass the following parameters as arguments ' Picturebox, Text to be displayed, current X and Current Y as parameters
'Call the procedure from the click event of the command button
Private Sub RotateText(PBCtrl As PictureBox, disptxt As String, CX, CY) Dim Font As LOGFONT Dim hFont As Long, ret As Long Const FONTSIZE = 8 ' Desired point size of font
' Clean up by restoring original font. ret = DeleteObject(hFont) End Sub
Private Sub Command1_Click() RotateText Picture1, "Heat Details", Picture1.Width 5, Picture1.Height - 200 End Sub
Modeste
Bonsour® Attila pourquoi ne pas retenir la solution de la picture inversée en utilisant une capture photo de la grille solution complète ??? ;o))) "LE TROLL" <le a écrit dans le message de groupe de discussion :
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait de faire une photo (Picture) de chaque lette accentuée ou pas, une quarantaine environ, puis de les enregistrer à l'envers, tête en bas, ainsi quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à y mettre la photo correspondante retournée, toutefois, il y a peut être moins laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a peut être d'autres, c'est soit écrire à l'envers (je ne sais pas comment), soit écrire dans un objet textBox et le mettre à l'envers (je ne sais pas davantage comment), enfin bref, vous voyez mon problème, quelle serait votre solution je vous prie ?
Bonsour® Attila
pourquoi ne pas retenir la solution de la picture inversée
en utilisant une capture photo de la grille solution complète ???
;o)))
"LE TROLL" <le troll@enfer.fr> a écrit dans le message de groupe de
discussion : EC157992-340F-4749-9E80-F3B616958F17@microsoft.com...
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la solution,
je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire
pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait
de faire une photo (Picture) de chaque lette accentuée ou pas, une
quarantaine environ, puis de les enregistrer à l'envers, tête en bas,
ainsi quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à
y mettre la photo correspondante retournée, toutefois, il y a peut être
moins laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a
peut être d'autres, c'est soit écrire à l'envers (je ne sais pas comment),
soit écrire dans un objet textBox et le mettre à l'envers (je ne sais pas
davantage comment), enfin bref, vous voyez mon problème, quelle serait
votre solution je vous prie ?
Bonsour® Attila pourquoi ne pas retenir la solution de la picture inversée en utilisant une capture photo de la grille solution complète ??? ;o))) "LE TROLL" <le a écrit dans le message de groupe de discussion :
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait de faire une photo (Picture) de chaque lette accentuée ou pas, une quarantaine environ, puis de les enregistrer à l'envers, tête en bas, ainsi quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à y mettre la photo correspondante retournée, toutefois, il y a peut être moins laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a peut être d'autres, c'est soit écrire à l'envers (je ne sais pas comment), soit écrire dans un objet textBox et le mettre à l'envers (je ne sais pas davantage comment), enfin bref, vous voyez mon problème, quelle serait votre solution je vous prie ?
"at" a écrit dans le message de news:4ba4a660$0$15822$
LE TROLL avait énoncé :
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait de faire une photo (Picture) de chaque lette accentuée ou pas, une quarantaine environ, puis de les enregistrer à l'envers, tête en bas, ainsi quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à y mettre la photo correspondante retournée, toutefois, il y a peut être moins laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a peut être d'autres, c'est soit écrire à l'envers (je ne sais pas comment), soit écrire dans un objet textBox et le mettre à l'envers (je ne sais pas davantage comment), enfin bref, vous voyez mon problème, quelle serait votre solution je vous prie ?
Cordialement ;o)
Tu as un exemple ici
http://www.a1vbcode.com/snippet-3401.asp
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 DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As String * 1 lfUnderline As String * 1 lfStrikeOut As String * 1 lfCharSet As String * 1 lfOutPrecision As String * 1 lfClipPrecision As String * 1 lfQuality As String * 1 lfPitchAndFamily As String * 1 lfFaceName As String * 32 End Type
'Create a procedure named RotateText and pass the following parameters as arguments ' Picturebox, Text to be displayed, current X and Current Y as parameters
'Call the procedure from the click event of the command button
Private Sub RotateText(PBCtrl As PictureBox, disptxt As String, CX, CY) Dim Font As LOGFONT Dim hFont As Long, ret As Long Const FONTSIZE = 8 ' Desired point size of font
"at" <at@noemail.fr> a écrit dans le message de
news:4ba4a660$0$15822$ba4acef3@reader.news.orange.fr...
LE TROLL avait énoncé :
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la
solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans
faire pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce
serait de faire une photo (Picture) de chaque lette accentuée ou pas, une
quarantaine environ, puis de les enregistrer à l'envers, tête en bas,
ainsi quand dans ma solution j'identifie une lettre, je n'aurais plus
qu'à y mettre la photo correspondante retournée, toutefois, il y a peut
être moins laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a
peut être d'autres, c'est soit écrire à l'envers (je ne sais pas
comment), soit écrire dans un objet textBox et le mettre à l'envers (je
ne sais pas davantage comment), enfin bref, vous voyez mon problème,
quelle serait votre solution je vous prie ?
Cordialement ;o)
Tu as un exemple ici
http://www.a1vbcode.com/snippet-3401.asp
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 DeleteObject Lib "gdi32" (ByVal hObject As Long)
As Long
Private Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As String * 1
lfUnderline As String * 1
lfStrikeOut As String * 1
lfCharSet As String * 1
lfOutPrecision As String * 1
lfClipPrecision As String * 1
lfQuality As String * 1
lfPitchAndFamily As String * 1
lfFaceName As String * 32
End Type
'Create a procedure named RotateText and pass the following parameters as
arguments
' Picturebox, Text to be displayed, current X and Current Y as parameters
'Call the procedure from the click event of the command button
Private Sub RotateText(PBCtrl As PictureBox, disptxt As String, CX, CY)
Dim Font As LOGFONT
Dim hFont As Long, ret As Long
Const FONTSIZE = 8 ' Desired point size of font
"at" a écrit dans le message de news:4ba4a660$0$15822$
LE TROLL avait énoncé :
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter la feuille, vous connaissez tous le principe je suppose...
Bon, j'ai bien une solution mais ce n'est pas la plus simple, ce serait de faire une photo (Picture) de chaque lette accentuée ou pas, une quarantaine environ, puis de les enregistrer à l'envers, tête en bas, ainsi quand dans ma solution j'identifie une lettre, je n'aurais plus qu'à y mettre la photo correspondante retournée, toutefois, il y a peut être moins laborieux...
Alors, pour ceci j'ai deux objets dans mon programme, mais il y en a peut être d'autres, c'est soit écrire à l'envers (je ne sais pas comment), soit écrire dans un objet textBox et le mettre à l'envers (je ne sais pas davantage comment), enfin bref, vous voyez mon problème, quelle serait votre solution je vous prie ?
Cordialement ;o)
Tu as un exemple ici
http://www.a1vbcode.com/snippet-3401.asp
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 DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Type LOGFONT lfHeight As Long lfWidth As Long lfEscapement As Long lfOrientation As Long lfWeight As Long lfItalic As String * 1 lfUnderline As String * 1 lfStrikeOut As String * 1 lfCharSet As String * 1 lfOutPrecision As String * 1 lfClipPrecision As String * 1 lfQuality As String * 1 lfPitchAndFamily As String * 1 lfFaceName As String * 32 End Type
'Create a procedure named RotateText and pass the following parameters as arguments ' Picturebox, Text to be displayed, current X and Current Y as parameters
'Call the procedure from the click event of the command button
Private Sub RotateText(PBCtrl As PictureBox, disptxt As String, CX, CY) Dim Font As LOGFONT Dim hFont As Long, ret As Long Const FONTSIZE = 8 ' Desired point size of font
' Clean up by restoring original font. ret = DeleteObject(hFont) End Sub
Private Sub Command1_Click() RotateText Picture1, "Heat Details", Picture1.Width 5, Picture1.Height - 200 End Sub
Jean-marc
LE TROLL wrote:
Bonjour,
C'est pour les mots-croisés, l'impression sur une feuille, la solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter la feuille, vous connaissez tous le principe je suppose...
C'est pour les mots-croisés, l'impression sur une feuille, la
solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire
sans faire pivoter la feuille, vous connaissez tous le principe je
suppose...
C'est pour les mots-croisés, l'impression sur une feuille, la solution, je voudrais l'imprimer à l'envers, qu'on ne puisse la lire sans faire pivoter la feuille, vous connaissez tous le principe je suppose...
