چطوری می تونیم Textbox رو Transparent بکنیم

[mpmsoft]

دوستان آیا تکست باکسی که تو وی بی هستش رو میشه Transparent کرد یا باید از کنترله دیگه ای استفاده بشه

[Mbt925]

باید هوکش کرد.



' REQUIRES THE MSGHOOK.DLL COMPONENT

Private Declare Function SetBkMode Lib "gdi32" (ByVal hdc As Long, _
ByVal nBkMode As Long) As Long

Const WM_CTLCOLOREDIT = &H133
Const TRANSPARENT = 1

Dim WithEvents FormHook As MsgHook
Dim TextHWnd As Long

Private Sub Form_Load()
Set FormHook = New MsgHook
FormHook.StartSubclass Me
TextHWnd = Text1.hWnd
End Sub

Private Sub FormHook_BeforeMessage(uMsg As Long, wParam As Long, lParam As Long, _
retValue As Long, Cancel As Boolean)
If uMsg = WM_CTLCOLOREDIT And lParam = TextHWnd Then
SetBkMode wParam, TRANSPARENT
End If
End Sub

[mpmsoft]

استاد شما که جواب دادید این Dll هم می زاشتید چون من ندارمش

[Mbt925]

بفرمایین دوست عزیز.

[Mbt925]

اینم یه نمونه برای شما دوست عزیز: