Deplacement de form comme dans starcraft
Soyez le premier à donner votre avis sur cette source.
Vue 3 914 fois - Téléchargée 325 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
- Ex. concrets ! deplacer une form avec la methode du clique-tire - Codes sources - Visual Basic / VB.NET (Souris, Clavier, etc…)
- Visual Basic / VB.NET : Faire clignotter et déplacer un form avec un timer - CodeS SourceS - Guide
- Déplacer une form autrement qu'avec la barre de titre windows - Codes sources - Visual Basic / VB.NET (Formulaire)
- Visual Basic / VB.NET : Déplacer la form en cliquant et glissant avec la souris - CodeS Sourc - Guide
- Déplacer une form sans utiliser la barre du titre [c++builder] - Codes sources - C / C++ / C++.NET (API)
Commentaires
- 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.