align i flexgrid

Hej.

Syntax

object.CellAlignment [= value ]

The CellAlignment property syntax has these parts:

Part    Description
object    An object expression that evaluates to an object in the Applies To list.
value    An integer or constant specifying how text should be aligned within cells, as described in Settings.
Settings

The settings for value are:

Constant    Value    Description
flexAlignLeftTop    0    Left Top
flexAlignLeftCenter    1    Left Center (default for strings)
flexAlignLeftBottom    2    Left Bottom
flexAlignCenterTop    3    Center Top
flexAlignCenterCenter    4    Center Center
flexAlignCenterBottom    5    Center Bottom
flexAlignRightTop    6    Right Top
flexAlignRightCenter    7    Right Center (default for numbers)
flexAlignRightBottom    8    Right Bottom
flexAlignGeneral    9    General: Left Center for strings, Right Center for numbers
Remarks

The following example sets the text alignment for each cell to Left Center using the constant setting.

Sub Form1_Load ()
    MSFlexGrid1.CellAlignment = flexAlignLeftCenter
End Sub

M.v.h.  Jørn

jaaa... det liner noget som skulle virke... men nej det gøre det ikk... ved ikk om det er mig der gøre noget forkert med de koder her???

Hej.

Jeg har lavet en lille test:

Private Sub Form_Load()
Dim a As Integer
  grid.Col = 1
  For a = 0 To 3
    grid.RowHeight(a) = 500
  Next a
  grid.Row = 2
  grid.CellAlignment = 5
  grid.Text = "Ole"
 
End Sub

Ole står i midten i bunden

M.v.h. Jørn

jeg får fejl i denne line : grid.RowHeight(a) = 500

men lige får at være sikker på at vi snakker om det samme så den der align skulle jo gerne ligge min grid op i toppen og helt ud til begge kanter lige meget om man gøre sin form stor eller lille...

Hej.

Vi snakker ikke om det samme.  Jeg beskriver hvor tekst bliver placeret i cellerne.

Jeg synes, at du ikke skal lade brugeren have mulighed for at ændre på formens størrelse; det er alt for indviklet, hvis alle kontroller skal ændre placering og størrelse, når formen evt. maksimeres.

Hvis en grid skal følge en form, skriver du

grid.width = form1.width
eller hvis den ikke skal fylde hele bredden

grid.width = form1.width * .7    ' 70% af bredden

Men så skal du samtidig ændre bredden på alle kolonner - hvorfor vil du dog gøre det så besværligt og indviklet?

M.v.h. Jørn

hehe tjaaa... jeg var viste ikk det var så indviklet... på en datagrid er det jo bare en knap over til højre du lige slår til men det var der bare ikk lige på den her grid... :D

men det du gav mig der det virker da som det skal så tak skal du have...

tænkte på om du kender noget til at kunne dblklik i en datagrid og så smider den det ned i nogle text felter??? eller ved om man overhovedet kan gøre det???

Hej.

Jeg har aldrig arbejdet med datagrid, fordi jeg ikke bruger access som database i mine programmer.

I MSFlexGrid skal du anvende løkker for at kopiere indholdet fra en række til nogle tekstfelter.  Hvis der f.eks. er 12 kolonner (hvoraf kolonne 0 (nul) bruges til ledetekst.

Private Sub grid_DblClick()

grid.Row = grid.RowSel              'den række du klikker i

for a= 1 to 11
  grid.col = a
  text1(a).text = grid.text        'dine tekstfelter skal være et kontrol-array
next a

M.v.h. Jørn

End sub

ja det er det der er problemet det skal helst gerne være i en datagrid... for MSFlexGrid kan jeg også godt selv... men jeg må se hvad jeg kan finde ud af så... men i hvert fald tak for hjælpen...