begin process at 2012 02 13 21:24:59
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Formulaire

 > AIMANTER UNE FORM

AIMANTER UNE FORM


 Information sur la source

Note :
10 / 10 - par 2 personnes
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Formulaire Niveau :Initié Date de création :01/06/2002 Date de mise à jour :01/06/2002 11:32:16 Vu / téléchargé :3 880 / 428
Auteur : AVSoft

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Ben on approche la form et hop elle est collé a l'écran.

Source

  • Dim MonX, MonY
  • Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • MonX = X
  • MonY = Y
  • End Sub
  • Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  • If Button = 1 Then
  • Dim TempX As Long, TempY As Long
  • TempX = Me.Left - (MonX - X) 'recalcule les positions de la feuille dans les
  • TempY = Me.Top - (MonY - Y) 'les variables pour éviter le clignotement
  • If Abs(TempX) < 20 * Screen.TwipsPerPixelX Then
  • Me.Left = 0
  • ElseIf Abs((TempX + Me.Width) - (Screen.Width)) < 20 * Screen.TwipsPerPixelX Then
  • Me.Left = Screen.Width - Me.Width
  • Else
  • Me.Left = TempX
  • End If
  • If Abs(TempY) < 20 * Screen.TwipsPerPixelX Then
  • Me.Top = 0
  • ElseIf Abs((TempY + Me.Height) - (Screen.Height)) < 20 * Screen.TwipsPerPixelX Then
  • Me.Top = Screen.Height - Me.Height
  • Else
  • Me.Top = TempY
  • End If
  • End If
  • End Sub
Dim MonX, MonY

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MonX = X
MonY = Y
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Dim TempX As Long, TempY As Long
TempX = Me.Left - (MonX - X)      'recalcule les positions de la feuille dans les
TempY = Me.Top - (MonY - Y)       'les variables pour éviter le clignotement


If Abs(TempX) < 20 * Screen.TwipsPerPixelX Then
Me.Left = 0
ElseIf Abs((TempX + Me.Width) - (Screen.Width)) < 20 * Screen.TwipsPerPixelX Then
Me.Left = Screen.Width - Me.Width
Else
Me.Left = TempX
End If

If Abs(TempY) < 20 * Screen.TwipsPerPixelX Then
Me.Top = 0
ElseIf Abs((TempY + Me.Height) - (Screen.Height)) < 20 * Screen.TwipsPerPixelX Then
Me.Top = Screen.Height - Me.Height
Else
Me.Top = TempY
End If
End If
End Sub

 Conclusion

ELLE N'EST PAS DE MOI CETTE SOURCE.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip Source avec une capture VOLET COMME DANS OFFICE XP
Source avec une capture EASTER EGGS DE VISUAL BASIC 5 ET 6
Toutes les sources de AVSoft

 Sources de la même categorie

Source avec Zip GEST COTISATION - ASSOCIATION par MOHA555
Source avec Zip HSCROLLBAR POUR L'ARRIÈRE PLAN par 320C
Source avec Zip Source avec une capture Source .NET (Dotnet) METTRE VOTRE FORM VB.NET EN PLEINE ÉCRAN par Gabilach
RECHERCHE DANS UNE LISTE À PARTIR D'UN CHAMP TEXTE par jmeunier
Source avec Zip GESTION DES COMSOMMABLE par gboraud
Toutes les sources de la catégorie Formulaire

Commentaires et avis

Commentaire de yoman64 le 01/06/2002 22:32:29

Salut je voulais te dire a tu tester ce code!!!!!!! C"est dans le form mouse up et non dans le mousemove kil fo mettre ce script:

If Button = 1 Then
Dim TempX As Long, TempY As Long
TempX = Me.Left - (MonX - X)            'recalcule les positions de la feuille dans les
TempY = Me.Top - (MonY - Y)          'les variables pour éviter le clignotement


If Abs(TempX) &lt; 20 * Screen.TwipsPerPixelX Then
Me.Left = 0
ElseIf Abs((TempX + Me.Width) - (Screen.Width)) &lt; 20 * Screen.TwipsPerPixelX Then
Me.Left = Screen.Width - Me.Width
Else
Me.Left = TempX
End If

If Abs(TempY) &lt; 20 * Screen.TwipsPerPixelX Then
Me.Top = 0
ElseIf Abs((TempY + Me.Height) - (Screen.Height)) &lt; 20 * Screen.TwipsPerPixelX Then
Me.Top = Screen.Height - Me.Height
Else
Me.Top = TempY
End If
End If

En tk bonne prog et @++

Commentaire de yoman64 le 01/06/2002 23:15:04

ha non dsl je me suis tromper ,sa marche aussi c"est que mon ordin avec un bug(comme tout ceux qui possede windows :) )

Commentaire de config le 07/09/2002 06:46:42

lololol genre c ton ordi ki ta fait dire un truc débile....

Commentaire de koolstuff le 15/03/2004 10:45:54

Petit détail, ce script ne tiens pas compte du cas ou on aurai un 2eme écran. Si quelqu'un a la solution d'ailleur ça m'arrangerai bien.
Sinon pour détecter la barre des taches en bas tu peux utiliser l'objet Microsoft SysInfo Control 6.0 qui donne la propriété WorkAreaHeight assez sympa (:

Commentaire de MalcolMZ le 15/10/2004 17:35:50

meric pour l'info koolstuff..enfin kkl chose d'interesasnt a savoir

Commentaire de MalcolMZ le 15/10/2004 17:37:10

arf..je bug..en tout cas..je v enfin pouvoir faire une form aimanté ki prend en compte ou se trouve la barre des tâches

 Ajouter un commentaire

Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Happy Bright Landscape WIth ButterfliesPhoto Renewable Energy is Within Reach
Photo ?? 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,655 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)