janela do Chat Transparente!

por **spectrus** Sáb Jun 25, 2011 11:16 pm

Coloque isso no topo da ModGameLogic

Código:: 'Criado pela [Tens de ter uma conta e sessão iniciada para poderes visualizar este link] 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&

Agora coloque isso no codigo da FrmMain

Código:: Dim result As Long result = SetWindowLong(txtChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) result = SetWindowLong(txtMyChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) If you want anyother transparent text boxes, copy" result = SetWindowLong(txtChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) " , and replace txtChat with textbox name.

Qualquer erro e so postar que agente resolve!
ate a proxima!

por **Shibaku** Dom Jun 26, 2011 3:13 pm

Qual ModGame Logic, a do server?
E onde tem que colocar o código do Frm main exatamente?
Foi mall'

por **spectrus** Dom Jun 26, 2011 4:09 pm

A ModGameLogic do cliente que se coloca o código.
Na Frm Main você coloca no módo código e coloca no topo:

Código:: Dim result As Long result = SetWindowLong(txtChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) result = SetWindowLong(txtMyChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) If you want anyother transparent text boxes, copy" result = SetWindowLong(txtChat.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) " , and replace txtChat with textbox name.