transparent richtextbox

Fullyloaded
06-05-2005, 12:57 AM
hi
i have a form with a richtextbox that is transparent and behind the richtextbox i have ShockwaveFlash witch will play a small flash movie,my problem is when i type text in the richtextbox while the flash movie is playing in the background some on the text in the richtextbox will disappear.can anyone tell me how to stop this?here is the code

Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
Const WS_EX_LAYERED = &H80000
Const LWA_ALPHA = &H2&
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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crey As Byte, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Private Declare Function AlphaBlend Lib "msimg32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal widthSrc As Long, ByVal heightSrc As Long, ByVal blendFunct As Long) As Boolean
Private Type BLENDFUNCTION
BlendOp As Byte
BlendFlags As Byte
SourceConstantAlpha As Byte
AlphaFormat As Byte
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
txtReceived.Text = Text1.Text
End Sub

Private Sub Form_Load()
Dim result As Long
result = SetWindowLong(txtReceived.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
ShockwaveFlash1.Movie = "http://www.singlessoulmate.com/flashmovie.swf"
End Sub

wakjah
06-05-2005, 05:06 AM
http://www.elitevb.com/content/01,0071,01/

RyxiaN
07-02-2005, 01:58 PM
Sorry if I'm postin' in an old topic, but, is this possible to make in a Rich TextBox?

EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum