Avatar billede steffen8260 Nybegynder
13. marts 2004 - 18:49 Der er 8 kommentarer og
1 løsning

Select label

Hej jeg har skrevet følgende kode til at kopiere en label... Jeg vil gerne have at når jeg trykker på en label i runtime at den så skal gemme i en label navn og label index i 2 variabler.. håber i forstår spørgsmålet


    Dim intIndex As Integer
    intIndex = (lblName.UBound + 1)

    With lblName(intIndex)
      Load lblName(intIndex)
      .Caption = "Text" & intIndex
      .Top = 6900
      .Left = 670
      .Visible = True
      .BackStyle = 0
      .ZOrder 0
      '.BorderStyle = 1
      .DragMode = 1
    End With
Avatar billede nmh Nybegynder
13. marts 2004 - 19:34 #1
Jeg er ikke helt sikker på jeg forstår dit spørgsmål.
Med load lblName(intIndex) får du en ny label på banen.
Du har jo lige øget Ubound med 1.
Prøv at fortælle hvad det er, der skal ske.
Avatar billede steffen8260 Nybegynder
13. marts 2004 - 19:38 #2
Jeg skal have lavet så når jeg trykker på en af de nye labels skal den gemmer label navn og index fra den label der bliver trykket på i følgende

dim LBLName as string
dim LBLIndex as string

så når jeg trykker i testlabel(6) så skal den gemme 6 i LBLIndex og testlabel i LBLName
Avatar billede nmh Nybegynder
13. marts 2004 - 19:46 #3
Jeg har prøvet at pusle med det.
Den nye label der skabes med load-ordren giver ikke en reaktion, når man trykker på den. Det vil jeg forske lidt mere i.
Er det dette der er dit problem?
Er det nødvendigt, at skabe dine labels under kørsel?
For du kunne jo lave dem alle på forhånd, så vil der ikke være problemer, og de vil alle reagere, når man klikker på dem.
Avatar billede steffen8260 Nybegynder
13. marts 2004 - 19:48 #4
de skal lave i runtime (desvære vil jeg næsten sige ellers var det ikke noget problem at bixe det) hehe

det er faktisk det eneste problem jeg har
Avatar billede nmh Nybegynder
13. marts 2004 - 21:21 #5
Nu tror jeg jeg har fundet en løsning:
Du skal undlade sætningen
.Dragmode=1
Så vil den nye label reagere på, at man klikker på den.
Så hvos du laver en procedure af formen
Private Sub lblName_Click(Index As Integer)
  MsgBox Index
End Sub
Vil du se, at de labels du klikker på svarer med en msgbox, der viser labelens index. I denne procedure kan du også gemme det du vil i diveres arrays.
Avatar billede nmh Nybegynder
13. marts 2004 - 21:26 #6
ups: trykfejl.
hvos-->hvis
diveres-->diverse
Avatar billede steffen8260 Nybegynder
14. marts 2004 - 19:26 #7
så er problemet bare at jeg også skal kunne flytte med den i runtime hehe
Avatar billede steffen8260 Nybegynder
14. marts 2004 - 19:27 #8
men det virker hvis jeg trykker med højre musse knap nu hehe :/  hehe
Avatar billede nmh Nybegynder
14. marts 2004 - 19:40 #9
Har du så fået løst dit problem nu?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester