Création automatique d'étiquettesRésolu

Question

Dans mon projet je dois pouvoir faire cr&#233;er &#224; l'utilisateur de mon logiciel une &#233;tiquette qu'il pourra modifier.
Je m'explique, 
L'utilisateur clique sur un bouton "Ajouter une &#233;tiquette"
Une &#233;tiquette (un rectangle) doit appara&#238;tre sur l'interface et en double cliquant sur cette zone, l'utilisateur peut y ins&#233;rer un texte.
Je ne sais cependant pas comment m'y prendre pour mettre en place ce genre d'outils. Quelqu'un aurait-il d&#233;j&#224; mis en place de tels outils et pourrait-il me donner des pi&#232;ces, des mots cl&#233;s pour faire des recherches.

Merci d'avance

Mailys

Flachy Joe · Accepted Answer

Si t'utilises une TextBox de base, tu la mets locked=true au debut, dans Text1_DblClick() :

text1.locked=false



Et puis voila...

 Flachy Joe

mailys6 · Answer

Le premier souci que je rencontre c'est de cr&#233;er un textbox en ligne de commande. Mais merci pour ta remarque, je n'avais pas pens&#233; &#224; &#231;a.

Ma&#239;lys

mailys6 · Answer

J'ai trouv&#233; une solution &#224; mon probl&#232;me et pour ceux qui ont le m&#234;me probl&#232;me que moi, voici la solution que j'ai trouv&#233;

Dans l'interface on cr&#233;e un textbox et on met sa propri&#233;t&#233; index &#224; 0. Oui comme j'devais faire plusieurs textbox avec le m&#234;me nom, j'avais besoin d'indexer mes textbox. On initialise une variable nbTxt &#224; 0 qui sera l'indice.

    nbTxt = nbTxt + 1               ' Passe &#224; l'index suivant
    Load TxtLabel(nbTxt)         ' Charge le nouveau textbox
    TxtLabel(nbTxt).Visible = True      ' Le rend visible
    TxtLabel(nbTxt).Text = "label" & nbTxt         ' Lui donne un caption
    TxtLabel(nbTxt).Left = TxtLabel(nbTxt - 1).Left + 300      ' Le d&#233;place par rapport aux
    TxtLabel(nbTxt).Top = TxtLabel(nbTxt - 1).Top + 300      ' labels pr&#233;c&#233;dents

Voil&#224; !

Mailys

Création automatique d'étiquettes

3 réponses

Discussions similaires