Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Addin

Addin

1 réponse
Avatar
Sebastien
Je voulais remercier francois Picalausa pour sont code
'---------------------------------------------------------------------------
----------------
Dim a As VBComponent, MyForm As VBForm, MyControl As VBControl

Set a = VBInstance.ActiveVBProject.VBComponents(1)
If a.Type = vbext_ct_VBForm Then
Set MyForm = a.Designer
Set MyControl = MyForm.VBControls.Add("VB.Label")
MyControl.Properties("Caption") = "Hello!"
End If
'---------------------------------------------------------------------------
----------------

sa marche bien , mais apprement il ne me permet pas d'ajouter de listview
...

est ce qq c pourquoi ?
Merci

Sebastien
a++
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Sebastien
C'es bon j'ai trouver :-)

j'essayais avec vb.lisview, alors que c'es mscomllib.lisview ;-)

a++
Sebastien
"Sebastien" a écrit dans le message de news:
3faa526b$0$234$
Je voulais remercier francois Picalausa pour sont code



'---------------------------------------------------------------------------
----------------
Dim a As VBComponent, MyForm As VBForm, MyControl As VBControl

Set a = VBInstance.ActiveVBProject.VBComponents(1)
If a.Type = vbext_ct_VBForm Then
Set MyForm = a.Designer
Set MyControl = MyForm.VBControls.Add("VB.Label")
MyControl.Properties("Caption") = "Hello!"
End If



'---------------------------------------------------------------------------
----------------

sa marche bien , mais apprement il ne me permet pas d'ajouter de listview
...

est ce qq c pourquoi ?
Merci

Sebastien
a++