[Visual Basic / C#] Tutorial #1 - Como fazer um standalone com modo alinhamento e fullscreen

Posted by Micepong On terça-feira, 14 de agosto de 2012 Comments
Devido à minha experiência em programação, decidi fazer uma "parceria" com o fórum Player Premiere, do Niunzin e do Oxyfgp, pois lá tem uma área de Visual Basic e Visual Studio C# (linguagens usadas para a criação de programas).
Eu postarei tutoriais que eu mesmo crio ou pego uns de lá, mas é claro, relacionados à Transformice.

 Player Premiere
Tutorial #1, feito por Leopfl:

 1º Abra o visual basic e faça um novo projeto.

2º Va em general e escolha o Shockwave Flash

3º Agora va em propriedades, Vah para o Movie e bote o link do mice(http://www.transformice.com/ChargeurTransformice.swf),Depois vah em Deck (ou DOCK)
e escolha o Quadrado do meio.

4º logo em seguida,Vah ali na listinha onde você tirou o Shokwave e procure ''Menu Strip'',Adicione 3 Menus com esses nomes -> Alinhamento (deve ser o  primeiro a ser botado !) ,Esconder e Full screen mode.

5º Clique em um va em propriedades e Procure shortcurt,Botem uma Key que você queira utilizar,Faça as mesma coisa com os outro dois só que com shortcurts diverentes

Ok,Vamos a tela do alinhamento (modo Aba)

Project-> Add Windows form,clique no ultimo da lista (windows form)
1° Procure Label (da lista do shokwave e do menu strip) e escreva Alinhar o jogo !

2°  Procure Numeric updown (//Na mesma lista\\)  vah em Propriedades e procure Maximum e bote 100
                                                     Vamos aos codigos !!!!!!
Volte na Form 1 e clique 2 vezes no Full screen Mode e adicione esse codigo :

If Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.WindowState = FormWindowState.Maximized
ElseIf Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None Then
Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
Me.WindowState = FormWindowState.Normal
End If
End Sub
 
Bote de baixo disso :  Private Sub FullScreenModeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FullScreenModeToolStripMenuItem.Click

2° clique 2 vezes no Esconder e bote isso :

If MenuStrip1.Visible = True Then ' Se o menu estiver visivel
MenuStrip1.Visible = False ' esconde o menu
ElseIf MenuStrip1.Visible = False Then ' se o menu não estiver visivel
MenuStrip1.Visible = True ' chama o menu
End If
End Sub

Bote debaixo disso : Private Sub EsconderToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsconderMostrarMenuToolStripMenuItem.Click

Clique duas vezes em alinhamento e adicione isso :

Private Sub AlinhamentoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovaJanelaToolStripMenuItem.Click
Form2.Show()
End Sub
End Class

Agora Clique em form2.vb E clique duas vezes no numericupdown 

Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
Form1.transformice.AlignMode = NumericUpDown1.Value
End Sub
End Class

Obs: em  form1.transformice.alignmode bote O nome do shokwave

Talvez seja preciso Tirar isso : Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged

Pronto Seu standalone com full screen e alinhamento está pronto ! so testar !
Nao entendeu nada ? Entao olhe o video !

 

Obs : os códigos do video estao todos asscima

Créditos : Niunzin pelo video e pelos 4 codigos e Leopfl pelo tutorial.
Marcadores:
  • Pong Mice Blog