Jeg ved ikke hvor den der inet kommer fra, men jeg har lavet flere
komponenter " on the fly på denne måde
Det er godt nok Controls, men måske hjælper det dig.
Option Explicit
Private WithEvents Label1 As VB.Label
Private WithEvents Label2 As VB.Label
Private WithEvents Label3 As VB.Label
Private WithEvents Label4 As VB.Label
og inde i en sub
'Tegn label1 ,2 ,3 og 4 *********************************
Set Label1 = Me.Controls.Add("VB.label", "lblHætter", Me)
Label1.Move Lf, Tp, Wt, Hg
Label1.Caption = "Hætter"
Label1.Alignment = vbCenter
Label1.Visible = True
'Label 2
Set Label2 = Me.Controls.Add("VB.label", "lblstarpost", Me)
Label2.Move 100 + Label1.Left + Wt + Lf, Tp, Wt, Hg
Label2.Caption = "Start position"
Label2.Alignment = vbCenter
Label2.Visible = True
'label 3
Set Label3 = Me.Controls.Add("VB.label", "lbllængde", Me)
Label3.Move 100 + (Label2.Left) + Wt + Lf, Tp, Wt, Hg
Label3.Caption = "Længde"
Label3.Alignment = vbCenter
Label3.Visible = True
'label 4
Set Label4 = Me.Controls.Add("VB.label", "lblType", Me)
Label4.Move 100 + (Label3.Left) + Wt + Lf, Tp, Wt, Hg
Label4.Caption = "Type"
Label4.Alignment = vbCenter
Label4.Visible = True
'*********************************************************
"engo" <engo.news@kandu.dk> wrote in message
news:uopW6.2927$VQ4.297101@news010.worldonline.dk...
> Nej det virker heller ikke, det burde og være det samme som "dim aInet
> as new inet".
>
>
> "R" skrev d. 15-06-01 13:21 dette indlæg :
> > Hvad med Set inet = new inet
> > "engo" <engo.news@kandu.dk> wrote in message
> > news:nTiW6.1180$hi6.166072@news000.worldonline.dk...
> > > Hej alle sammen,
> > >
> > > Jeg har lavet et program som bruger Microsofts component INET, dette
> er
> > > en visual component, er der på nogen måde en måde at oprette denne
> fra
> > > en class i VB.
> > >
> > > Når jeg prøver at lave en New på "Inet" får jeg en fejl.
> > >
> > > F.eks :
> > > dim aInet as new Inet
> > >
> > > Dette er ikke tilladt på Inet componenten, men hvordan kan jeg så
> > > oprette den?
> > >
> > > Engo
> > >
> > > --
> > > Leveret af:
> > >
http://www.kandu.dk/
> > > "Vejen til en hurtig løsning"
> > >
> >
> >
>
> --
> Leveret af:
>
http://www.kandu.dk/
> "Vejen til en hurtig løsning"
>