ciao a tutti
vorrei sottoporvi il mio prob.
ho 1 form ke contiene 1 textbox ed 1 richtextbox;
qualunque sia il colore di background del form il richtextbox diventa trasparente, mentre il textbox diventa trasparente solo se il form ha il colore bianco:
vi posto il codice:
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
Private Sub Form_Load()
Dim result As Long
'//set Richtext Box Backgroundstyle to transparent
result = SetWindowLong(RichTextBox1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
result = SetWindowLong(Text1.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
End Sub
come si può fare per rendere trasparente il textbox qualunque colore assume il form?
cosa devo aggiungere?