Werte Rückgabe aus Unterprogrammen

Dieses Thema Werte Rückgabe aus Unterprogrammen im Forum "Windows XP Forum" wurde erstellt von simdipl, 17. Aug. 2005.

Thema: Werte Rückgabe aus Unterprogrammen Hallo Zusammen Ich habe das Problem das ich ein paar Werte aus einer Unterfunktion zurück an die Hauptfunktion...

  1. Hallo Zusammen

    Ich habe das Problem das ich ein paar Werte aus einer Unterfunktion zurück an die Hauptfunktion geben hat jemand eine Idee wie man das lösen kann

    Gruß Simdipl
     
  2. Hallo simdipl,

    dafür ein kleines Beispiel.

    Gruß Matjes :)
    Code:
    Option Explicit
    
    '*** Beispiele Rueckgabe-Parameter für mehrere Werte
    
    Sub Main1()
    
      Dim l_Zaehler As Long
      Dim s_String As String
      
      l_Zaehler = 999
      s_String = xyz
      
      MsgBox ( _
        Werte vor dem Unterprogamm-Aufruf & vbLf & _
        l_Zaehler :   & l_Zaehler & vbLf & _
        s_String  :   & s_String)
      
      Call Unterprogramm1(l_Zaehler, s_String)
      
      MsgBox ( _
        Werte nach dem Unterprogamm-Aufruf & vbLf & _
        l_Zaehler :   & l_Zaehler & vbLf & _
        s_String  :   & s_String)
      
    End Sub
    
    Function Unterprogramm1(l_z As Long, s_s As String)
    
      MsgBox ( _
        Aufruf-Parameter im Unterprogamm & vbLf & _
        l_z :  & l_z & vbLf & _
        s_s :  & s_s)
        
     ->Parameter verändern
      l_z = l_z + 1
      s_s = s_s & xxxxxxxxxxxxxxx
      
      MsgBox ( _
        Parameter am Ende des Unterprogamms & vbLf & _
        l_z :  & l_z & vbLf & _
        s_s :  & s_s)
      
    End Function
     
Die Seite wird geladen...

Werte Rückgabe aus Unterprogrammen - Ähnliche Themen

Forum Datum
Shell in VB und Rückgabewerte Windows XP Forum 6. Sep. 2005
Excel Tabelle Werte zu ordnen Microsoft Office Suite 23. Sep. 2016
Lüftersteuerungsprogramme finden keine Werte/funktionieren nicht Windows 8 Forum 28. Juli 2015
Abspeichern von Registry Werten Windows XP Forum 25. Okt. 2011
Windows-Leistungsindex Werte Windows 7 Forum 9. Dez. 2010