VB6 Control Iteration: ein Control gibt mir einen Fehler; welches?

Question

Ich versuche, eine Schleife durch alle Steuerelemente in einem Formular zu ziehen: For Each ctrl in Me.Controls um das Steuerelement auf der Grundlage einiger Bedingungen zu aktivieren/deaktivieren. Aber es gibt ein Steuerelement im Formular, das einen Fehler auslöst, wenn ich versuche, darauf zuzugreifen. Was für ein Steuerelement ist das, und wie finde ich es?

Answer 1

Wenn Sie Ihren Fehler erhalten und auf Debuggen klicken, ist der Fehler in der Zeile, die die Eigenschaft Enabled eines Steuerelements festlegt?

Wenn ja, fügen Sie eine Debug.Print-Anweisung hinzu, die den Namen des Steuerelements ausgibt. Tun Sie dies in der Zeile vor der Einstellung der Eigenschaft Enabled.

Ich meine Folgendes:

Dim ctrl As Control
For Each ctrl In Me.Controls
    Debug.Print ctrl.Name
    ctrl.Enabled = True      
Next

Die Anweisung Debug.Print schreibt den Namen des Steuerelements, das zuletzt in der Schleife verarbeitet wurde, vermutlich das, das den Fehler verursacht hat, in das Immediate Window.

EDIT

Diese puede arbeiten. Setzen Sie dieses Steuerelement in ein Panel-Steuerelement und setzen Sie die Eigenschaft Enabled des Panels auf False. Wenn ich mich richtig erinnere, wird in VB6, wenn die Eigenschaft Enabled eines Container-Steuerelements auf False gesetzt wird, auch die untergeordneten Steuerelemente des Containers Enabled auf False gesetzt. Wenn die Enabled-Eigenschaft Ihres Steuerelements wirklich schreibgeschützt ist, bin ich neugierig, was passieren würde.

Answer 2

Versuchen Sie dies:

Dim ctr As Control
Dim CtrStatus Boolean

CtrStatus = False

For Each ctr In Me.Controls

  If (SSTab.hwnd = GetParent(ctr.hwnd)) Then
    Call CallByName(ctr, "Enabled", VbLet, CtrStatus)
  else
    ctr.Enabled = CtrStatus
  End If

Next

Answer 3

Ein anderer Ansatz, der auch zur Laufzeit funktioniert (und nicht nur in der IDE), ist der folgende:

private sub SetEnabled()
  on error goto errHandle

  Dim ctrl As Control
  For Each ctrl In Me.Controls
    ctrl.Enabled = True      
  Next

  exitPoint:
    exit sub
  errHandle:
    MsgBox "Error " & err.Description & " with Control " & ctrl.Name
    resume exitPoint
end sub

Answer 4

Tosa: aus Ihrem Kommentar zu AngryHacker's Antwort Ich glaube, Sie prüfen den Container falsch.

Ihr Code sieht folgendermaßen aus

 ' BAD CODE '
 If ctrl.Container = fraMovies Then

Bei mir ergibt das den Fehler 450 Wrong number of arguments or invalid property assignment . Erhalten Sie denselben Fehler?

Der Code sollte Folgendes verwenden Is statt = wie diese

 ' GOOD CODE '
 If ctrl.Container Is fraMovies Then

Erläuterung. Sie möchten prüfen, ob zwei Variablen auf dasselbe Steuerelement "zeigen". Steuerelemente sind Objekte: müssen Sie Is no = um zu prüfen, ob zwei Objektvariablen auf dasselbe Objekt "zeigen". Dies ist ein klassischer Fallstrick in VB6.

Ein letztes Wort. Könnten Sie das nächste Mal versuchen, 10 Zeilen oder weniger des tatsächlichen Codes zu posten, der den Fehler reproduziert, und die genaue Fehlernummer und -meldung sowie die genaue Zeile, in der er auftritt, angeben? Das macht es für uns viel einfacher, Ihr Problem zu lösen - ich weiß, dass es für Sie Arbeit ist, den Code zu kürzen, aber so bekommen Sie bessere Antworten.

EDIT Willkommen zurück! :) Sie sagten, einige Steuerelemente haben keine Container-Eigenschaft. Sie könnten versuchen, den Test in On Error Resume Next in etwa so.

 ' GOOD CODE '
 Dim bMatch As Boolean  
 Dim ctrl As Control 
 For Each ctrl In Me.Controls 
   bMatch = False  
   On Error Resume Next  
   bMatch = (ctrl.Container Is fraMovies)  
   On Error Goto 0 
   If bMatch Then  
     ctrl.Enabled = True       
   End If
 Next

Answer 5

Unterdrücken Sie die Fehlermeldungen vor der Schleife und schalten Sie dann auf die Standardfehlerbehandlung zurück:

On Error Resume Next
 For Each ctrl In Me.Controls
      ctrl.Enabled = lIsEnabled
 Next
 On Error GoTo 0

ODER benennen Sie Ihre Steuerelemente mit einem Standard-Präfix/Suffix, das Sie nach Namen prüfen und in der Schleife überspringen können.

For Each ctrl In Me.Controls
      If Left(ctrl.Name, 3) = "sst" Then
           ctrl.Enabled = lIsEnabled
      End If
 Next