fg viperbone

fg viperbone

Public Sub MyFunc(ByVal para1 As Integer, ByVal para2 As Integer, ByRef out1 As _
  Integer, ByRef out2 As Integer)
   out1 = para1 + para2
   out2 = para1 - para2
End Sub

Ralf

    Function Find(ByVal Searchtext As String, ByRef Spalte As Integer) As _
      Integer
    ' den ersten wert gebe ich mit
    return 10
 
    Spalte = 2
    End Function

fg viperbone

Dim spalte As Integer
Dim result As Integer = Find("searchpattern", spalte)

Ralf

fg viperbone

fg viperbone

Private Function suche(ByVal sstring As String) As Integer()
        Dim ar(1) As Integer
        ar(0) = 1
        ar(1) = 2
        Return ar
    End Function

Ralf

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

fg viperbone

    Public Structure ItemLocation
        Public Zeile As Integer
        Public Spalte As Integer
        Public Sub New(ByVal Zeile As Integer, ByVal Spalte As Integer)
            Me.Zeile = Zeile
            Me.Spalte = Spalte
        End Sub
    End Structure

    Public Function FindLocation(irgendwelche Parameter) As ItemLocation
 
        '....
        Return New ItemLocation(13, 21031946)
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

fg viperbone

   Dim Spalte As Integer = Find(ToolStriptxtSuche.Text).Spalte
   Dim Zeile As Integer = Find(ToolStriptxtSuche.Text).Zeile

fg viperbone

    Dim loc As ItemLocation = Find(ToolStriptxtSuche.Text)

   Dim Spalte As Integer = loc.Spalte
   Dim Zeile As Integer = loc.Zeile

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

fg viperbone

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

fg viperbone