powerid
Inicial
Cantidad de envíos : 18
Fecha de inscripción : 14/08/2013
Edad : 24
Localización : Pehuajo
 | Tema: RichTextBox Transparencia (IAO Style?) 11.5  Sáb Ago 17, 2013 12:29 pm | |
| El code es corto..
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
Public Const GWL_EXSTYLE = (-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) SALUDOS. | |
|
