Convidado
Convidado
 | Assunto: Chat do Eo Transparente  Qui 29 Set 2011, 10:44 | |
| ~ Client - Side ~Vá na modGameLogic e lá no topo, em baixo de Option Explicit adicione: - Código:
-
'Eclipse Transparent chat, Tutorial Created by Akio!
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& Dentro da Form frmMain procure por Private Sub Form_Load()Nesta sub, em baixo da linha If Options.Debug = 1 Then On Error GoTo errorhandler adicione: - Código:
-
Dim result As Long
result = SetWindowLong(txtChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) Créditos: Akio pelo sistema! a mim por postar. |
|
Eventos
Publicações