Avatar billede pissed_squirrel Nybegynder
23. april 2003 - 17:26 Der er 6 kommentarer og
1 løsning

Løkke til indsættelse i MSFlexGrid

Jeg skal bruge en kode til at finde en tom plads i en kolonne i et FlexGrid, og jeg tænkte at det kunne lade sig gøre med en løkke

Nu er problemet det, at jeg kan ikke lide se hvordan jeg skal opbygge denne, så den virker

Jeg har denne her kode i forvejen:

Private Sub Command1_Click()

    Main.MSFlexGrid1.Row = 1
    Main.MSFlexGrid1.Col = 0

    Main.MSFlexGrid1.Text = "Close"
   
    Main.MSFlexGrid1.Col = 1
   
    For x = 0 To List1.ListCount - 1
    If List1.Selected(x) = True Then
   
        starttime.Label1 = List1.List(x)
        Main.MSFlexGrid1.Text = List1.List(x)
   
    End If
    Next
   
    Unload Me
    starttime.Show 1, Main

End Sub


Så skulle resultatet jo gerne blive sådan noget lignende det her:

Close | Valg fra Listbox |....

Hvis der så allerede er noget i den første skulle den jo gerne vælge den neden under, og så videre...
Avatar billede pissed_squirrel Nybegynder
23. april 2003 - 21:30 #1
Jeg har ændret lidt i koden

Private Sub Command1_Click()

    Main.MSFlexGrid1.Row = 1
    Main.MSFlexGrid1.Col = 0

    If List1.SelCount = 1 Then
   
        Main.MSFlexGrid1.Text = "Close"
   
        Main.MSFlexGrid1.Col = 1
       
        For x = 0 To List1.ListCount - 1
       
            If List1.Selected(x) = True Then
   
                starttime.Label1 = List1.List(x)
                Main.MSFlexGrid1.Text = List1.List(x)
   
            End If
        Next
       
        Unload Me
        starttime.Show 1, Main
       
    Else
   
        MsgBox "Please select one", vbExclamation + vbOKOnly, "Error"
       
    End If

End Sub
Avatar billede venne Nybegynder
24. april 2003 - 09:37 #2
Det er ikke krystalklart for mig hvad du vil opnå, men måske er det noget i denne retning:

Do Until Main.MSFlexGrid1.Text = ""
  Main.MSFlexGrid1.Row = Main.MSFlexGrid1.Row + 1
Loop

Den kører nedad indtil den finder en tom celle. NB: den checker ikke for om den rammer bunden...

/venne
Avatar billede pissed_squirrel Nybegynder
24. april 2003 - 14:08 #3
Hvordan er det så muligt at putte et stop ind i den, så den ikke går videre end bunden ??
Avatar billede venne Nybegynder
24. april 2003 - 14:29 #4
Do Until Main.MSFlexGrid1.Text = "" Or _
        Main.MSFlexGrid1.Row >= Main.MSFlexGrid1.Rows - 1
  Main.MSFlexGrid1.Row = Main.MSFlexGrid1.Row + 1
Loop

Nu peger vi enten på en tom celle eller på den nederste. Hvad du så vil gøre er op til dig.

/venne
Avatar billede pissed_squirrel Nybegynder
24. april 2003 - 15:23 #5
Kan man ikke bare bruge den første løkke du lavede, og putte en if-sætning ind i den ??

if Main.MSFlexGrid1.Row > x Then
Break
End If

???

Pointene er dine....ville bare godt lige holde dig her, til jeg vidste hvad jeg kunne gøre for at afslutte løkken
Avatar billede venne Nybegynder
24. april 2003 - 15:26 #6
Jo det kan man osse. Der skal bare stå Exit Do i stedet for Break...

/venne
Avatar billede pissed_squirrel Nybegynder
24. april 2003 - 15:53 #7
mange tak
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