[VB6] Scrollbar dans une frame avec des textbox

Voilà, j'ai pu regarder ton projet :scarymov: Aïe ! Tu as deux sortes de frame une xy et une xyz
Remplace celle que tu as utilisée par une frame xyz et là, miracle, non seulement tu pourras avoir un ascenseur intégré à ton cadre mais tu auras ainsi :scarymov: Aïe ! toutes les propriétés dont je, nous, on... t'avons parlé... :lol:

Maintenant, tu relis tous les bons conseils donnés et tu nous dis où tu en es. Mais après... :wink:

10 minutes pour ouvrir ton projet (ouverture boîte aux lettres, récup du fichier, extraction par internet, sauvegarde...) 1 minute pour comprendre... :scarymov: Aïe !

A+ je compte sur toi pour nous raconter la suite de l'histoire :wink:

Ou tu vois x,y,z?

Ah c'est bon j'ai vu.

Mais dans celle xyz, on ne peut pas integrer des contrôles c'est pour cela que j'avais utilise celle x,y.

Ça fait bien cinq minutes que je me suis (re)mis à VB et la dernière fois que j'y ai mis les pieds, c'était en 1995 ou seize...
Tu mets bien tes textbox en dynamique ? Alors essaie ce code

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Load() Set Mycmd = Frame1.Controls.Add("Forms.TextBox.1") ', Text1, Visible) Mycmd.Left = 18 Mycmd.Top = 150 Mycmd.Width = 175 Mycmd.Height = 20 Mycmd.Text = "C’est amusant." & Mycmd.Name End sub

---

A+

Edit
Très largement inspiré de l'aide à "add."

Ton code créer bien une textbox.

Mais si je fais cela je n'ai plus besoin de faire deux frame alors?

Tu peux m'expliquer la Syntaxe du controls.Add?

Citation:

---

Mais si je fais cela je n'ai plus besoin de faire deux frame alors?

---

Effectivement :wink:

Citation:

---

Tu peux m'expliquer la Syntaxe du controls.Add?

---

? Je t'ai donné la syntaxe, pour des explications approfondies, je ne ferais pas mieux que l'aide en ligne... :cry:
Au fait je ne t'ai pas dit, l'aide, tu peux l'avoir en sélectionnant le code et en faisant :f1: :lol:
Excuse... j'ai pas pu m'en empêcher. Mais que cela ne te décourage pas de poser des questions... Que n'as-tu pas compris ?

A+

le "Forms.textBox.1", forms je suppose que c'est le formulaire, ensuite Textbox soit c'est le nom du controle ou le type deu controles? et le 1 ??

Car si je fais par exemple avec une textbox appellé Text1 et qu'elle à un index i comment faire?

Merci d'avance

Citation:

---

Set Mycmd = Frame1.Controls.Add("Forms.TextBox.1") ', Text1, Visible)

---

Ok, je décortique : Textbox est le type de contrôle que tu ajoutes, Text1 est le nom que je lui ai donné.
Quant à 1, je sais déjà qu'avec 2, ça marche pas (!) :lol:
Je vais aller voir dans l'aide :wink:

A+

Edit
J'ai fait ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Set Mycmd = Frame1.Controls.Add("Forms.TextBox.1") ', Text1, Visible) Mycmd.Left = 18 Mycmd.Top = 150 Mycmd.Width = 175 Mycmd.Height = 20 Mycmd.Text = "C’est amusant." & Mycmd.Name Set Mycmd = Nothing Set Mycmd = Frame1.Controls.Add("Forms.TextBox.1") ', Text2, Visible) Mycmd.Left = 18 Mycmd.Top = 200 Mycmd.Width = 175 Mycmd.Height = 20 Mycmd.Text = "C’est de plus en plus amusant." & Mycmd.Name Set Mycmd = Nothing

---

et j'ai ainsi deux textbox l'un en dessous de l'autre
Pour 1, jète un coup d'oeil dans l'aide à Index

Non ce n'est pas mon prblème mon problème c'est la scrollbar.

Et les picturebox, j'en est besoin pour le centrage horizentalement Car avant javais :


________
|'''''text1''''''|
|'''''''''''''''''''''|
|________|

Et maintenant j'ai :


________
|''''''''''''''''''''''|
|''''''text1'''''|
|________|



Grâce à la picturebox.

Donc c'est la scrollbar mon problème.

Ps : ça ' sa veut dire espace.

Comprends pas !
Si tu veux que le premier Textbox soit à une cetaine distance du sommet, modifie la valeur de la propriété Top de ton textbox à 150, par exemple. Regarde le code que je t'ai donné. Mycmd.Top = 150

A+

Mais Est-ce que je peux créer une picturebox qui a une textbox à l'interieur, avec le code que tu ma fourni?

Non !

Citation:

---

L'objet ne gère pas cette propriété ou cette méthode...

---

est le message que j'obtiens si je fais ça.

Quant à Picture, je ne l'ai pas dans la liste des contrôles que voilà pouvant être ajouter avec Add
Extrait de l'aide :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

CheckBox Forms.CheckBox.1 ComboBox Forms.ComboBox.1 CommandButton Forms.CommandButton.1 Frame Forms.Frame.1 Image Forms.Image.1 Label Forms.Label.1 ListBox Forms.ListBox.1 MultiPage Forms.MultiPage.1 OptionButton Forms.OptionButton.1 ScrollBar Forms.ScrollBar.1 SpinButton Forms.SpinButton.1 TabStrip Forms.TabStrip.1 TextBox Forms.TextBox.1 ToggleButton

---

Tu es allé dans l'aide ?

A+

Oui,


j'ai trouvé un bout de code pour ajouter une picturebox dynamiquement, mais c'est dans une form :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Form2.Controls.Add "VB.PictureBox", "NewPictureBox", Form2   Set MonPictureBox = Form2!NewPictureBox   With MonPictureBox .Visible = True .Top = 10 .Left = 0 .Width = 4000 .Height = 2000 .BackColor = vbRed End With

---

Je n'ai pas tester avec une frame.

Dans une "PictureBox" placée dans un cadre, j'ai l'erreur déjà cité : "L'objet ne gère pas cette propriété ou cette méthode..."
On ne peut, au moins de cette façon, ajouter un textbox dans un pictureBox placé dans un cadre...
Que veux-tu que je te dise de plus.
Si quelqu'un a la solution... je suis toujours preneur.
Ceci dit, j'ai compris, tu n'as pas l'aide... mais regarde au moins la liste que je t'ai donnée... :wink:

A+

Salut

Moi, ce que je n'arrive pas à comprendre, c'est l'obligation (que tu as) d'insérer tes TextBox dans des PictureBox. Quelle en est l'utilité? Est-ce bien indispensable?

L'utilité d'inserer les textbox à des picturebox, c'est que je peux mettre le texte de ma textbox centré verticalement.

En faisant le code suivant :

Code:

---

1 2 3 4

Picture1(Index).Width = Text1(Index).Width Text1(Index).Left = 5 'bordures Text1(Index).Top = Picture1(Index).Height / 2 - Text1(Index).Height / 2

---

Volià, mais bon si vous avez une autre solution pour que se soit centré verticalemen, je suis preneur.

Une autre solution ? Bien sûr. Tu connais le principe des piquets et des intervales ? Tu as un intervale de plus que de piquets. Tu soustrais la hauteur de tes textbox de la hauteur de ton cadre et tu divises par le nombre de textbox + 1.
Ainsi, tu as l'intervale, ou si tu préfères le décalage en y de chaque textbox...
Je croyais que tu voulais centrer horizontalement sinon je te l'aurais conseillé plus tôt
Vendredi 24 à 15:57 tu disais :

Citation:

---

Et les picturebox, j'en est besoin pour le centrage horizentalement Car avant javais :

---

Tu essaies et tu nous dis

A+
Edit
Si tu ajoutes des textbox en hauteur, tu peux faire le repositionnement en dynamique.

Euh oui effictevement, j'avais fait une faute.
Sinon si j'ai bien compris tu fais (Text1.Height - Tex1.TextHeight) / nombre textbox + 1. ???

Sauf que tu as oublié l'essentiel

intervale = (Frame1.height - (Text1.Height + Tex2.Height + Tex3.height + ...) ) / (NbretTxtBox + 1)
J'ai mis des parenthèses partout pour m'éviter de réfléchir... Mais là, je suis sûr.

A+
Edit
Travaille les arrondis, des moitiés de pixel, je ne sais pas si ça passe :wink:

Alors il faut que je fasse ça :

Code:

---

1 2	intervale = (Frame1.Height - (Text1(Index).Height) / (Text1.Count + 1))

---

ou cela :

Code:

---

1 2	intervale = (Frame1.Height - (Text1(Index).Height + Text2(Index).Height) / (Text1.Count +Text2.Count + 1) )

---

Ps : Je n'est que deux TextBox , Text1 et Text2.