PDA

Vollständige Version anzeigen : Datenübergabe von Form1 an Form2 (listbox infos)


lnexus
19.06.2001, 22:09
Hi !
folgendes ist habe eine Form1 und eine Form2
in der Form1 gibt es eine Listbox nun brauche ich aber Werte aus der Listbox in der Form2 . Doch dort gibt es die Daten aber nicht mehr .
Muss ich irgendwo die Listbox deklarieren oder so damit sie in allen Formen zur verfügung steht.

Bitte helft mir.

mfg Marcus

Stefan Kulpa
21.06.2001, 04:44
<font face="Verdana" size="2">Hallo,


man kann jederzeit von der einen Form auf die Controls einer anderen Form zugreifen.
Etwas eleganter und sicherer wäre jedoch eine gemeinsame Datenbasis für den Inhalt der Controls.
Dies kann in Form einer öffentlichen Struktur, eines öffentlichen Arrays, eines öffentliches Recordsets
etc. durchgeführt werden.

Stefan</font>

lnexus
21.06.2001, 07:36
Hi !

leider funktioniert es aber nicht .

Wenn ich Daten aus List1.list aus meiner Form1 in meiner Form2 abrufen will sag er mir halt er kennt List1.list nicht .

Muss ich List1.List irgendwie als Public
declarieren ?.
Und wie mache ich das.

mfg Marcus

Stefan Kulpa
21.06.2001, 09:56
<font face="Verdana" size="2">Hallo,

das sollte aber gehen; Bsp.:</font>

<PRE><FONT SIZE=1 FACE=Courier New><FONT COLOR=#008000>'** Code in Form1</FONT>
<FONT COLOR=#808080><HR></FONT>
<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Form_Load()
<FONT COLOR=#000080>Dim</FONT> i <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Integer</FONT>
<FONT COLOR=#000080>For</FONT> i = 1 <FONT COLOR=#000080>To</FONT> 10
List1.AddItem "Eintrag " & i
<FONT COLOR=#000080>Next</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Command1_Click()
Form2.Show
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>
<FONT COLOR=#808080><HR></FONT>

<FONT COLOR=#008000>'** Code in Form2</FONT>
<FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Form_Load()
<FONT COLOR=#000080>Dim</FONT> i <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Integer</FONT>
<FONT COLOR=#000080>With</FONT> Form1.List1
<FONT COLOR=#000080>If</FONT> .ListCount > 0 <FONT COLOR=#000080>Then</FONT>
<FONT COLOR=#000080>For</FONT> i = 0 <FONT COLOR=#000080>To</FONT> .ListCount - 1
<FONT COLOR=#000080>Debug.Print</FONT> .List(i)
<FONT COLOR=#000080>Next</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>If</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>With</FONT>
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>

</FONT></PRE>

<font face="Verdana" size="2">Allerdings muss beim Zugriff auf die Form mit der Liste die Form auch noch gültig sein!
Du hast bisher nicht veraten, wie Du von der einen Form zu anderen Form kommst ...

Stefan
</font>

lnexus
21.06.2001, 11:06
Und zwar mache ich das über einen Button
auf der form1 .

Private Sub Command9_Click()
form2.show
End Sub

lnexus
21.06.2001, 11:46
Hi !

danke für deine Hilfe es hat sich erledigt.
Ich habe das form1. vor list1.list nicht
gehabt.

mfg Marcus