Deplacement de form comme dans starcraft
Soyez le premier à donner votre avis sur cette source.
Vue 4 028 fois - Téléchargée 336 fois
Description
Et ben oui c'est pour faire des déplacements de formulaire de gauche à droite, de haut en bas ou en diagonales, et ça marche aussi de droite à gauche et de bas en haut mais pas toujours je sais pas pourquoi, j'ai fait ça hier soir en 20 minutes après Il était une fois dans l'ouest alors j'étais crevé et j'ai pas calculé...
Mettre le code dans un module, et appeller la sub deplace...
Dans le zip y a une sorte d'exemple ( ce qui m'a servi a le teste... )
Encore un prog pourri qui sert à rien de Alain Proviste...
Au fait si vous arrivez à faire un déplacement de bas-droit à haut-gauche envoyer le code rectifié.
guesavo@hotmail.com
Mettre le code dans un module, et appeller la sub deplace...
Dans le zip y a une sorte d'exemple ( ce qui m'a servi a le teste... )
Source / Exemple :
Option Explicit
Public Type DeplaceType
fromX As Long 'x de départ
fromY As Long ' y de départ
toX As Long 'x d'arrivée
toY As Long 'y d'arrivée
'during As Long ' durée de l'action, en milisecondes bien entendu 'annulé parce que ça ne marche pas chez moi, soit sa change rien, soit c'est trop lent
End Type
Public Sub deplace(frm As Form, deplacement As DeplaceType)
Dim distanceAparcourir As Long
Dim i As Long
Dim deplaceHorz As Long
Dim deplaceVert As Long
Dim pas
deplaceHorz = deplacement.toX - deplacement.fromX
deplaceVert = deplacement.toY - deplacement.fromY
frm.Visible = True
If deplaceHorz > deplaceVert Then
'si la distance horizontale à parcourir est > à la distance vericale à parcourir
For i = 1 To deplaceHorz
frm.Left = deplacement.fromX + i
frm.Top = deplacement.fromY + (i / deplaceHorz) * deplaceVert
'Sleep (deplacement.during / deplaceHorz) 'annulé parce que ça ne marche pas chez moi, soit sa change rien, soit c'est trop lent
DoEvents
Next i
ElseIf deplaceHorz < deplaceVert Then
'si la distance horizontale < à la distance vericale
For i = 1 To deplaceVert
frm.Top = deplacement.fromY + i
frm.Left = deplacement.fromX + (i / deplaceVert) * deplaceHorz
'Sleep (deplacement.during / deplaceVert) 'annulé parce que ça ne marche pas chez moi, soit sa change rien, soit c'est trop lent
DoEvents
Next i
ElseIf deplaceHorz = deplaceVert Then
'blablabla égale blablabla
For i = 0 To deplacement.toX - deplacement.fromX
frm.Top = deplacement.fromY + i
frm.Left = deplacement.fromX + i
'Sleep (deplacement.during / deplaceHorz) 'annulé parce que ça ne marche pas chez moi, soit sa change rien, soit c'est trop lent
DoEvents
Next i
End If
End Sub
Conclusion :
Encore un prog pourri qui sert à rien de Alain Proviste...
Au fait si vous arrivez à faire un déplacement de bas-droit à haut-gauche envoyer le code rectifié.
guesavo@hotmail.com
Codes Sources
A voir également
- Code starcraft
- Codes starcraft - Meilleures réponses
- Starcraft code - Meilleures réponses
- Graph : Texte 'starcraft' - CodeS SourceS - Guide
- Code python jeu - Guide
- Code connexion vb.net access pdf - Conseils pratiques - Visual Basic / VB.NET
- Exemple de code html page d'accueil ✓ - Forum - Graphisme/design
- Trouver réponse qcm code source ✓ - Forum - Javascript / DHTML
- Messages postés
-
908
- Date d'inscription
- jeudi 26 juillet 2001
- Statut
- Modérateur
- Dernière intervention
- 1 février 2015
2Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.