Propriétés en late bindingRésolu

Question

Bonjour &#224; tous,
voil&#224; j'ai un bon probl&#232;me, pour une question pratique j'utilise des ocx que je charge en late-binding,c'est &#224; dire en faisant :
Set ctlobjOcx = frmMain.Controls.Add(OcxNomInterne + "." + OcxNomOcx, OcxNomOcx, Container)

Cependant pour mes controles charg&#233;s de cette fa&#231;on, je n'arrive pas &#224; acceder &#224; leurs propri&#233;t&#233;s sauf &#224; celles de bases pour un objet (name, height, width etc...). Bien sur je n'ai pas l'intellisense, mais meme en le tapant &#224; la main :
Ocx.Caption="Hello"

ne marche pas, alors que l'ocx supporte bien la propri&#233;t&#233; caption :
Public Property Get Caption() As String
    Caption = "Horloge"
End Property

J'obtiens l'erreur :
Object doesn't support this property or method

Merci &#224; tous ceux qui pourront m'apporter de l'aide 

Cia&#242; 
[mailto:madmatt_12@msn.com MadMatt]
www.madmatt.fr.st

MadM@tt · Accepted Answer

AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
une nuit et un aprem plus tard : la r&#233;ponse 

Tout simplement il faut faire :
Horloge1.object.BackColor = vbWhite
et non :
Horloge1.BackColor = vbWhite

Merci de ton attention quand meme pcpt ! 

Cia&#242; 
[mailto:madmatt_12@msn.com MadMatt]
www.madmatt.fr.st

PCPT · Answer

salut,

pour test, en faisant for each Ctrls in Me

if typeof ctrls is TON_TYPE_DE_CONTROL then msgbox ....



tu as quelques chose?

la Form d&#233;tecte bien ces contr&#244;les?

MadM@tt · Answer

Merci pour ta r&#233;ponse.

Voil&#224; avec ces lignes :
For Each ctrls In Me
        If TypeOf ctrls Is Horloge Then MsgBox ctrls.Name
    Next

Tout simplement, en early binding (composant ajout&#233; avec la souris) &#231;a me fait un msgbox Horloge1 mais en late binding &#231;a ne se lance pas : "user -defined type not defined" sur la ligne du milieu.
J'ajoute le composant avec cette ligne :

    Set Horloge1 = Form2.Controls.Add("HorlogeProject.Horloge", "Horloge")
    Horloge1.Visible = True

Cia&#242; 
[mailto:madmatt_12@msn.com MadMatt]
www.madmatt.fr.st

PCPT · Answer

tu sais au moins que le probl&#232;me des propri&#233;t&#233;s vient du fait que ton composant n'est pas normalement reconnu.



cette syntaxe [Set Horloge1 = Form2.Controls.Add("HorlogeProject.Horloge", "Horloge")] me parra&#238;t bizarre....

Horloge1 est d&#233;clar&#233; en tant qu'objet sur .... Form1 ?



l'objet est r&#233;f&#233;renc&#233; dans le projet ....

as-tu essay&#233; qqchose du genre :

Set Me.Horloge1 = VB.Controls.Add("Horloge","Horloge")



&#224; tenter.....

PCPT · Answer

arf, ok

++

Propriétés en late binding

5 réponses

Discussions similaires