WinForms

Απ: Παραμετρικό άνοιγμα φόρμας

gmlogic — Wed, 11 Oct 2006 19:19:31 GMT

Σας ευχαριστώ θα τα κοιτάξω

Απ: Παραμετρικό άνοιγμα φόρμας

Νατάσα Μανουσοπούλου — Thu, 05 Oct 2006 06:49:28 GMT

Από μια σύντομη διερεύνηση που έκανα, κατέληξα σε ένα καλό και ένα απογοητευτικό συμπέρασμα:

Αν διατηρήσεις το custom control σου μέσα στην ίδια assembly με τις φόρμες που θα το χρησιμοποιήσουν, τότε είναι απλούστατο να απαριθμήσεις τις διαθέσιμες κλάσεις. Απλά μέσα στην EditValue του UITypeEditor-derived που θα φτιάξεις, θα πάρεις όλες τις κλάσεις με την Assembly.GetExecutingAssembly().GetTypes() και θα επιλέξεις αυτές που κληρονομούν από την Form ή το UserControl.
Αν βάλεις το custom control σε μια assembly την οποία κάνεις reference αλλού, τότε... έχασες. Η assembly που περιέχει τους τύπους των φορμών δεν είναι καν φορτωμένη (εκτός κι αν περιέχει με τη σειρά της custom ή user controls) για να απαριθμήσεις τις φόρμες που περιέχει. Μπορείς μόνο να αφήσεις το χρήστη σου να γράψει το όνομα της κλάσης με το χέρι, αλλά αυτό δεν είναι και το καλύτερο.

Πιθανώς σκαλίζοντας μέσα στα άδυτα του Visual Studio να μπορεί κανείς να βρει μια λύση, η οποία βέβαια θα είναι VS-specific και δε θα δουλεύει για άλλα περιβάλλοντα design.

Απ: Παραμετρικό άνοιγμα φόρμας

elam — Thu, 05 Oct 2006 03:05:58 GMT

-Έστω και καθυστερημένα- gmlogic έχεις δίκιο, το control με enums θα πρέπει να γίνει για συγκεκριμένη εφαρμογή και μόνο.

Μια άλλη ιδέα, για control ... κάθε περίπτωσης, θα ήταν να βάλεις την εφαρμογή να του περνάει τους τύπους από κάθε φόρμα σε Collection (π.χ. HashTable)...

    Dim ht As New System.Collections.Hashtable
    ht("F1") = GetType(Form1)
    ht("F2") = GetType(Form2)
    ht("F3") = GetType(Form3)

...και μετά στο control θα μπορείς να δημιουργείς την εκάστοτε φόρμα (π.χ. από το κλειδί του HashTable)

    Dim f As Form
    f = Activator.CreateInstance(ht("F2"))
    f.Show()

Αν όμως φτιαχτεί ένα control κατά τα παραπάνω, που να παίζει και με designer, τότε ...
...δεν θέλεις τίποτε άλλο!

Απ: Παραμετρικό άνοιγμα φόρμας

KelMan — Thu, 05 Oct 2006 01:14:05 GMT

Χμμμμ... ευτυχώς που ο PM σου δεν διαβάζει DNZ

Απ: Παραμετρικό άνοιγμα φόρμας

cap — Thu, 05 Oct 2006 01:03:22 GMT

Πω...και έλεγα τι είχα ξεχάσει να δοκιμάσω τόσο καιρό...τι είχα ξεχάσει...:)

Απ: Παραμετρικό άνοιγμα φόρμας

Νατάσα Μανουσοπούλου — Thu, 05 Oct 2006 00:47:14 GMT

Θα σου δώσω το σκελετό μιας λύσης, και μπορείς να το δεις και μόνος σου λιγάκι, με τη βοήθειά μας:

Το control θα πρέπει να έχει ένα property το οποίο θα δίνει πλήρες type information για την κλάση που πρέπει να φορτώσεις, δηλαδή qualified assembly name στη μορφή "System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" και full namespace της κλάσης.
Αν περιορίσεις τις κλάσεις της φόρμας σε αυτές που υπάρχουν στο ίδιο assembly με το instance του custom control, τότε δε χρειάζεσαι το assembly name.

Το property αυτό θέλει ένα δικό του UITypeEditor, ο οποίος θα εμφανίζει μια λίστα με τα ονόματα των κλάσεων μέσα στην assembly οι οποίες έχουν για πρόγονο την System.Windows.Forms.Form.

Για το πώς θα φτιάξεις τον UITypeEditor μπορείς να ρίξεις μια ματιά στο άρθρο αυτό, το οποίο θα σου δώσει αρκετές κατευθύνσεις. Όσο για το πώς θα βρεις σε design time τις κλάσεις μέσα στην assembly που δουλεύεις, είχαμε κάνει μια συζήτηση εδώ αλλά δεν είχαμε καταλήξει. Ευκαιρία να το ξαναδούμε.

Απ: Παραμετρικό άνοιγμα φόρμας

gmlogic — Wed, 04 Oct 2006 21:26:30 GMT

Βαγγέλη

Όμως με αυτόν τον τρόπο ειναι υποχρεωμένος κάθε φορά που προσθετη μία φόρμα να γυρίζη στο control και να προσθέτη την φόρμα

Απ: Παραμετρικό άνοιγμα φόρμας

gmlogic — Wed, 04 Oct 2006 21:03:36 GMT

Νατάσα

Αυτό ακριβώς θέλω να κάνω :)

Απ: Παραμετρικό άνοιγμα φόρμας

Νατάσα Μανουσοπούλου — Wed, 04 Oct 2006 19:44:51 GMT

gmlogic wrote:
Έχω φτιάξη ένα custom control GmDgLookUp (ένα ευρετήριο για όλες τις δουλειές,ανάλογα το select φέρνει σε ένα datagridview τα fields ,μάλιστα θέλω και να το δημοσιεύσω γιατι με τη δικιά σας βοήθεια έγινε :) μήπως διευκολυνθούν και άλλοι φίλοι )
Θέλω λοιπόν όταν περνάω σαν property το όνομα της φόρμας στο GmDgLookUp
με κάποιο event του GmDgLookUp πχ button_click να μου μου ανοίγη ανάλογη φόρμα για add,edit του record.

δηλ

GmDgLookUp.NameForm="Form1"

GmDgLookUp.NameForm ...... show()

Αν θέλεις η επιλογή της φόρμας να γίνεται σε design time από τον προγραμματιστή όταν βάζει το control σου πάνω στη φόρμα του, τότε πρέπει να κάνεις λίγο πιο προχωρημένα πράγματα. Με κάποιο τρόπο ο προγραμματιστής θα πρέπει να δει μια λίστα με όλες τις διαθέσιμες φόρμες (όσες υπάρχουν στο project στο οποίο δουλεύει) και να επιλέγει αυτήν που θέλει. Στη συνέχεια εσύ θα πρέπει να δημιουργείς τη φόρμα με τον System.Activator, π.χ.:

Form newForm = Activator.CreateInstance(
"System.Windows.Forms, Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089",
"System.Windows.Forms.Form");

Θέλεις να κάνεις κάτι τέτοιο; Αν ναι, πες μας να σε βοηθήσουμε με τα παρακάτω (designers κλπ).

Απ: Παραμετρικό άνοιγμα φόρμας

gmlogic — Wed, 04 Oct 2006 19:22:27 GMT

Οκ έδωσα

msForm.ShowDialog()

και δουλεύει

Απ: Παραμετρικό άνοιγμα φόρμας

elam — Wed, 04 Oct 2006 19:20:18 GMT

Μια άλλη λύση είναι να χρησιμοποιήσεις ένα enum με τις φόρμες, π.χ.

    Enum forms
        form1
        form2
        form3
    End Enum

και να βάλεις αυτό σαν Property

Έπειτα, με ένα Case δημιουργείς επί τόπου τη φόρμα και την παρουσιάζεις,
κάπως έτσι:

        Dim form As Form
        Dim a As forms   'Αυτό είναι το enum
        a = forms.form2 'που ήδη έχεις πάρει από την property
        form = Nothing
        Select Case a
            Case forms.form1
                form = New Form1
            Case forms.form2
                form = New Form2
            Case forms.form3
                form = New Form3
        End Select
        If form IsNot Nothing Then
            form.Show()
        End If

Απ: Παραμετρικό άνοιγμα φόρμας

gmlogic — Wed, 04 Oct 2006 18:34:45 GMT

Λοιπόν έχουμε

GmDgLookUp1.GmForm = Form2

........

Public Class GmDgLookUp

Private msForm As Form

Public WriteOnly Property GmForm() As Form

Set(ByVal value As Form)

msForm = value

End Set

End Property

Private Sub test_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles test.Click

msForm.Show()

End Sub

End Class

Όταν πατάω test_Click τη πρώτη φορά ανοίγη μια χαρά.

Όταν ξαναδώσω δεύτερη φορά test_Click πέρνω

Cannot access a disposed object.

Object name: 'Form2'.

Απ: Παραμετρικό άνοιγμα φόρμας

infoCENTER — Wed, 04 Oct 2006 17:57:03 GMT

Θα μπορούσες να χρησιμοποιήσεις ένα interface όπου το custom control θα κάνει implement. Κοίταξε το και προς αυτή την κατεύθυνση, μπορεί να είναι αυτό που ζητάς.

Απ: Παραμετρικό άνοιγμα φόρμας

KelMan — Wed, 04 Oct 2006 17:55:20 GMT

Τότε καλύτερα να βάλεις ως property του control όχι το όνομα της φόρμας αλλά την ίδια τη φόρμα. Έτσι, θα μπορείς να πει κάτι σαν:

GmDgLookUp.Form=Form1

GmDgLookUp.Form.Show()

Απ: Παραμετρικό άνοιγμα φόρμας

gmlogic — Wed, 04 Oct 2006 17:37:29 GMT

Αγαπητέ Παναγιώτη,ευχαριστώ (μόνο αν σου είναι εύκολο σε παρακαλώ να μου γράφης σε VB)

Λοιπόν να κάνω ποιό συγκεκριμένη λίγο τη ερώτηση.

Έχω φτιάξη ένα custom control GmDgLookUp (ένα ευρετήριο για όλες τις δουλειές,ανάλογα το select φέρνει σε ένα datagridview τα fields ,μάλιστα θέλω και να το δημοσιεύσω γιατι με τη δικιά σας βοήθεια έγινε :) μήπως διευκολυνθούν και άλλοι φίλοι )

Θέλω λοιπόν όταν περνάω σαν property το όνομα της φόρμας στο GmDgLookUp

με κάποιο event του GmDgLookUp πχ button_click να μου μου ανοίγη ανάλογη φόρμα για add,edit του record.

δηλ

GmDgLookUp.NameForm="Form1"

GmDgLookUp.NameForm ...... show()

Γ.ΜΑΤΖΟΥΡΑΝΗΣ

ΥΓ

Πως μπορώ να δημοσιεύσω το Solution με το custom control