Array als Argument in einem Verfahren VB6 vs vb.net

Question

Hier ist es ein Verfahren, in VB6 ist und es funktioniert gut, wie das Beispiel enthalten:

‚Check_UnCheck

‘ überprüfen eine Reihe von einigen Kontrollkästchen, deaktivieren ein Array von weiteren Ankreuzfelder

'Anwendungsbeispiel:

CheckBox.Check_UnCheck Array(chkCheck3, chkCheck5), Array(chkCheck1, chkCheck4) 


Public Sub Check_UnCheck(ByRef CheckArray As Variant, ByRef UnCheckArray As Variant) 

    Dim i As Integer 
    Dim conControl As Control 

    For i = LBound(CheckArray) To UBound(CheckArray) 
     Set conControl = CheckArray(i) 
     conControl.Value = 1 
    Next 

    For i = LBound(UnCheckArray) To UBound(UnCheckArray) 
     Set conControl = UnCheckArray(i) 
     conControl.Value = 0 
    Next 

End Sub 

was das Äquivalent in vb.net für das obige Verfahren ist, sagt die MSDN Dokumentation:

• Wir können nicht mehr als ein Parameter-Array in einer Prozedur, verwenden und es muss das letzte Argument in der Prozedurdefinition sein.

Answer 1

Versuchen Sie den folgenden Code.

Suchen Sie in Kommentare für eine detaillierte Beschreibung.

'DECLARE YOUR ARRAYS. 
Dim array1 = New CheckBox() {CheckBox3, CheckBox5} 
Dim array2 = New CheckBox() {CheckBox1, CheckBox4} 

'CALL CHECK AND UNCHECK FUNCTION. 
Check_UnCheck(array1, array2) 


'YOUR FUNCTION DEFINITION. 
Public Sub Check_UnCheck(ByRef CheckArray As CheckBox(), ByRef UnCheckArray As CheckBox()) 

    'LOOP FIRST ARRAY AND CHECK THEM. 
    For index = 0 To CheckArray.GetUpperBound(0) 
     CheckArray(index).Checked = True 
    Next 

    'LOOP SECOND ARRAY AND UNCHECK THEM. 
    For index = 0 To UnCheckArray.GetUpperBound(0) 
     UnCheckArray(index).Checked = False 
    Next 

End Sub 

Answer 2

Zuerst verwirren Sie "Parameter-Array" mit einer Reihe von Steuerelementen, sie sind nicht das Gleiche. Ein Parameter-Array ist, wenn eine Methode eine variable Anzahl von Parametern (alle vom gleichen Typ) akzeptiert, der Compiler diese dann zu einem Array bündelt und diese an die Methode weiterleitet. Dazu muss die Methode das Schlüsselwort ParamArray verwenden.

VB.net hat keine contol-Arrays in dem Sinne, dass vb6 tat, aber das ist nicht, was Sie Beispiel verwenden. Ihr Beispiel verwendet ein einfaches Array von Steuerelementen. Nebenbei, Ihr Beispiel verwendet ByRef, das der Standard in VB6 war, aber es ist in diesem Fall für VB6 und VB.net nicht notwendig. Da die Verwendung in VB.net nicht mehr standardmäßig ist, ist die unnötige Verwendung irreführend.

Sie übergeben zwei Arrays, das zweite könnte ein ParamArray sein, aber das hat wenig Sinn.

Die grundlegende und minimale Änderung, um Ihren Code zur Arbeit zu bringen, ist einfach, ändern Sie die "Variante" in "CheckBox()". Aber das würde ich nicht empfehlen. Es gibt noch ein paar kleinere Änderungen, die es flexibler und lesbarer machen. ein Verfahren Check_UnCheck({chkCheck3, chkCheck}, {chkCheck1, chkCheck4})