Variablen übergeben
05.08.2008 11:42:41
Andi
ich habe mal wieder eine kleine Frage. Ich möchte die Zeilennummer einer ListBox an einen einen CommandButton weiter geben, damit man die Zeile, die man ausgewählt hat, in einer zweiten Form ändern kann. Ich kenne bisher nur die Vorgehensweise z.B. für Call Rechnung (Variable1, Variable2) und dem Aufruf im Modul mit Sub Rechnung (ByVal Variable1 As Integer, ByVal Variable2 As Integer). Das geht hier aber nicht. Gelöst hab ich das Problem hier mit der Zeilenübergabe a an eine Textbox in der Form2. Wie kann man denn a direkt übergeben?
'ListBox Form1
Private Sub List1_Click ()
Dim st As String
Dim a%
st = Form1.List1.List(List1.ListIndex)
a = List1.ListIndex
Load Form2
Form2.Show
Form2.Text1.Text = st
Form2.Text2.Text = a
End Sub
'Form2
Private Sub Command1_Click ()
Dim b%
b = Form2.Text2.Text
Form1.List1.List(b) = Form2.Text1.Text
Unload Me
End Sub