Soyez le premier à donner votre avis sur cette source.
Vue 12 226 fois - Téléchargée 825 fois
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const EM_UNDO = &HC7 Public Sub MenuColler() 'Analyse du champ de saisie If TypeOf Screen.ActiveControl Is TextBox And Clipboard.GetFormat(vbCFText) Then Screen.ActiveControl.SelText = Clipboard.GetText() Exit Sub End If 'analyse du contrôle PictureBox If TypeOf Screen.ActiveControl Is PictureBox And Clipboard.GetFormat(vbCFBitmap) Then Screen.ActiveControl.Picture = Clipboard.GetData() Exit Sub End If End Sub Public Sub MenuCopier() 'Analyse du champ de saisie If TypeOf Screen.ActiveControl Is TextBox Then If Screen.ActiveControl.SelLength Then Clipboard.Clear Clipboard.SetText Screen.ActiveControl.SelText Exit Sub End If End If 'Analyse du contrôle pictureBox If TypeOf Screen.ActiveControl Is PictureBox Then Clipboard.Clear Clipboard.SetData Screen.ActiveControl.Image Exit Sub End If End Sub Public Sub MenuCouper() Dim LongDébut, LongSel, LongFin As Integer Dim Temp As String 'Commence par copier MenuCopier 'Efface la sélection dans le champ de saisie If TypeOf Screen.ActiveControl Is TextBox Then 'Détermine la partie du texte à conser LongDébut = Screen.ActiveControl.SelStart 'Avant la sélection LongSel = Screen.ActiveControl.SelLength Temp = Left(Screen.ActiveControl.Text, LongDébut) 'Plus Après la sélection LongFin = Len(Screen.ActiveControl.Text) - (LongDébut + LongSel) Temp = Temp + Right(Screen.ActiveControl.Text, LongFin) 'Actualise le contrôle Screen.ActiveControl.Text = Temp Exit Sub End If 'Efface le contrôle PictureBox If TypeOf Screen.ActiveControl Is PictureBox Then Screen.ActiveControl.Picture = LoadPicture("") End If End Sub Public Sub MenuÉdition() 'Désactivation temporaire des commandes 'LeNom de la Feuille ou le controle est Web.Couper.Enabled = False Web.Copier.Enabled = False Web.Coller.Enabled = False Web.Vider.Enabled = False 'Analyse du champ de saisie If TypeOf Screen.ActiveControl Is TextBox Then If Screen.ActiveControl.SelLength Then 'LeNom dee la feuille Web.Couper.Enabled = True Web.Copier.Enabled = True End If If Clipboard.GetFormat(vbCFText) Then 'LeNom de la feuille Web.Coller.Enabled = True End If End If 'Analyse du contrôle image If TypeOf Screen.ActiveControl Is PictureBox Then 'LeNom de la feuille Web.Couper.Enabled = True Web.Copier.Enabled = True If Clipboard.GetFormat(vbCFBitmap) Or Clipboard.GetFormat(vbCFDIB) Or Clipboard.GetFormat(vbCFMetafile) Then LeNom de la feuille Web.Coller.Enabled = True End If End If 'On ne peut effacer le Presse-Papier que s'il contient du texte ou une image If Clipboard.GetFormat(vbCFText) Or Clipboard.GetFormat(vbCFBitmap) Or Clipboard.GetFormat(vbCFMetafile) Or Clipboard.GetFormat(vbCFDIB) Then Web.Vider.Enabled = True End If End Sub Public Sub MenuVider() Clipboard.Clear End Sub
5 nov. 2008 à 16:33
28 juil. 2008 à 05:49
10 avril 2008 à 14:50
5 nov. 2003 à 11:49
Tu pourrais alors afficher le texte,mais aussi les images , fichiers et objets du presse papier et ainsi conclure vraiment sur les types de fichiers presents dans le presse papier!
27 févr. 2003 à 17:37
Annuler(Ctrl+Z) et Sélectionner (Ctrl+A)
Merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.