Label/forme par dessus un textbox

Question

Salut! Je cherche comment mettre un label ou une forme ou etc par dessus un textbox, parce que le z-order tu textbox est par défaut au dessus. Merci! :D

Lazlo 
LazySystems

jmfmarques · Answer

Salut,

Mets donc ton label dans un Frame et n'en parlons plus ...

minb2215 · Answer

Non je peux pas faire ca: en fait je dois avoir l'effet de transparence du label/forme.  Mais merci de la réponse 

LazySystems

Utilisateur anonyme · Answer

Voir toutes les sources de labels qui ont un hwnd







__________
Kenji

( 


Nouveau forum VBA/Office

jmfmarques · Answer

Qoui ?
Tu veux également un cadre transparent ?
Ma foi.... je peux faire aussi...(3 pastis et ce sera fait en moins de deux...)

cs_DARKSIDIOUS · Answer

Heu, les sources de labels qui ont un hwnd ? y'aurai pas comme un paradoxe là ?

minb2215 · Answer

Vous m'avez perdu 
LazySystems

jmfmarques · Answer

Allez, minb2215, on reprend :
Expose d'un seul coup le résultat final (et la finalité) de ce que tu cherches à faire exactement.

Utilisateur anonyme · Answer

Il faut que tu fasse un UserControl auquel tu le définis Transparent (y'a une propriété pour ca) et tu dessine ensuite le texte dessus.







__________
Kenji

( 


Nouveau forum VBA/Office

cs_DARKSIDIOUS · Answer

Ben la finalité est pas bien compliquée : Mettre un label au premier plan (devant les textbox).

Maintenant le soucis qui se pose, c'est que le Label n'a pas de hWnd, c'est un contrôle static (tout comme les Shape), et du coup, il n'est pas possible de faire ce qu'il demande. La solution ? Passer par un contrôle avec un hWnd qui n'affiche qu'un texte et donc avec un fond transparent comme a sûrement voulu dire notre ami charles !

cs_DARKSIDIOUS · Answer

Arf, pas vu ton dernier message charles ;)

C'est pas aussi simple : il faut qu'il définisse un masque pour son usercontrol en plus de dessiner dessus, sinon il sera totalement transparent son contrôle !

Utilisateur anonyme · Answer

Assez simple vu que le masque sera le texte.
UserControl.MaskPicture = UserControl.Image après avoir dessiner le texte.







__________
Kenji

( 


Nouveau forum VBA/Office

jmfmarques · Answer

Moi, je m'en tiens à ce que j'ai dit plus haut et :

Une Form
Sur la Form :
une textbox text1
par dessus la textbox : un Frame Frame1
Dans le Frame Frame1 : un label Label1

code :

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const WS_EX_TRANSPARENT = &H20&
Private Const GWL_EXSTYLE = (-20)
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Const TRANSPARENT = 1
Private Declare Function InvalidateRectLong Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long
Public Sub fantome_ecossais(ByVal fraThis As Control)
    Dim lExStyle As Long
    lExStyle = GetWindowLong(fraThis.hwnd, GWL_EXSTYLE)
    lExStyle = lExStyle Or WS_EX_TRANSPARENT
    Call SetWindowLong(fraThis.hwnd, GWL_EXSTYLE, lExStyle)
    Call SetBkMode(GetDC(fraThis.hwnd), TRANSPARENT)
    Call SetWindowPos(fraThis.hwnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_FRAMECHANGED)
    Call InvalidateRectLong(fraThis.hwnd, vbNull, True)
End Sub


Private Sub Form_Activate()
    Call fantome_ecossais(Frame1)
    DoEvents
    Frame1.ZOrder
    Frame1.BorderStyle = 0
End Sub

Et je veux bien qu'on me coupe la tête s'il n'obtient pas son label par dessus la textbox, dans un cadre transparent ...

jmfmarques · Answer

Excusez-moi (m'en a être trompé dans l'odre des instructions !!!)
Private Sub Form_Activate()
    Frame1.BorderStyle = 0  ' à mettre avant et pas (come plus haut) après l'instruction de "fantomisation "
    Call fantome_ecossais(Frame1)
    DoEvents
    Frame1.ZOrder
    
End Sub

minb2215 · Answer

Erf, bravo pour le code super compliqué incompréhensible pour un newbie comme moi (lol), mais voici l'effet de ton code: 1-Le frame s'en va en arrière 2-Seul le contour du frame est transparent, pas tout le frame :P  Beh merci quand meme 
LazySystems

minb2215 · Answer

Oh j'avais pas vu le dernier message: Le frame reste en avant plan , mais il est toujours pas transparent juste le contour (border) :(
LazySystems

jmfmarques · Answer

Vois ma dernière correction et applique !
Tu vas voir... (ou ne plus voir)...
Testé à l'instant sur ma machine et tout va bien.
Maintenant : pour faire ce que tu veux faire : ne t'attends pas à du "simple"... c'est évident !

minb2215 · Answer

J'ai essayé ca marche pa :(

LazySystems

minb2215 · Answer

Private Sub Form_Activate()
    Frame1.BorderStyle = 0
    Call fantome_ecossais(Frame1)
    DoEvents
    Frame1.ZOrder
End Sub

J'ai bon la?

LazySystems

jmfmarques · Answer

Si ça ne "marche" pas chez toi, c'est que tu n'as pas fait exactement ce que je t'ai dit !
(ou alors que tu n'est pas sous VB6)...

Fais don un projet nouveau et les gestes et le code (par copier coller) que je t'ai indiqués et lance donc....
Aucune raison pour que celà marche sans faille chez moi et pas chez toi !!!!!

jmfmarques · Answer

Alors ?

Je reprends tout, à tout hasard (afin que tu ne te mélanges pas les pinceaux à cause de la correction :

Une Form
Sur la Form :
une textbox text1
par dessus la textbox : un Frame Frame1
Dans
 le Frame Frame1 : un label Label1

code :

Option Explicit
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const WS_EX_TRANSPARENT = &H20&
Private Const GWL_EXSTYLE = (-20)
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, ByVal nBkMode As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Const TRANSPARENT = 1
Private Declare Function InvalidateRectLong Lib "user32" Alias "InvalidateRect" (ByVal hwnd As Long, ByVal lpRect As Long, ByVal bErase As Long) As Long
Public Sub fantome_ecossais(ByVal fraThis As Control)
    Dim lExStyle As Long
    lExStyle = GetWindowLong(fraThis.hwnd, GWL_EXSTYLE)
    lExStyle = lExStyle Or WS_EX_TRANSPARENT
    Call SetWindowLong(fraThis.hwnd, GWL_EXSTYLE, lExStyle)
    Call SetBkMode(GetDC(fraThis.hwnd), TRANSPARENT)
    Call SetWindowPos(fraThis.hwnd, 0, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE + SWP_FRAMECHANGED)
    Call InvalidateRectLong(fraThis.hwnd, vbNull, True)
End Sub

Private Sub Form_Activate()
    Frame1.BorderStyle = 0  
    Call fantome_ecossais(Frame1)
    DoEvents
    Frame1.ZOrder
End Sub

Ne modifie RIEN et fais du copier-coller...
Dis-nous...
Quelqu'un d'autre pour me dire si j'ai la berlue ou si c'est un autrte qui l'à ?

Label/forme par dessus un textbox

37 réponses

Votre réponse

Discussions similaires