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.

Multiplayer Online Role Playing Game Massively Brasil - Suporte e Recursos para desenvolvedores de MMORPGs

O fórum está definitivamente fechado, obrigado a todos que participaram do que um dia foi a MMORPG Brasil!
Atenciosamente Lendário...

[Tutorial] Tremer a Form Igual no MSN

4 participantes

MMORPG Brasil :: Desenvolvimento :: Programação :: Outras Linguagens

Ir para baixo

[Tutorial] Tremer a Form Igual no MSN Empty [Tutorial] Tremer a Form Igual no MSN

Mensagem por Thales12 Qui 10 Mar 2011, 19:16

1º - Adicione a procedure abaixo após {$R *.dfm}:

Código:
procedure TForm1.TremerForm(Sender: TObject);
var i : integer;
begin
  for i := 0 to 10 do
    begin
      Form1.Left := Form1.Left + 5 ;
      Sleep(30);
      Form1.Top := Form1.Top + 5 ;
      Application.ProcessMessages;
      Sleep(50);
      Form1.Left := Form1.Left - 5 ;
      Sleep(30);
      Form1.Top := Form1.Top - 5 ;
    end;
end;

2º - Pressione Ctrl+Shift+C e após isso adicione um Button(Aba Standard) no form. Clique duas vezes no button, e adicione o seguinte codigo entre begin e end;

Código:
TremerForm(Form1);

Salve e compile (CTRL+F9)

Só isso, quando você clicar no botão, o Form tremerá.


Creditos:a mim Thales12 por fazer o Tutorial e postar.
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

[Tutorial] Tremer a Form Igual no MSN Empty Re: [Tutorial] Tremer a Form Igual no MSN

Mensagem por DragonicK Qui 10 Mar 2011, 19:38

Agora em vb.NET ...

Public Sub TremerForm()

For i As Integer = 0 To 10
Me.Location = New Point(Me.Location.X + 5, Me.Location.Y)
Threading.Thread.Sleep(30)
Me.Location = New Point(Me.Location.X, Me.Location.Y + 5)
Threading.Thread.Sleep(50)
Me.Location = New Point(Me.Location.X -5, Me.Location.Y)
Threading.Thread.Sleep(30)
Me.Location = New Point(Me.Location.X, Me.Location.Y - 5)

Application.DoEvents
Next

End Sub

Creio que seja assim, (to em lã rauzi)


Última edição por DragonicK em Qua 30 Mar 2011, 20:27, editado 1 vez(es)
DragonicK
DragonicK
Membro de Honra
Membro de Honra

Mensagens : 315

Ir para o topo Ir para baixo

[Tutorial] Tremer a Form Igual no MSN Empty Re: [Tutorial] Tremer a Form Igual no MSN

Mensagem por Thales12 Qui 10 Mar 2011, 19:43

Agora em vb.NET ...

Public Sub TremerForm()

For i As Integer = 0 To 10
Me.Location = New Location(Me.Location.X + 5, Me.Location.Y)
Threading.Thread.Sleep(30)
Me.Location = New Location(Me.Location.X, Me.Location.Y + 5)
Threading.Thread.Sleep(50)
Me.Location = New Location(Me.Location.X -5, Me.Location.Y)
Threading.Thread.Sleep(30)
Me.Location = New Location(Me.Location.X, Me.Location.Y - 5)

Application.DoEvents
Next

End Sub

to sem vb.net aki se nao eu testava Smile
mais acho q e isso msm Smile
Obrigado por compartilhar ! (Y)
Thales12
Thales12
Membro Veterano
Membro Veterano

Mensagens : 1011

http://www.rdmgames.tk

Ir para o topo Ir para baixo

[Tutorial] Tremer a Form Igual no MSN Empty Re: [Tutorial] Tremer a Form Igual no MSN

Mensagem por Lucas Roberto Qui 10 Mar 2011, 19:57

Muito bom leva +1
Lucas Roberto
Lucas Roberto
Membro Veterano
Membro Veterano

Mensagens : 1794

http://universogamesmmo.forumeiros.com/forum

Ir para o topo Ir para baixo

[Tutorial] Tremer a Form Igual no MSN Empty Re: [Tutorial] Tremer a Form Igual no MSN

Mensagem por SkyZero Qui 10 Mar 2011, 20:01

thales12 escreveu:
Agora em vb.NET ...

Public Sub TremerForm()

For i As Integer = 0 To 10
Me.Location = New Location(Me.Location.X + 5, Me.Location.Y)
Threading.Thread.Sleep(30)
Me.Location = New Location(Me.Location.X, Me.Location.Y + 5)
Threading.Thread.Sleep(50)
Me.Location = New Location(Me.Location.X -5, Me.Location.Y)
Threading.Thread.Sleep(30)
Me.Location = New Location(Me.Location.X, Me.Location.Y - 5)

Application.DoEvents
Next

End Sub

to sem vb.net aki se nao eu testava Smile
mais acho q e isso msm Smile
Obrigado por compartilhar ! (Y)

Códigos que vem do Dragonick não precisa ser testado , é aprovado só de ler .
SkyZero
SkyZero
Membro Veterano
Membro Veterano

Mensagens : 890

Ir para o topo Ir para baixo

[Tutorial] Tremer a Form Igual no MSN Empty Re: [Tutorial] Tremer a Form Igual no MSN

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

MMORPG Brasil :: Desenvolvimento :: Programação :: Outras Linguagens

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