CARNET D'ADDRESSE TOUT SIMPLE
l0st3d
Messages postés
205
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
13 novembre 2009
-
10 oct. 2005 à 14:50
l0st3d Messages postés 205 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 13 novembre 2009 - 13 mars 2006 à 20:36
l0st3d Messages postés 205 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 13 novembre 2009 - 13 mars 2006 à 20:36
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34154-carnet-d-addresse-tout-simple
https://codes-sources.commentcamarche.net/source/34154-carnet-d-addresse-tout-simple
13 mars 2006 à 20:36
24 oct. 2005 à 00:26
merci. pour l'effort
14 oct. 2005 à 05:29
Désidement cette source n'est pas propre propre....
Je vais arranger sa, dsl.
13 oct. 2005 à 11:31
Sinon dans Private Sub List1_DblClick()
With Inf
FName.Text = .FirstName
LName.Text = .LastName
Location.Text = .Location
City.Text = .City
PC.Text = .PostalCode
Zip.Text = .ZipCode
Phone.Text = .PhoneNumber
End If <======Pas de If donc pas besoin de End IF
End With
Bonne prog
++
11 oct. 2005 à 15:31
Mais j'ai une excuse... et oui... ce carnet d'addresse est tiré d'un autre de mes programme et jai bidouiller sa en 15-20 minutes a peine al0rs désoler je vais corriger.
Pour la grosseur er bien moi j'aime cela plus petit et compacte
(je vais voir pour trouver autre chose que le listview pour reglé le pb de la barre de défilement)
Merci de ton post!
10 oct. 2005 à 16:13
Et rien n'interdit à un français de France de connaître des français d'ailleurs :o)
J'ai renommé la procédure suivante :
Private Sub Title_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
en :
Private Sub toto_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
et bien entendu, je n'ai eu aucun problème puisque ni Title, ni toto ne sont des objets connus. Par conséquent, cette procédure ne sert à rien.
Idem pour la procédure Label10_Click, qui ne sert à rien puisque l'objet Label10 n'existe pas.
Juste une petite remarque sur l'indentation. Quand je regarde le code ci dessous, au premier coup d'oeil, je ne comprends ... rien.
C'est un peu le foutoir dans ces cas-là. N'oublies pas d'indenter, c'est plus joli et plus comprehensible.
If Button = 1 Then
Dim PosX As Long, PosY As Long
PosX = Me.Left - (monX - X)
PosY = Me.Top - (monY - Y)
If Shift = 0 Then
If Abs(PosX) < 20 * Screen.TwipsPerPixelX Then
Me.Left = 0
ElseIf Abs((PosX + Me.Width) - (Screen.Width)) < 20 * Screen.TwipsPerPixelX Then
Me.Left = Screen.Width - Me.Width
Else
Me.Left = PosX
End If
If Abs(PosY) < 20 * Screen.TwipsPerPixelX Then
Me.Top = 0
ElseIf Abs((PosY + Me.Height) - (Screen.Height)) < 20 * Screen.TwipsPerPixelX Then
Me.Top = Screen.Height - Me.Height
Else
Me.Top = PosY
End If
ElseIf Shift = 2 Then
Me.Top = PosY
Me.Left = PosX
End If
End If
Et pense à augmenter la taille de ta ListView en hauteur. Si on glisse un peu trop une icone vers le bas ou vers le haut, on se perd un peu avec la barre de défilement. Plus c'est grand, plus c'est clair !
A part celà, pas de problème majeur.
10 oct. 2005 à 14:50