Réponse acceptée !
Ben c'est du langage C.
L'équivalent en VB :
Private Function EdProcNoPaste(byval hwnd As Long, byval mssg as long, byval wParam as long, byval lParam as long) as long
if (mssg = WM_PASTE) Then
let EdProcNoPaste = 0
Else
Let AdProcNoPaste = CallWindowProc(oldProcEd, hwnd, mssg, wParam, lParam)
End If
End Function
En gros, il s'agit de la fonction de hook que j'avais proposée à bouv, et que Brunews a implémenté à ma place ;)
Note : la méthode de gobillot (si elle marche, je n'ai pas testé), et du bidouillage qui consiste à désactiver le textbox lors la souris clique dessus, mais je doute alors qu'il soit possible de sélectionner du texte...
La méthode de hook permet de supprimer la copie du texte directement, ce qui est plus approprié pour ton problème, bien que plus difficile à mettre en oeuvre !
Perso, je te conseillerais plutôt ceci :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 22 Then Let KeyAscii = 0
End Sub
Ce code te permet de désactiver le CTRL + V dans le textbox => le collage.
Par contre, ca ne te désactive pas le menu du textbox !
DarK Sidious
Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/