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...
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
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
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
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 ??
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
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
24. april 2003 - 15:26
#6
Jo det kan man osse. Der skal bare stå Exit Do i stedet for Break... /venne
24. april 2003 - 15:53
#7
mange tak
Kurser inden for grundlæggende programmering