MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!

Participe do fórum, é rápido e fácil

MMORPG Brasil
Ola, visitante! Agradecemos sua visita, para ter acesso a todo nosso conteúdo recomendamos que faça um cadastro no fórum, com ele você pode participar de tópicos e ter acesso a todas áreas da comunidade!
MMORPG Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

[ALL]botando som quando clica no som

2 participantes

Ir para baixo

[ALL]botando som quando clica no som Empty [ALL]botando som quando clica no som

Mensagem por Soad~ Ter 04 maio 2010, 13:26

Bom no codigo do botão adicione :
codigo do botao:
Código:
PlaySound "onomedosom.oformatodosom"
ex:
Código:
If ConnectToServer = True Then
        frmLogin.tmrInfo.Enabled = True
        Packet = "getinfo" & SEP_CHAR & END_CHAR
  PlaySound "ononoonomeDosom.wav"     
  Call SendData(Packet)
    Else

Créditos:
OmegaZero
Soad
&
O burro

xD

OBS: O som tem que estar na pasta sfx ou musica...

EU EDITEI 3x
Soad~
Soad~
Membro
Membro

Mensagens : 231

http://twitter.com/#!/kshcold

Ir para o topo Ir para baixo

[ALL]botando som quando clica no som Empty Re: [ALL]botando som quando clica no som

Mensagem por St4rk Ter 04 maio 2010, 14:05

Pode usar Também "Call" mais eu não custumo muito -.-
St4rk
St4rk
Membro de Honra
Membro de Honra

Mensagens : 2251

http://mylittledev.wordpress.com

Ir para o topo Ir para baixo

[ALL]botando som quando clica no som Empty Re: [ALL]botando som quando clica no som

Mensagem por Soad~ Ter 04 maio 2010, 14:56

Ahh Omega to sem paciencia e tempo pra ajudar o smilofay então
pode assumir daki pra frente??
ai está o que ele quer..é o botao de click do login o dele ta assim :

esmilofay escreveu:
Código:
Private Sub picLogin_Click()
Dim Packet As String
    frmLogin.txtName.Text = Trim(GetVar(App.Path & "\Main\Config\config.ini", "CONFIG", "Account"))
    frmLogin.txtPassword.Text = Trim(GetVar(App.Path & "\Main\Config\config.ini", "CONFIG", "Password"))
    If Trim(frmLogin.txtPassword.Text) <> "" Then
        frmLogin.Check1.Value = Checked
        frmLogin.txtPassword.PasswordChar = "*"
    Else
        frmLogin.Check1.Value = Unchecked
        frmLogin.txtPassword = "Password"
        frmLogin.txtPassword.PasswordChar = ""
    End If
    If Trim(frmLogin.txtName.Text) = "" Then
        frmLogin.txtName = "Username"
    End If
    frmLogin.Visible = True
    Me.Visible = False
    frmLogin.txtName.SetFocus
    frmLogin.txtName.SelStart = Len(frmLogin.txtName.Text)
       
    frmLogin.lblPlayers.Visible = True
    frmLogin.lblPlayers.Caption = "Getting info..."
   
    If ConnectToServer = True Then
        frmLogin.tmrInfo.Enabled = True
        Packet = "getinfo" & SEP_CHAR & END_CHAR
        PlaySound "DefenceRaised.wav"
        Call SendData(Packet)
    Else
        frmLogin.lblOnOff.Caption = "Offline"
        frmLogin.lblPlayers.Visible = False
    End If
End Sub

Tópico temporário e controlado por Soad~


diz a ele como poe..
Soad~
Soad~
Membro
Membro

Mensagens : 231

http://twitter.com/#!/kshcold

Ir para o topo Ir para baixo

[ALL]botando som quando clica no som Empty Re: [ALL]botando som quando clica no som

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos