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
    Tu dois créer un instal (setup) pour que tout les compléments soient ajouter et inscrit dans le registre.
    0
    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
      0
      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.
        0
        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+
          0
          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
            0
            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 (:
              0
              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+
                0
                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
                  0
                  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+
                    0
                    1. Bonjour Ami;
                      j'utilise VB6 pour developper
                      Cordialement
                      0
                      1. Contributeur
                        Salut James, :-)
                        Précise quel VB ?
                        A+
                        0