codice:Private Sub Form_Load() MSFlexGrid1.FixedCols = 1 MSFlexGrid1.FixedRows = 1 MSFlexGrid1.Cols = 2 'Numero di colonne MSFlexGrid1.Rows = 2 'Numero di righe MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = "row 1;col1" MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 1 MSFlexGrid1.Text = "row 1;col2" MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 0 MSFlexGrid1.Text = "row 2;col1" MSFlexGrid1.Row = 1 MSFlexGrid1.Col = 1 MSFlexGrid1.Text = "row 2;col2" End Sub

Rispondi quotando