~ Client - Side ~
Vá na modGameLogic e lá no topo, em baixo de Option Explicit adicione:
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:
Créditos: Akio pelo sistema!
a mim por postar.
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.
Última edição por thales12 em Qua Fev 22, 2012 5:46 pm, editado 1 vez(es)