Πρώτα Βήματα - Αρχές προγραμματισμού

Απ: For Each Controls

SotirisPap — Tue, 15 Apr 2008 23:17:33 GMT

Με μιά μικρή επέμβαση δούλεψε έτσι. Ευχαριστώ πολύ.
           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

Απ: For Each Controls

nullvoid — Tue, 15 Apr 2008 15:14:48 GMT

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

            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 Controls

SotirisPap — Tue, 15 Apr 2008 07:03:15 GMT

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

Απ: For Each Controls

Dimitris Papadimitriou — Tue, 15 Apr 2008 06:19:59 GMT

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

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

For Each Controls

SotirisPap — Tue, 15 Apr 2008 04:33:26 GMT

Μέσα σε ένα 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

Ευχαριστώ.