1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
| Private hauteur As Integer
Private Sub copie_Click()
coucou
End Sub
Private Sub Form_Activate()
copie.ZOrder
hauteur = List1.FontSize '<<< ========= ou 9, si tu veux.....
coucou
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With copie
.Left = X + 10
.Top = Y + 10
End With
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
copie.Visible = False ' =======EFFACER
copie.Text = "" '==========EFFACER
Me.MousePointer = 0 '=======EFFACER
coucou '=========AJOUTER
End Sub
Private Sub List1_DblClick()
With copie
.Text = List1.Text
.Left = X + List1.Left + 10
.Top = Y + List1.Top + 10
.Visible = True
End With
Me.MousePointer = 5
End Sub
Private Sub List2_click()
If Me.MousePointer = 5 Then
If List2.ListCount < 2 Then
List2.AddItem copie.Text
Else
numind = List2.ListIndex
If numind < 0 Then numind = 0
List2.AddItem copie.Text
DoEvents
DoEvents
For k = List2.ListCount - 1 To numind + 1 Step -1
List2.List(k) = List2.List(k - 1)
Next k
List2.List(k) = copie.Text
End If
coucou
End If
End Sub
Sub coucou()
copie.Text = ""
copie.Visible = False
Me.MousePointer = 0
End Sub |
