Suporte no desenvolvimento de jogos


    [Resolvido] Chat transparente

    Drowlife
    Drowlife
    Novato
    Novato

    Mensagens : 21
    Créditos : 3
    Cash : 0

    [Resolvido] Chat transparente Empty [Resolvido] Chat transparente

    Mensagem por Drowlife em Ter Nov 15, 2011 7:37 pm

    Alguem poderia ma passa um tutorial valido para EO2.0 como deixar o fundo do Chat Transparente?

    (Somente o fundo)

    Ja olhei os 2 Tutorial que tem mais 1 não deu certo e o outro fica o fundo e as letras tranparente.


    Última edição por Drowlife em Qua Nov 16, 2011 9:53 pm, editado 1 vez(es)


    _________________
    [Resolvido] Chat transparente Asasasash



    www.newtales.xpg.com.br
    [Resolvido] Chat transparente 253468018

    okabe
    okabe
    Iniciante
    Iniciante

    Mensagens : 34
    Créditos : 7
    Cash : 0

    [Resolvido] Chat transparente Empty Re: [Resolvido] Chat transparente

    Mensagem por okabe em Qua Nov 16, 2011 3:00 am

    Bom,os tutoriais sobre isso aqui são bem inúteis...
    O sistema a seguir vai deixar o fundo do Chat invisível,mostrando apenas as letras.

    Segue:
    Em cima do modText,cole:
    Código:
    'Sistema de chat em sí
    Public Sub DrawChat()
    Dim i As Integer
        For i = 1 To 6
            Call DrawText(TexthDC, Camera.left + 10, (Camera.Bottom - 20) - (i * 20), Chat(i).text, Chat(i).Colour)
        Next
    End Sub

    Public Sub ReOrderChat(ByVal nText As String, nColour As Long)
    Dim i As Integer
       
        For i = 19 To 1 Step -1
            Chat(i + 1).text = Chat(i).text
            Chat(i + 1).Colour = Chat(i).Colour
        Next
       
        Chat(1).text = nText
        Chat(1).Colour = nColour
    End Sub

    Agora procure por:
    Public sub addText
    e troque a sub toda por:

    Código:
    Public Sub AddText(ByVal Msg As String, ByVal color As Integer)
    Dim S As String

        ' If debug mode, handle error then exit out
        If Options.Debug = 1 Then On Error GoTo errorhandler
       
        S = vbNewLine & Msg
        frmMain.txtChat.SelStart = Len(frmMain.txtChat.Text)
        frmMain.txtChat.SelColor = QBColor(color)
        frmMain.txtChat.SelText = S
        frmMain.txtChat.SelStart = Len(frmMain.txtChat.Text) - 1
       
     
        ReOrderChat Msg, QBColor(color)
       
        ' Erro
        Exit Sub
    errorhandler:
        HandleError "AddText", "modText", Err.Number, Err.Description, Err.Source, Err.HelpContext
        Err.Clear
        Exit Sub
    End Sub

    Abaixo de :
    frmMain.txtChat.SelStart = Len(frmMain.txtChat.Text) - 1
    Adicione:
    Código:
    ReOrderChat Header & Name & ": " & message, Colour

    Agora em modTypes,procure por:
    Public Options As OptionsRec
    E abaixo adicione:
    Código:
    Public Chat(1 To 20) As ChatRec

    Private Type ChatRec
        text As String
        Colour As Long
    End Type

    Agora,na sub "Render_Graphics" procure por "Draw FPS"
    a abaixo adicione:
    Código:
    DrawChat

    Este tutorial deve ficar apenas nesse tópico,peço que ninguém poste livremente sem pedir autorização O.o
    Só esclarecendo,é impossível colocar um chat com opacidade no vb6 sem usar o dx8...


    _________________
    [Resolvido] Chat transparente 2254752_imagem
    [Resolvido] Chat transparente 766402_imagem

    Meu único propósito nesse fórum é responder dúvidas e postar tutoriais não testados feitos por mim...
    Drowlife
    Drowlife
    Novato
    Novato

    Mensagens : 21
    Créditos : 3
    Cash : 0

    [Resolvido] Chat transparente Empty Re: [Resolvido] Chat transparente

    Mensagem por Drowlife em Qua Nov 16, 2011 7:20 pm

    Vlw cara 1 credito

    @edit
    mais ainda ficou a caixa peta de chat e a outra tranparente por baixo, e assim msm?

    tenho que arrastar a caixa preta de chat para fora da tela do jogo ou deleto ela?


    _________________
    [Resolvido] Chat transparente Asasasash



    www.newtales.xpg.com.br
    [Resolvido] Chat transparente 253468018

    okabe
    okabe
    Iniciante
    Iniciante

    Mensagens : 34
    Créditos : 7
    Cash : 0

    [Resolvido] Chat transparente Empty Re: [Resolvido] Chat transparente

    Mensagem por okabe em Qui Nov 17, 2011 3:26 am

    Deixe visible = false


    _________________
    [Resolvido] Chat transparente 2254752_imagem
    [Resolvido] Chat transparente 766402_imagem

    Meu único propósito nesse fórum é responder dúvidas e postar tutoriais não testados feitos por mim...

    Conteúdo patrocinado

    [Resolvido] Chat transparente Empty Re: [Resolvido] Chat transparente

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Qua Out 23, 2019 6:59 am