Steuerelement kopieren, aber wie

04/02/2008 - 11:42 von Jürgen Schmitt | Report spam
Hallo,
in einer Form wird ein MSFlexgrid befüllt, was zeitmàssig sehr aufwàndig
werden kann. Nun benötige ich das Grid zw. Anzeige/Berabeitung noch in
anderen Forms. Das Grid sollte also irgendwie in die andere Form kopiert
werden. Weiss leider nur nicht wie.
In frmMain befindet sich besagtes Grid. Z.B. MSFlexdGrid0
In frm1 oder frm2 wird das Grid benötigt

Habe mal folgendes versucht.
in frm1 allgemeiner Teil
Private FlexGrid As MSFlexGrid

Private Sub Form_Load()
Set FlexGrid = frmMain.MSFlexgrid0 'Funktioniert anschnd.

With Flexgrid
FlexGrid.Left = 120 'Eigenschaften werden im Kontexmenü angezeigt
FlexGrid.Top = 600
FlexGrid.Visible = True
end with
End Sub

Diese Zuordnung ist so nicht korrekt. Es wird dabei lediglich das Grid
in frmMain bearbeitet.
Weiss wirklich nicht, wie ich das Grid in die frm1 bekomme.
Wàre für Hilfe dankbar.
gruss
 

Lesen sie die antworten

#1 W. Wolf
04/02/2008 - 14:25 | Warnen spam
Hallo Jürgen,
"Jürgen Schmitt" schrieb
[...]
In frmMain befindet sich besagtes Grid. Z.B. MSFlexdGrid0
In frm1 oder frm2 wird das Grid benötigt

Habe mal folgendes versucht.
in frm1 allgemeiner Teil
Private FlexGrid As MSFlexGrid

Private Sub Form_Load()
Set FlexGrid = frmMain.MSFlexgrid0 'Funktioniert anschnd.



Das geht so nicht. In "FlexGrid" hast Du
lediglich eine Referenz auf das Grid MSFlexdGrid0,
nicht aber eine Kopie des Grids. Du mußt schon
die Daten einzeln kopieren:

Set FlexGrid = frm2.FlexGrid1
Flexgrid.Redraw = false
with frmMain.MSFlexdGrid0
Flexgrid.cols = .cols
Flexgrid.rows = .rows
'usw.
for r = 0 to .rows -1
for c = .cols -1
FlexGrid.textmatrix = .textmatrix(r,c)
next c
next r
end with
Flexgrid.redraw = true

Gruß
W. Wolf

Ähnliche fragen