kopiering af labels

Nu har jeg desværre ikke adgang til Visual Basic, så jeg må lige trække det her ud fra hjernens krinkelkroge.

Så vidt jeg husker, sættes noget, man loader med Load, som standard til at være usynlig. Så prøv at tilføje linjen .Visible=True

Jeg forstår ikke lige - skal du oprette en ny label. Skal du så ikke dimme den som en ny label?

Hvis det skal være en ekstra label i en hel række i et kontrolarray, mener(!) jeg ikke, at du kan definere flere elementer i kontrolarrayet end du gør i designtime. Så må du lave dem visible=false hvis du ikke skal bruge dem.

martin, han skal kopiere en allerede eksisterende label på hans form...på den måde gør han det skam rigtigt ved at bruge Load :)

jeg mener at have læst, at man ikke kan oprette flere elementer i et kontrolarray i runtime - men jeg kan huske forkert...

Ork jo...jeg har selv så tit tilføjet labels og lignende i runtime...så længe de bare har været en del af et allerede eksisterende array, altså :)

jeg har sat den label der skal kopieres til at være visible = true så man burde kunne se kopien med det samme

Og det vises vel stadig ikke? Hmm...kan det skyldes at formen er mindre end den left og top du sætter...altså mindre end 280x200?

jo det skal vises 280x200 passer med at være i midten af formen

Hmm...prøv lige 2 ting...dels så tilføj en MsgBox efter .Caption for at tjekke om .Caption faktisk bliver ændret. Og prøv også at lave en MsgBox på hhv. .Width og .Height.

har sku lige fået det til at virke :D thanks

Øh...okay...men hvad var problemet så?

det var ham freaken ved siden af der ikke kunne finde ud af at skrive koden rigtigt hehe

Ja...jo...men hvad var der galt med koden...det er det jeg mener :) Hvori lagde fejlen?

aner det faktisk ikke pluselig virkede det bare :S

Hmm...mystisk...ja ja...man kan åbenbart nå langt med tankens kraft ;) Men kunne du evt poste den virkende kode? Jeg er lidt nysgerrig efter at se om jeg kan se fejlen fra før :)

sådan her ser den ud med lidt extra på

Private Sub LoadNewText()

    Dim intIndex As Integer
    intIndex = (lblName.UBound + 1)
 
  MsgBox intIndex
 
    With lblName(intIndex)
      Load lblName(intIndex)
      .Caption = "Text" & intIndex
      .Top = 480
      .Left = 56
      .Visible = True
      .BackStyle = 0
      .ZOrder 0
      .BorderStyle = 1
      .DragMode = 1
    End With

End Sub

Hmm...hvis det med .Visible ikke virkede, og heller ikke det med .Left og .Top, kan det næsten kun være .ZOrder der gjorde det. Nu ved jeg selvfølgelig ikke hvor mange ting du har på din form, men formentlig blev labelen lagt bag en af de andre ting på formen før...ellers ved jeg ikke hvad der skulle have været galt :)

nå men kan du hjælpe med at lave så jeg kan tage fat i en af labelsne og drag og droppe den et andet sted på formen? altså når programmet køre

Hmmm...ja...det har jeg selv prøvet at lave...når du begynder med at skrive en egenskab for f.eks. en label, og den der lille liste dukker op med de forskellige egenskaber, så led efter noget der starter med Drag...jeg kan ikke huske helt hvad den hedder, men den skal så sættes til True.

Og hvis du vil udføre noget, når en label bliver droppet på en anden, skal du bruge LabelNavn_DragDrop...hvis du kigger i selve kodevinduet, er der øverst oppe til højre en liste med de forskellige metoder for de forskellige objekter på formen. Og du skal for øvrigt bruge DragDrop for den label, hvorpå noget bliver droppet.

problemet ligger bare i at jeg har en masse lblName(1-xx)

Det er skam intet problem...i den With lblName, du har tilføjer du bare den egenskab, jeg snakkede om, der starter med Drag, og sætter den til True...og det skal du selvfølgelig også gøre for den label, du har tilføjet til formen i design time.

Og hvis du dobbeltklikker på en af dine labels, så du kommer ud i programmerings vinduet, og der vælger DragDrop i den menu til højre, så går resten af sig selv. :)

lukker