Universo Games
Ola , Convidado



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

Suporte e Desenvolvimento só no Universo Games

Ola Convidado, Seja Bem vindo a equipe lhe deseja boa sorte no seu projeto!

Você não está conectado. Conecte-se ou registre-se

Chat do Eo Transparente

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1Tutorial Chat do Eo Transparente em Qui 29 Set 2011, 09:44

Thales12


Membro
Membro
~ 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.

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

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