Copier coller code Vb

Résolu
Bonjour,
j'ai créé une petite application qui conteint plusieurs TextBox que je veux copier le contenu de ces TextBox et le coller sur une Bloc Note.
Merci de m'aider pour avoir le code source Vb
Cdt
Zizan007

12 réponses

  1. Contributeur
    Clipboard.Clear


    Tout le textBox
    Clipboard.SetText Text1.text

    La sélection du TextBox
    Clipboard.SetText Text1.SelText

    Retrouver le presse papier
    Text1.text = Clipboard.GetText

    Insérer au curseur
    Text1.SelText = Clipboard.GetText

    A+
    1. Bonjour Ami,
      Merci pour ta reponse rapide, mais mon problème c'est que je veux mettre dans le presse papier le contenu d'un grand nombre de Text Box et que je veux récuperer ce contenu sur une bloc note , exmple :
      TextBox1 = Nom
      TextBox2= prénom
      TextBox3= adresse ......
      et quand je copie le contenu de ces TextBox et je colle sur une bloc note j'aimerai avoir ce modél :
      Nom : xxxxxxx
      prénom : yyyyyy
      Adresse : zzzzzzz
      Voilà mon problème et merci par avance (:
      toujours sur VB6
      Cordialement
      1. Contributeur
        T'est pas à moitié difficile :-)
        Sub Test()
        Dim A$
            A$ = "Nom :  " & TextBox1.Text & chr(13)
            A$ = A$ & "Prénom : " &  TextBox2.Text & chr(13)
            A$ = A$ & "Rue : " &  TextBox3.Text & chr(13)
            Clipboard.SetText = A$
        End Sub

        A+
        1. Bonjour Ami;
          je sais pas comment te remercier pour ton aide, t'es vraiment un génie
          Mille merci encore une fois
          Salutations
          Cordialement (:
          1. Bonjour Ami (:
            j'ai une autre question à te poser si c'est possible, voila je veux Afficher un calendrier de saisie sous une zone de texte, le fait que je clic sur le calendrier il apparait, je selectionne la date qu'elle s'affiche sur une zone de text et ensuite le calendrier se cache.
            toujour en VB6
            Merci pour ton aide.
            Cdt
            1. Contributeur
              Re,
              Ouvrir un nouveau projet. (si tu est sous Vista en tant qu'administrateur)
              Ajouter le composant.. Microsoft Windows Common Controls-3 6.0
              Coller Un textBox
              Coller un bouton à coté (Petit)
              Coller un MontView juste en dessous
              Le code...
              Option Explicit
              
              Private Sub Command1_Click()
                  MonthView1.Visible = True
              End Sub
              
              Private Sub Form_Load()
                  MonthView1.Visible = False
                  Text1 = Date
              End Sub
              
              Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
                  Text1.Text = DateClicked
                  MonthView1.Visible = False
              End Sub

              A+
              1. Rebonjour cher ami;
                Je te remercie pour ton aide tu m'a facilité bcp de chose, je vais abuser de ta genillesse et te demander une dernière question,
                je veux que quand l'utilisateur clic sur un bouton Command, un Email sera envoyé à un destinataire xxx@yyy.com sans qu'il ne le sache,
                une operation qui passe en cachete, et sans aucune intevention de la part de l'utilisateur.
                et le correspondant doit êter anonyme.
                comme ça je vais terminer ma petite application (:
                Meilleures salutations.
                1. Bonjour Ami;

                  j'ai pu terminer ma petite application grace à ton aide, mon problème c'est que j'ai le VB6 sur Windows7 64Bits, quand je crée le Exe de l'application pour l'executer sur un poste windows Xp, il me sort un message " le composant MSCOMCT2.OCX" n'est pas corcetement enregistré un fichier et absent.."
                  par contre sur mon pc ça marche

                  merci par avance
                  Cdt
                  1. Contributeur
                    Tu dois créer un instal (setup) pour que tout les compléments soient ajouter et inscrit dans le registre.