Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate t As TextBox
Private Sub Form_Activate()
List1.AddItem "@"
List1.AddItem "#"
List1.AddItem "£"
List1.AddItem "$"
List1.AddItem "%"
List1.Visible = False
With Command1
.Move -100, -100, 10, 10
.SetFocus
End With
End Sub
Private Sub List1_Click()
t.Text = List1.List(List1.ListIndex)
List1.Visible = False
Command1.SetFocus
End Sub
Private Sub Text1_Click()
superpose
End Sub
Private Sub Text2_Click()
superpose
End Sub
Private Sub superpose()
Set t = ActiveControl
List1.Move t.Left, t.Top, t.Width, t.Height
List1.Visible = True
End Sub
j'ai un projet à rendre dans pas longtemps