[ALL] Transparencia Windows flutuante sem DX8

Você não precisa fazer DX8 janelas transparentes.

Esta modificação não é fazer uma cor transparente na sua forma, é fazer com que todo o formulário, ou focalizada caixa transparente e todo seu conteúdo.

Para mim, isso significava que eu possa cortar cerca de 30 por cento do GUI e têm janelas flutuantes para o inventário e caráter estatísticas etc vou tentar e fazer este tutorial como noob amigável possível.

NOTA: Desde o lançamento deste tutorial, parece que há um problema wirh flicker máquinas Alguns windows XP ... Usuários do Vista estão ok. Isto é devido a alguma forma de vídeo onboard não ser rápido o suficiente para manter a atualização para cima. Parece que cerca de 2 em cada 10 usuários de enfrentar o problema ... tudo o que posso sugerir agora é adquirir um novo computador(Jk. .. vamos descobrir isso algum dia ..)


Há algumas coisas que você vai precisar fazer.
Você precisa VB6, é claro. Estamos apenas modificando frmMirage e adicionando um novo formulário e dois módulos.

1 º Passo
Abra seu cliente de origem.
Encontrar frmMirage
Adicionar um botão de comando em qualquer lugar no formulário.

Clique duas vezes em que o botão de comando para editar o código.
Adicione este código para essa ação botões:

Código:

Private Sub Command1_Click()
Translucent.Visible = True

End Sub

propriedades Im seu projeto, clique direito "Formulários" ou vá ao menu de VB6 'Projeto' até o topo e
Adicione um novo formulário.

Criar um novo formulário, Chame-

Translucent

Torná-lo tão grande ou pequeno quanto você gosta.

Adicionar uma caixa de texto, altere o nome dele para:

txtTransparency

Em seguida, adicione um botão de comando também.

Chamá-lo: é a seguinte:

cmdTranslucent

Adicionar todo este código para o formulário agora (note que este é todo o código para o formulário, cole isto no lugar vazio.

Código:

Option Explicit
Dim g_nTransparency As Integer
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub Form_Activate()
    'Devogen Interactive 2008
    'Form On top API call that works.
   
    'Set the windows position to the very top or the front as I call it.
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
      End Sub


Private Sub cmdTranslucent_Click()
    On Error GoTo ErrorRtn
   
      'value between 0 and 255
      'This can be done with dials or text label
     
      g_nTransparency = txtTransparency.Text
        If g_nTransparency < 0 Then g_nTransparency = 0
        If g_nTransparency > 255 Then g_nTransparency = 255
       
      'now set the floating window to the value of g_nTransparency
        SetTranslucent Me.hwnd, g_nTransparency
    Exit Sub
ErrorRtn:
    MsgBox Err.Description & " Source : " & Err.Source
   
   

End Sub

Private Sub Form_Load()


'initialize
'These are just the default values that are there when the form loads,

    txtTransparency.Text = 150
    g_nTransparency = 150
 
  'Set the backcolor of the new floating window,
  ' you could add a bitmap to the background of 
  ' course also.
      Me.BackColor = RGB(0, 0, 255)
   
End Sub

3 º Passo :

Ok, este é o mesmo que o Passo 3, mas desta vez adicionar um novo módulo e chamar-lhe o que quiser.

Este é o código de controle para a transparência e onde ela vai acontecer. Você não precisa adicionar ou alterar qualquer coisa aqui, é só colar esse código e, novamente, este é o código inteiro para que você chamou. BAS

Código:

Option Explicit

Sub SetTranslucent(ThehWnd As Long, nTrans As Integer)
    On Error GoTo ErrorRtn

    'SetWindowLong and SetLayeredWindowAttributes are API functions,
    'This is all straight from the MSDN website people, I cant really take
    'credit, I should give google credit for helping me find it!
   
    Dim attrib As Long
    attrib = GetWindowLong(ThehWnd, GWL_EXSTYLE)
    SetWindowLong ThehWnd, GWL_EXSTYLE, attrib Or WS_EX_LAYERED
    SetLayeredWindowAttributes ThehWnd, RGB(255, 255, 0), nTrans, LWA_ALPHA
    Exit Sub
ErrorRtn:
    MsgBox Err.Description & " Source : " & Err.Source
   
End Sub

E está feito.

Execute o seu jogo, e clique no novo botão de comando que você colocar em frmMirage no Passo 1. Você verá a nova janela aparecerá. Ela costuma ser transparente até que você clique no botão que você criou no novo formulário. 150 é média, 50 é muito muito leve, etc. Os valores são auto-explicativas.

Se você pode fazer tudo isso, você deve conhecer e compreender como modificá-lo para atender às suas necessidades.

Boa sorte!

Essa Screen é de um jogo que tem no forum do eclipse.

Lucas Lôpo escreveu:Essa Screen é de um jogo que tem no forum do eclipse.²

ctza q os créditos sao teus?

os Créd sim a SS não

os Créd sim a SS não

hm interesante então posta uma ss de vc testano manolo

Não aconcelho utilizar isso.

eu tneho um melhor.. hehehe

@Maykel
Parabéns champz, to orgulhoso de você -mentira.

Prefiro Uzar o Alpha Bleding que Fuciona tanto no Windows Xp Quanto no Vista ^^

sei...

Obrigado pelas comentarios nenhum foi bom né porque não posta um tuto de alpha bleding ?

Bom depende , posso ultilizar o alpha como um componente no vb , sem necessitar de codigo.

alpha image control

ia der erro em outro pc por falta do ocx

Tu não sabe por juntamente com o client? lol

nope

vo postar o tutorial aki de uzar o alpha bleding so ñ acoselho uzar no eclipse origins pelo menos aki no Eo deu bug =/ mais vo postar mermu asim ^^

Magnata escreveu:vo postar o tutorial aki de uzar o alpha bleding so ñ acoselho uzar no eclipse origins pelo menos aki no Eo deu bug =/ mais vo postar mermu asim ^^

duvido

Primeiramente Criar Um Form E Deixar Igual a na foto



Depois Crie Um Modulo com o nome Translucide e Coloque dentro dele o Seguite codigo

Código:

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_LAYERED As Long = &H80000
Private Const LWA_ALPHA As Long = &H2

Public Function Transparant(hwnd As Long, percent As Integer, pil As Boolean)
    Dim before As Long
    before = GetWindowLong(hwnd, GWL_EXSTYLE)
    If pil = True Then
        before = before Or WS_EX_LAYERED
        SetWindowLong hwnd, GWL_EXSTYLE, before
        SetLayeredWindowAttributes hwnd, 0, 255 * (percent / 100), LWA_ALPHA
    Else
        before = before And Not WS_EX_LAYERED
        SetWindowLong hwnd, GWL_EXSTYLE, before
    End If
End Function

Agora Por fim Volte na Form de um Duplo Click no Buton e Coloque Dentro dele

Código:

Transparant Form1.hwnd, Val(txtPercent.Text), True

Pronto Fim

isso não é alpha bleding isso é opacidade da form .... esse tuto é o do karlos .

karlos Nd eu Fiz issu Sozinho o Povo tem Maia de falar que a Pessoa Copia que foda ¬¬'' e tam bem ñ lembro mais aparada do alpha bleding vo procura pra depois postar aff E Do karlos ¬¬''

Eu rir.

Eu rir², apsoaksoas.

MOrri kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk OMG KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK AHUAHAUHAUHAUHA

Eu ri mais com isso :

karlos Nd eu Fiz issu Sozinho o Povo tem Maia de falar que a Pessoa
Copia que foda ¬¬'' e tam bem ñ lembro mais aparada do alpha bleding vo
procura pra depois postar aff E Do karlos ¬¬''

Vou deixar uma printzinha aqui para você ter uma ideia do que é transparencia alpha blend e blá blá blá <,<


Obs: essa engine é minha D:, nem adianta procurar.
Obs²: O Baixo FPS é por que alem do pc ser uma merda to cheio de coisa aberta =O.

pode nos encinar como usar ?? eu achei maneiro a box do chat ela livre .

Cláro, só aprender DirectX8