| Forum: Visual Basic |
Thema:
RE:Ansprechen eines ActiveXControls |
Von:
Bernhard Elbl (
24.04.2002 14:55) |
hallo
du musst die Form als Funktion benutzen, im Stil einer Input-Box. Die wird so aufgerufen.
x = InputBox("Eingabe:")
Die Umsetzung ist eigentlich ganz einfach:
Code für die Form:
Public Sub ShowDlg(ByRef x As String)
Me.Show vbModal ' stopt hier bis form_unload
x = Text1.Text
End Sub
wichtig ist das die Prozedur Public ist. Und der Übergabe-Parameter ByRef übergeben wird. Man kann genauso eine Funktion verwenden, was einer InputBox gleich kommt.
Der Code in UserControl führt das (oben) Sub ShowDlg aus.
Code UserControl:
Private Sub Command2_Click()
Dim x As String
Form1.ShowDlg x
List1.AddItem x
End Sub
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
