4/5 (23 avis)
Vue 11 355 fois - Téléchargée 1 752 fois
'Les apis utilisés sont : 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 Declare Function GetTextExtentPoint32 Lib "gdi32" Alias "GetTextExtentPoint32A" (ByVal hdc As Long, ByVal lpsz As String, ByVal cbString As Long, lpSize As Size) 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 'Les types utilisés sont : Private Const LF_FACESIZE = 32 Private Type Size cX As Long cY 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 * LF_FACESIZE End Type ' Les apis ajouter (pour la mise à jour) : Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long 'Le reste voir le zip.
24 févr. 2013 à 17:19
17 avril 2009 à 00:45
@+ Sator
27 nov. 2005 à 16:16
le pb c'est que je voudrais le faire sous vb.NET
si qqun sais comment on peux faire je suis preneur
16 mars 2005 à 11:49
12 déc. 2004 à 20:26
Peut être PrintForm ne montre pas la transparence...
Cela parce que le Contrôle d'ActiveX n'est pas sans fenêtre (contrôle de poids léger, c'est-à-dire sans poignée de fenêtre)...
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.