Flere felt i MSGrid??

Hej Jelle.
Dim a as integer

For a = grid.Col To grid.ColSel    \'fungerer kun når du markerer fra højre mod venstre
  grid.Col =a
  grid.Text = \"Jelle\"
Next

Du kan selv udbygge til rows eller en kombination af cols og rows, ikke?

M.v.h.  Jørn

Hej joern

Det virker fint, hvis der kun er én row, der er markeret, men ikke hvis der er flere.

jelle:> det var det han skrev jo \"Du kan selv udbygge til rows eller en kombination af cols og rows, ikke?\" at det ikke gjorde

Jeg fik det til at virke, lige efter jeg skrev den kommentar - tak for hjælpen Joern

tdaugaard:> Nu må du ikke være så streng! Hvis ikke Jelle havde fundet ud af det, ville jeg da gerne supplere.  Vil selv ved lejlighed øve hvorledes det kan laves, så man kan markere fra neden og op eller fra højre mod venstre.
M.v.h.  Jørn

men hvad skal jeg gøre, hvis jeg gerne vil have det til at virke, hvis jeg markere fra venstre mod højre?

Hej Jelle.

Ja, så bliver det nok nødvendigt at ændre fortegn på grid.colsel.  Som du kan se ovenfor har jeg skrevet at det vil jeg pusle med.  Det bliver noget med at der skal være forskellige løkker efter om grid.colsel er mindre eller større end grid.col, og tilsvarende med grid.row og grid.rowsel.

Sådan á la  If grid.colsel < grid.col then...

Er du meget ny i programmering?

M.v.h.  Jørn

Hej Jelle.

Så har jeg strikket noget sammen.  Der er 4 varianter.  Måske kan det gøres kortere, men i denne form er det i hvert fald overskueligt.  Det viste sig nødvendigt at gemme værdierne i variable, ellers blev noget ikke udført:

Dim a, b, c, d, m, n As Integer

Private Sub Command1_Click()
  c = grid.Col
  d = grid.Row
  m = grid.ColSel
  n = grid.RowSel
 
  \'Fra venstre mod højre og oppefra og ned
  \'---------------------------------------
  If c < m Then
    For b = d To n
      grid.Row = b
      For a = c To m
        grid.Col = a
        grid.Text = \"katja\"
      Next
    Next
  End If
 
 
  \'fra højre mod venstre og oppefra og ned
  \'---------------------------------------
  If c > m Then
    If d < n Then
      For b = d To n
      grid.Row = b
        For a = m To c
          grid.Col = a
          grid.Text = \"katja\"
        Next
      Next
    End If
  End If
 
  \'Fra højre mod venstre og nedefra og op
  \'--------------------------------------
  If c > m Then
    If d > n Then
      For b = n To d
      grid.Row = b
        For a = m To c
          grid.Col = a
          grid.Text = \"katja\"
        Next
      Next
    End If
  End If
 
  \'Fra venstre mod højre og nedefra og op
  \'---------------------------------------
  \'Prøv selv den 4. variant, Jelle!
 
End Sub

M.v.h.  Jørn

->Jørn

Nej - jeg er ikke så ny, jeg har programmeret i godt 3 år, men aldrig med MSGrid.

Hej Jelle.

Jamen så kender du uden tvivl  If...Then... Else  og    For..... Next

Du har vel on-line hjælpen til MSFlexgrid ?  Den hedder msflxgrd.hlp og ligger i \\windows\\help (normalt)

M.v.h.  Jørn