OVH Cloud OVH Cloud

Un rectangle avec du texte à l'interieur

4 réponses
Avatar
Zeb
Bonjour,

Existe t'il un composant permettant de crée des rectangles en y mettant du
texte à l'interieur?

En fait je voudait pouvoir mettre plusieurs rectangle dans une meme cellule
d'un tableau mais avec
des informations differentes.

Merci d'avance,

Cordialement,

4 réponses

Avatar
François Picalausa
Hello,

Sous VB, VBA, VBS, autre?
Sous VB tu pourrais faire comme ceci:

Form.Line (X,Y)-(X+Largeur, Y+Hauteur),0,B
Form.CurrentX = X+ (Largeur - Form.TextWidth(Texte))/2
Form.CurrentY = Y+ (Hauteur - Form.TextHeight(Texte))/2
Form.Print (Texte)

Tu pourrais aussi créer un usercontrol en employant la même technique
Ou plus simplement ajouter un label, Appearance = 0 - Flat, Borderstyle 1 - Fixed Single, Alignement = 2 - Center

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Zeb" a écrit dans le message de
news:cgutim$scj$
Bonjour,

Existe t'il un composant permettant de crée des rectangles en y
mettant du texte à l'interieur?

En fait je voudait pouvoir mettre plusieurs rectangle dans une meme
cellule d'un tableau mais avec
des informations differentes.

Merci d'avance,

Cordialement,


Avatar
Zeb
Le but et de pouvoir ensuite l'inserer dans une cellule d'un tableau si
possible


"François Picalausa" a écrit dans le message de news:
uZJVg$
Hello,

Sous VB, VBA, VBS, autre?
Sous VB tu pourrais faire comme ceci:

Form.Line (X,Y)-(X+Largeur, Y+Hauteur),0,B
Form.CurrentX = X+ (Largeur - Form.TextWidth(Texte))/2
Form.CurrentY = Y+ (Hauteur - Form.TextHeight(Texte))/2
Form.Print (Texte)

Tu pourrais aussi créer un usercontrol en employant la même technique
Ou plus simplement ajouter un label, Appearance = 0 - Flat, Borderstyle > 1 - Fixed Single, Alignement = 2 - Center

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Zeb" a écrit dans le message de
news:cgutim$scj$
> Bonjour,
>
> Existe t'il un composant permettant de crée des rectangles en y
> mettant du texte à l'interieur?
>
> En fait je voudait pouvoir mettre plusieurs rectangle dans une meme
> cellule d'un tableau mais avec
> des informations differentes.
>
> Merci d'avance,
>
> Cordialement,




Avatar
le_troll
François, bonjour, ta question "Sous VB, VBA, VBS, autre?", lol, tu vois ce
que je te disais, le forum est trop généraliste, une fois sur trois on
répond à côté, faute de savoir de quoi il s'agit... Et ça implique de
connaître à fond VB, VBA, SQL, ACCESS, etc, ça peut faire beaucoup pour un
eul homme :o)

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"François Picalausa" a écrit dans le message de news:
uZJVg$
Hello,

Sous VB, VBA, VBS, autre?
Sous VB tu pourrais faire comme ceci:

Form.Line (X,Y)-(X+Largeur, Y+Hauteur),0,B
Form.CurrentX = X+ (Largeur - Form.TextWidth(Texte))/2
Form.CurrentY = Y+ (Hauteur - Form.TextHeight(Texte))/2
Form.Print (Texte)

Tu pourrais aussi créer un usercontrol en employant la même technique
Ou plus simplement ajouter un label, Appearance = 0 - Flat, Borderstyle > 1 - Fixed Single, Alignement = 2 - Center

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com

"Zeb" a écrit dans le message de
news:cgutim$scj$
> Bonjour,
>
> Existe t'il un composant permettant de crée des rectangles en y
> mettant du texte à l'interieur?
>
> En fait je voudait pouvoir mettre plusieurs rectangle dans une meme
> cellule d'un tableau mais avec
> des informations differentes.
>
> Merci d'avance,
>
> Cordialement,




Avatar
Zeb
Je travail sous VB

"le_troll" a écrit dans le message de news:

François, bonjour, ta question "Sous VB, VBA, VBS, autre?", lol, tu vois


ce
que je te disais, le forum est trop généraliste, une fois sur trois on
répond à côté, faute de savoir de quoi il s'agit... Et ça implique de
connaître à fond VB, VBA, SQL, ACCESS, etc, ça peut faire beaucoup pour un
eul homme :o)

--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !


"François Picalausa" a écrit dans le message de


news:
uZJVg$
> Hello,
>
> Sous VB, VBA, VBS, autre?
> Sous VB tu pourrais faire comme ceci:
>
> Form.Line (X,Y)-(X+Largeur, Y+Hauteur),0,B
> Form.CurrentX = X+ (Largeur - Form.TextWidth(Texte))/2
> Form.CurrentY = Y+ (Hauteur - Form.TextHeight(Texte))/2
> Form.Print (Texte)
>
> Tu pourrais aussi créer un usercontrol en employant la même technique
> Ou plus simplement ajouter un label, Appearance = 0 - Flat, Borderstyle


> > 1 - Fixed Single, Alignement = 2 - Center
>
> --
> François Picalausa (MVP VB)
> http://faq.vb.free.fr --- http://msdn.microsoft.com
>
> "Zeb" a écrit dans le message de
> news:cgutim$scj$
> > Bonjour,
> >
> > Existe t'il un composant permettant de crée des rectangles en y
> > mettant du texte à l'interieur?
> >
> > En fait je voudait pouvoir mettre plusieurs rectangle dans une meme
> > cellule d'un tableau mais avec
> > des informations differentes.
> >
> > Merci d'avance,
> >
> > Cordialement,
>
>