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

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

AlKiS — Sun, 04 Mar 2012 06:28:35 GMT

Ναι, του είπα και αυτού ευχαριστώ :)

Αλλά και εσύ με έχεις βοηθήσει οπότε δεν μπορούσα να σε αφήσω απέξω.

Έχω πάει να διαβάσω κάποια βιβλιά, αλλά όλα όσα βρήκα ήταν βλακείες!

Έμεναν μόνο σε βασικά πράγματα (τα κύρια είδη μεταβλητών, τι έχει μια φόρμα πάνω και τέτοια..)

Ίσως στην πορεία βρω κάποιο βιβλίο που πραγματικά να αξίζει.

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

Markos — Sun, 04 Mar 2012 06:15:47 GMT

Όλη τη δουλειά την έκανε ο Νίκος! Όσον αφορά τις απορίες που έχεις, είναι και πολλές και σημαντικού περιεχομένου. Θα σε συμβούλευα να ξεκινήσεις από ένα βιβλίο για VB.NET, από αυτά τα ογκώδη! Που καταπιάνονται και με τη γλώσσα, αλλά και με το framework. Θα είναι ο θεμέλιος λίθος για να προχωρήσεις. Δυστυχώς, δε μπορώ να σου προτείνω κάποιο γιατί γράφω σε C#.

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

AlKiS — Sat, 03 Mar 2012 17:56:45 GMT

Markos:
Δοκίμασε: If item.FieldType Is GetType(Label) Then

Ερώτηση: Έχεις controls που προσθέτεις ή αφαιρείς δυναμικά στις φόρμες; Αν ναι πρέπει να ενημερώνεις τα collections...

Πω.. βλέποντας την απάντηση νιώθω χαζός. Έπρεπε να το είχα σκεφτεί αυτό.

Όχι δεν προσθέτω δυναμικά τίποτα...

Και αυτό μου γεννάει ακόμα μια ερώτηση.. μπορώ απο κει που ΔΕΝ υπάρχει κάποιο control, έτσι ξαφνικά να το εμφανίσω εγώ???

Τέλος, τι είναι το dictionary...??? είναι κάτι σαν το List(of T) με άλλο όνομα???

αρχίζω να τρομάζω για το πόσα ήδη μεταβλητών δεν έχω ακούσει καν ακόμα... πως θα γίνει να μάθω όλους του τύπους έτσι ώστε να μπορώ να χρησιμοποιήσω τον σωστό στην εκάστοτε περίπτωση?

(καλά άμα συνεχίσω να κάνω ποστ εδώ για τα προβλήματά που συναντώ, θα τους μάθω όλους :Ρ σε κάθε απάντηση βλέπω κιάλλα πράγματα που δεν έχω ξαναδεί, αλλά δε θέλω να σας πρήζω κάθε τρις και λίγο)

Edit:

Δεν ξέρω επίσης τους εξής τύπους που χρησιμοποίησες:

FieldInfo

BindingFlags

και δεν ξέρω και το Assembly Το οποίο είναι περίεργο...

Αλλά ψάχνοντάς του είδα πράγματα του τύπου Assembly.GetExecutingAssembly().LoadModule()

Έχουμε τη δυνατότητα δηλαδή να φορτώσουμε κώδικα στο πρόγραμμα ενώ αυτό τρέχει? και απο εξωτερικό αρχείο???

Αυτό θα μπορούσε να φανεί χρήσιμο βασικά...

και τέλος, τι χρειάζεται το "Dim k = GetType(Control)" πάνω απο το "Εnd If" ?? Δεν βλέπω να παίζει κάποιο ρόλο οπότε το έκανα comment.

/Edit

Μάρκο σε ευχαριστώ πολύ για την βοήθειά σου

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

Markos — Sat, 03 Mar 2012 09:10:12 GMT

Δοκίμασε: If item.FieldType Is GetType(Label) Then

Ερώτηση: Έχεις controls που προσθέτεις ή αφαιρείς δυναμικά στις φόρμες; Αν ναι πρέπει να ενημερώνεις τα collections...

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

AlKiS — Sat, 03 Mar 2012 08:20:02 GMT

χαχα. Το ίδιο κι εγώ (για C#) :Ρ

Δυστυχώς όμως δεν δουλεύει αυτό στη vb

δοκίμασα μεταξύ άλλων τα εξής:

1	If TypeOf (item.FieldType.GetType) Is Label Then

Error 1 Expression of type 'System.Type' can never be of type 'System.Windows.Forms.Label'.

1	If item.FieldType = TypeOf(Label) Then

Error 1 'Label' is a type and cannot be used as an expression.
Error 2 'Is' expected.

1	If item.FieldType is TypeOf(Label) Then

Error 1 'Label' is a type and cannot be used as an expression.
Error 2 'Is' expected.

1	If item.FieldType.IsEquivalentTo(TypeOf(Label)) Then

Error 1 'Label' is a type and cannot be used as an expression.
Error 2 'Is' expected.

και άλλα δοκίμασα όμως δε φαίνεται να το δέχεται..

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

nikos123 — Sat, 03 Mar 2012 08:03:20 GMT

Διότι δεν είναι SubClass.

 if(item.FieldType == typeof(Label) || item.FieldType == typeof(Button))

Θα μάθω vb σε λίγο .

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

AlKiS — Sat, 03 Mar 2012 07:54:40 GMT

xa0ax0xa0 απίστευτο :Ρ

Σόρρυ ε. απλώς έχει γίνει το κεφάλι μου καζάνι απο το πρωί και δεν πήρα καν γραμμή ότι αυτό ήταν το όνομα της μεταβλητής.. Νόμιζα ότι είναι της visula basic κάτι.

Ευχαριστώ πολύ ! δουλεύει μια χαρά. Το έβαλα και σαν επιλυμένο :)

Αν μπορείς να με βοηθήσεις και σε κάτι τελευταίο θάταν τέλεια. αν δεν έχεις χρόνο δεν πειράζει.

Θέλω να κάνω έναν έλεγχο για το αν είναι συγκεκριμένο control type. (θέλω να μπαίνουν τα button, label, groupbox και splitseparators μόνο).

Συνήθως ελέγχο με το "If TypeOf ΌνομαΜεταβλητής Is ΤύποςControl Then". Όμως εδώ έχεις χρησιμοποιήσει ένα δύσκολο κώδικα. Για παράδειγμα το "Dictionary" το βλέπω πρώτη φορά στη ζωή μου... (σα τύπο μεταβλητής, όχι σα λεξικό :Ρ )

Πήγα να γράψω:

1	If item.FieldType.IsSubclassOf(GetType(Button)) Or item.FieldType.IsSubclassOf(GetType(Label)) Or .... Then

Αλλά δεν βγάζει τίποτα μετά.

Άρα σκέφτομαι ότι μέσα στο "If item.FieldType.IsSubclassOf(GetType(Control)) Then" , πρέπει να βάλω άλλο ένα If που να ελέγχο το καθένα που πέρασε (και άρα ήταν "control" έχει και TypeOf κουμπιού ή οτιδήποτε χρειαστώ.

και λογικά θα πρέπει να χρησιμοποιήσω ένα DirectCast κάπου μέσα στο Dictionary... αλλά δεν μου έρχεται καμιά ολοκληρωμένη ιδεά..

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

nikos123 — Sat, 03 Mar 2012 07:29:34 GMT

Το Dictionary δήλωσε το έξω από τη συνάρτηση που το γεμίζεις για να έχει εμβέλεια σε όλες .

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

AlKiS — Sat, 03 Mar 2012 07:21:38 GMT

Σχεδόν δουλεύει!

το πρώτο δουλεύει τέλεια:

            Dim formAndControls As New Dictionary(Of String, List(Of String))()

            For Each frmtype As Type In Assembly.GetExecutingAssembly().GetTypes()
                If frmtype.IsSubclassOf(GetType(Form)) Then
                    cbSelForms.Items.Add(frmtype.Name)
                    formAndControls(frmtype.Name) = New List(Of String)()
                    Dim members As FieldInfo() = frmtype.GetFields(BindingFlags.NonPublic Or BindingFlags.Instance)
                    For Each item As FieldInfo In members
                        If item.FieldType.IsSubclassOf(GetType(Control)) Then
                            formAndControls(frmtype.Name).Add(item.Name)
                        End If
                    Next

                    Dim k = GetType(Control)
                End If
            Next

Απλώς στο δεύτερο έχουμε ένα πρόβλημα, δεν υπάρχει το "formAndControls"

    Private Sub cbSelForms_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbSelForms.SelectedIndexChanged
        cbSelControls.Items.Clear()
        cbSelControls.Items.AddRange(--->formAndControls<---(cbSelForms.Text).ToArray())
    End Sub

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

nikos123 — Sat, 03 Mar 2012 06:52:29 GMT

Προσθεσε τα όλα σε ενα Dictionary.

 Dictionary<string, List<string>> formAndControls = new Dictionary<string, List<string>>();

            foreach(Type frmtype in Assembly.GetExecutingAssembly().GetTypes())
            {
                if(frmtype.IsSubclassOf(typeof(Form)))
                {
                     cmbFrm.Items.Add(frmtype.Name);
                    formAndControls[frmtype.Name] = new List<string>();
                    FieldInfo[] members = frmtype.GetFields(BindingFlags.NonPublic | BindingFlags.Instance);
                    foreach(FieldInfo item in members)
                    {
                        if(item.FieldType.IsSubclassOf(typeof(Control)))
                            formAndControls[frmtype.Name].Add(item.Name);
                    }

                    var k = typeof(Control);
                }
            }

Μετά στο SelectedIndex της cmbForm

           cmbControls.Items.Clear();
           cmbControls.Items.AddRange(formAndControls[cmbFrm.Text].ToArray());

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

AlKiS — Sat, 03 Mar 2012 06:32:25 GMT

Οκ, τώρα κάτι γίνεται.

Το θέμα είναι ότι θέλω στο πρώτο combobox να έχει όλες τις φόρμες, και στο δεύτερο να εμφανίζονται τα control της φόρμας που διάλεξε ο χρήστης από το πρώτο combobox.

γιαυτό θέλω να αποθηκεύω τις φόρμες σα reference σε μια μεταβλητή array.

Έτσι ώστε μετά να μπορώ να γράψω:

    Public Sub Όνομα(ByVal frm As Form)

        With frm

                    For Each MainCtrl As Control In .Controls
                        If TypeOf MainCtrl Is ............

                        ElseIf TypeOf MainCtrl Is ............

και τα λοιπά..

το οποίο δεν έχω πρόβλημα στο να γράψω.

Άλλαξα λίγο τον κώδικά σου για να μπορέσω να τον προσαρμόσω σε αυτό που θέλω, αλλά δεν τα κατάφερα.

Έκανα να βάζει τα ονόματα απο τις φόρμες στο πρώτο combobox αλλά χρειάζομαι να μπαίνουν οι φόρμες σαν φόρμες μέσα μια μεταβλητή array για να τις καλώ μετά με index το ComboBox.SelectedIndex

            For Each frmtype As Type In Assembly.GetExecutingAssembly.GetTypes
                If frmtype.IsSubclassOf(GetType(Form)) Then
                    Count += 1
                    ReDim Preserve Forms(Count)
                    Forms(Count) = --->frmtype<---
                    cbSelForms.Items.Add(frmtype.Name)

                    Dim members() As FieldInfo = frmtype.GetFields((BindingFlags.NonPublic Or BindingFlags.Instance))
                    For Each item As FieldInfo In members
                        If item.FieldType.IsSubclassOf(GetType(Control)) Then
                            'cbSelForms.Items.Add(item.Name)
                        End If
                    Next

                End If
            Next

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

nikos123 — Sat, 03 Mar 2012 06:17:29 GMT

Χωρίς var και με έλεγχο για Control μόνο.

            foreach(Type frmtype in Assembly.GetExecutingAssembly().GetTypes())
            {
                if(frmtype.IsSubclassOf(typeof(Form)))
                {
                    Console.WriteLine(frmtype.Name);
                    FieldInfo[] members = frmtype.GetFields(BindingFlags.NonPublic | BindingFlags.Instance);
                    foreach(FieldInfo item in members)
                    {
                        if(item.FieldType.IsSubclassOf(typeof(Control)))
                            Console.WriteLine("                " + item.Name);
                    }
                }
            }

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

AlKiS — Sat, 03 Mar 2012 06:13:08 GMT

Markos:
Θες να κάνεις όλα αυτά χωρίς να κάνεις instantiate τις φόρμες;

Όχι, θέλω να τα κάνω με όποιον τρόπο γίνεται. είμαι ανοιχτός σε κάθε ιδέα.

nikos123:
Μου βγάζει πρόβλημα στο "as var".
Δοκίμασα να το αλλάξω σε Object αλλά μου έβγαλε άλλο πρόβλημα (Option Strict On dissallows late binding)..
δεν δουλεύει..

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

nikos123 — Sat, 03 Mar 2012 06:02:46 GMT

            foreach(var frmtype in Assembly.GetExecutingAssembly().GetTypes())
            {
                if(frmtype.IsSubclassOf(typeof(System.Windows.Forms.Control)))
                {
                    Console.WriteLine(frmtype.Name);
                    var members = frmtype.GetFields(BindingFlags.NonPublic | BindingFlags.Public | BindingFlags.Instance);
                    foreach(var item in members)
                    {
                        Console.WriteLine("                " + item.Name);
                    }
                }
            }

Απ: Πως βλέπω όλες τις φόρμες που έχει το πρόγραμμά μου (σα φόρμες)?

Markos — Sat, 03 Mar 2012 05:44:26 GMT

Θες να κάνεις όλα αυτά χωρίς να κάνεις instantiate τις φόρμες;