Public Function openDialog(parent As Object) As String
    Form1.Show 1, parent 
    openDialog = Form1.Text1.Text
End Function

Private Sub Form_Load()
    Dim dlg As Dialog
    Set dlg = New Dialog
    Dim stRes As String
 
    stRes = "Öhm - ne!"
    stRes = dialog.openDialog(Me)
    MsgBox stRes 'Ergebnis ist logisch: "Text1"
 
End Sub

Zitat:

Und was ich über VB6 und gelbe Eier denke weißt du ja. ;)

Das Tolle am Internet ist: Jeder kann mitmachen!
Das Doofe am Internet ist: Jeder macht mit...

Beitrag wurde zuletzt am 28.01.10 um 13:26:35 editiert.