Μέσα σε ένα panel κάνω add κάποια άλλα panel στα οποία κάνω add από ένα ToolStrip και ένα DataGridView.Μέσα στα ToolStrip τοποθετώ μερικά ToolStripItem.Με την παρακάτω εντολή βρίσκω αυτό το ToolStripItem που θέλω, αλλά μου βγάζει λάθος εκεί που έχω On Error Resume Next (Λόγω του DataGridView) .Πως πρέπει να το χειριστώ ;

            For Each s As Control In pnl.Controls
                If TypeOf s Is System.Windows.Forms.Panel Then
                    On Error Resume Next
                    For Each ts As ToolStrip In s.Controls
                        If TypeOf ts Is System.Windows.Forms.ToolStrip Then
                            For Each tsi As System.Windows.Forms.ToolStripItem In ts.Items
                                If CStr(tsi.Tag) = "Χρησιμοποιείται_ΕμφάνισηΑπόκρυψηΚουτίΒ" Then

                                 End If
                            Next
                        End If
                    Next
                End If

Ευχαριστώ.

Κατ' αρχήν πρέπει να μας πεις πιο είναι το λάθος (exception) που βγαίνει.

Δεύτερον, η On Error Resume Next πρέπει να χρησιμοποιείτε στις εξής περιπτώσεις: ΠΟΤΕ! Οπότε οπωσδήποτε αφαίρεσέ την. Υπάρχει ακόμα για λόγους συμβατότητας.

---

Dimitris Papadimitriou Software Development Professional

Οι απαντήσεις παρέχονται για συγκεκριμένες ερωτήσεις και χωρίς καμιά εγγύηση. Διαβάστε επίσης τους όρους χρήσης.

Δεν είναι δυνατή η μετατροπή αντικειμένου τύπου 'System.Windows.Forms.DataGridView' σε αντικείμενο τύπου 'System.Windows.Forms.ToolStrip'.

Ένας τρόπος είναι αυτός:

            For Each s As Control In pnl.Controls
                If TypeOf s Is System.Windows.Forms.Panel Then
                   
                    For Each ts As Control In s.Controls
                        If TypeOf ts Is System.Windows.Forms.ToolStrip Then
                            For Each tsi As System.Windows.Forms.ToolStripItem In (ts As ToolStrip).Items
                                If CStr(tsi.Tag) = "Χρησιμοποιείται_ΕμφάνισηΑπόκρυψηΚουτίΒ" Then

                                 End If
                            Next
                        End If
                    Next
                End If

Με μιά μικρή επέμβαση δούλεψε έτσι. Ευχαριστώ  πολύ.
           For Each s As Control In pnl.Controls
                If TypeOf s Is System.Windows.Forms.Panel Then
                   
                    For Each ts As Control In s.Controls
                        If TypeOf ts Is System.Windows.Forms.ToolStrip Then
                            For Each tsi As System.Windows.Forms.ToolStripItem In CType(ts, ToolStrip).Items
                                If CStr(tsi.Tag) = "Χρησιμοποιείται_ΕμφάνισηΑπόκρυψηΚουτίΒ" Then

                                 End If
                            Next
                        End If
                    Next
                End If