W
Wolftein
Invitado
RichTextBox Transparencia [IAO Style?]
En Modulo Api Agregar
En Private Sub Form_Load() del FormMain Agregar
En Modulo Api Agregar
Código:
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long</li>Public Const GWL_EXSTYLE = (<span style="color: #cc66cc;">-20)
Public Const WS_EX_TRANSPARENT = &H20&
En Private Sub Form_Load() del FormMain Agregar
Código:
Dim result As Long
result = SetWindowLong(RecTxt.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT)
Última edición por un moderador: