how do I get my text box's back style to be transparent?

[dimava]

hello
how do I get my text box's back style to be transparent?

[gwdash]

it didn't work for me, but you could try this:

Private Sub Form_Initialize()
Dim styles As Long
styles = GetWindowLong(Text1.hwnd, GWL_EXSTYLE)
Dim newstyle
newstyle = SetWindowLong(Text1.hwnd, GWL_EXSTYLE, sytles Or WS_EX_TRANSPARENT)

End Sub

[dimava]

nope, doesn't work for me either

Try this:

Option Explicit
Private Const WS_EX_TRANSPARENT = &H20&
Private Const GWL_EXSTYLE = (-20)

Private Declare Function SetWindowLong Lib "user32" _
  Alias "SetWindowLongA" (ByVal hwnd As Long, _
  ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


Public Function MakeTextboxTransparent(TextCtl As Object) As Boolean

On Error Resume Next
TextCtl.BackColor = TextCtl.Parent.BackColor
SetWindowLong TextCtl.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
MakeTextboxTransparent = Err.LastDllError = 0

End Function

Usage:

MakeTextboxTransparent Text1

[dimava]

I did that and it works but it conflictss with the rest of my code

Post your code where it conflicts (where you make the Textbox transparent).

[dimava]

its for the Bat Encoder and an error hit 1 line then I put a ' infront of it and the next line came up to be a problem then the next and the next and the next and the next

Take away the Option Explicit.

Another thing: Are you using VB6? Because I try the code in VB6 and it works perfect for me.

[dimava]

thanks, I took away the option explicit and it worked... now if I click enter in that text box, the next line gets to be the back ground color.