Universo Games
Ola , Convidado



Você ainda não e cadastrado então cadastre-se e veja todas as atualizações no mundo rpg!!!

Chat do Eo Transparente

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Tutorial Chat do Eo Transparente

Mensagem por Thales12 em Qui 29 Set 2011, 09: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.
avatar
Thales12

Mensagens : 182

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum