[VB6] Possible de faire des controles "dynamiquement" ??

Recherche :

Dernière réponse
Sujet : [VB6] Possible de faire des controles "dynamiquement" ??
karlkox	' creer un commandbutton ou tout autre objet ' mettre son index a 0 Private sub Creer () dim i as long ' 1 car le 0 est déja créé for i = 1 to 10 load command(i) next i command(1).left = 1500 command(1).top = 2300 ' etc ... end sub

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

karlkox

' creer un commandbutton ou tout autre objet
' mettre son index a 0

Private sub Creer ()
dim i as long

' 1 car le 0 est déja créé
for i = 1 to 10
load command(i)
next i

command(1).left = 1500
command(1).top = 2300

' etc ...

end sub

yop	Dans tu feuille tu mets : Me.Controls.Add "VB.CommandButton", "Test" Me!Test.Caption = "Bouton Dynamique" Me!Test.Left = 100 Me!Test.Top = 100 Me!Test.Visible = True Cela cree un Bouton dynamique en VB, ensuite tu peux modifier pour creer autrechose ....

camarchepoa

oulalalala :pt1cable:
je veut pas faire du TCP/IP moa
chuit pas compliqué, c juste un ch'ti truc quoa :pt1cable:

:pt1cable: vais me coucher d'ailleur :sleep:

Kyle_Katarn

load marche très bien et c'est d'ailleurs le seul moyen de faire du bon TCP/IP en client/serveur (ou le serveur "loade" sur demande des controles winsock)

camarchepoa

sylderon --> heu g pas tout compris là ... :(

Sylderon

L'utilisation de la bib "Microsoft Visual Basic 6.0 Extensibility" doit permettre de faire des formulaires dynamiquement

Mais le "Load" doit marcher (c'est bien une fonction VB) avec la classe de contrôle à spécifier. Ce procédé simule un tableau d'objets sous VB. le Bouton n°1 sera Button(0), le n°2 Button(1)...
En gros quoi, paske c'est un vague souvenir théorique.

A+

camarchepoa

c l'adresse de l'exemple, comme ca si tu veut regarder

le zip :
http://www.ipdg3.com/sourcecoderes [...] &id=000076

faut le downloader

[edtdd]--Message édité par CaMarchePoa--[/edtdd]

camarchepoa

en fait ca a l'air d'etre le nb de boutons qu'on veut ...

stef_dobermann

wouais
idem
la variable button aussi c koi ?? :??: :??:

camarchepoa

oui mais
Load cmdButton(NumberOfButtons)

c pas un truc de VB

apparement c un fonction que le gas a code mais je l'ai pas trouvée ...

stef_dobermann

ca m'a l'air d'etre une sorte de generateur de bouton non?

camarchepoa

g trouve qq chose qui doit marcher mais je comprends pas trop le code :

-----------------------------------------------------------------

Code :

Private Sub Form_Load()
Dim NumberOfButtons As Integer
Dim ButtonsText As Integer
NumberOfButtons = 1
Do Until NumberOfButtons = Buttons
Load cmdButton(NumberOfButtons)
With cmdButton(NumberOfButtons)
.Visible = True
.Left = cmdButton(NumberOfButtons - 1).Left + .Width + 300
End With
NumberOfButtons = NumberOfButtons + 1
Loop
NumberOfButtons = 0
Do Until NumberOfButtons = Buttons
ButtonsText = SetCaption(NumberOfButtons, "Button " & (NumberOfButtons + 1))
If NumberOfButtons = -1 Then
MsgBox "Error Detected..!"
Exit Sub
End If
NumberOfButtons = NumberOfButtons + 1
Loop
End Sub

-----------------------------------------------------------------

camarchepoa

en fonction du nombre de ligne, c pour ca que ja sais pas combien il en faut .... :(

stef_dobermann

Camarchepoa écrit

Citation :

oui mais je sais pas combien j'aurrais de controle au final, ca depends du nb d'objets dans ma base de données ...

du nb de ligne ou du nombre de colone ??

Carbon_14

En C, on fait un CreateWindow avec les attributs, infos adhoc.

Une ruse en VB (pour éviter les pbs de gestions des nouveaux objets, car leurs évènements ne sont pas dans la liste VB...) c'est de créer ces contrôles et de les mettre hidden. Même en couches, empilés. On peut alors montrer celui/ceux qu'on veut, et aussi le placer là où l'on veut, et donc intercepter et gérer avec VB les messages sans se casser la tête.
Il faut les créer en "array" (contrôles de même nom => "tableau" ).

Je parle de VB(3), si c'est VBApplications de Office, je sais pas.

camarchepoa

oui mais je sais pas combien j'aurrais de controle au final, ca depends du nb d'objets dans ma base de données ...

macray

je crois que l'on peut mais j'en suis pas certain !
essaye avec createobject mais j'en saus pas sûr...sinon tu met les contrôles en staitc et tu les affichent en dynamique..c'est pas plus con

controle1.visible = true

camarchepoa

:hello:

je voudrais savoir si il est possible en VB d'ajouter a une feuille des controles comme des label ou des textBox dynamiquement.

cad que je veut au chargement de la feuille creer 5 label et 2 txtBox par exemple ...

comment faut faire SVP :cry:

Merci d'avance !! :jap: