Private Sub Command1_Click() If Clipboard.GetFormat(vbCFText) Then '# Pour ajouter le presse papiers au textbox Text1.SelText = Clipboard.GetText(vbCFText) '# Pour remplacer le contenu du TextBox 'Text1.Text = Clipboard.GetText(vbCFText) '# Rends le focus au TextBox Text1.SetFocus End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question