mmpompodakis Δημοσ. 16 Μαΐου 2005 Δημοσ. 16 Μαΐου 2005 Καλημέρα παιδιά. Έχω δοκιμάσει να περάσω σε συνάρτηση, σαν όρισμα, μια φόρμα αλλά δυστυχώς "χτυπάει". Η δήλωση της συνάρτησης είναι : Public Function MyFunction ( MyForm as Form) . . . . End Function Και την καλώ : MyFunction (Me) ή με το εκάστοτε όνομα της φόρμας. Ξέρει κανένας τι κάνω λάθος; Ευχαριστώ.
leukonas Δημοσ. 17 Μαΐου 2005 Δημοσ. 17 Μαΐου 2005 Gia ti akribos theleis na peraseis tin forma san orisma sinartisis?????Pou sou xtisimeyei???
mmpompodakis Δημοσ. 17 Μαΐου 2005 Μέλος Δημοσ. 17 Μαΐου 2005 Gia ti akribos theleis na peraseis tin forma san orisma sinartisis?????Pou sou xtisimeyei??? Έχω ένα combobox σε πολλές φόρμες, το οποίο θέλω να το γεμίζω σε τιμές ( κοινές προφανώς σε όλες τις φόρμες ) απο μια βάση. Απλά η σύνταξη φανταζόμουν ότι θα ήταν κάπως έτσι ( το οποίο δεν δουλεύει ): Public Function MyFunction ( MyForm as Form) MyForm.MyCommonComponent.AddItem "mpla mpla" End Function Τώρα, έχω επιχειρήσει να περάσω και σκέτο το combobox σαν όρισμα, αλλά και πάλι δεν δούλεψε. Η δήλωση ήταν : Public Function MyFunction ( MyControl as ComboBox) MyControl.AddIten End Function και την καλούσα σαν : MyFunction(cmbMyValues) Κάνω κάτι λάθως στην σύνταξη ή δεν υποστηρίζεται από την vb αυτό;
leukonas Δημοσ. 17 Μαΐου 2005 Δημοσ. 17 Μαΐου 2005 Den xreiazete na oriseis tin forma san orisma tis sinartiseis.apla grafeis onomaformas.onomaantikeimenou.leitourgia klp klp Tin function grapstin se ena module oste na tin kaleis apo kathe forma sou.
mmpompodakis Δημοσ. 17 Μαΐου 2005 Μέλος Δημοσ. 17 Μαΐου 2005 Den xreiazete na oriseis tin forma san orisma tis sinartiseis.apla grafeisonomaformas.onomaantikeimenou.leitourgia klp klp Tin function grapstin se ena module oste na tin kaleis apo kathe forma sou. Το πρόβλημα μου είναι ότι : 1. την συνάρτηση αυτήν την καλώ αρκετές φορές μέσα απο όλο το πρόγραμμα σε διαφορετικές φόρμες κάθε φορά και μέσα σε αυτή την συνάρτηση χρησιμοποιώ το component. 2. Αν κάνω αυτό που λες ( που είναι αυτό που κάνω τώρα ) , απλά γεμίζω ένα module με την ίδια συνάρτηση σε έκδοση copy paste και το μόνο που αλλάζει είναι το FormName. Αυτό είναι αυτό που προσπαθώ ν' αποφύγω.
leukonas Δημοσ. 17 Μαΐου 2005 Δημοσ. 17 Μαΐου 2005 Dokimase anti gia onoma formas sto module na baleis me. dld anti gia onomaformas.onomacomponent..... me.onomacxomponent.... isos doulepsei etsi.
UserXP Δημοσ. 18 Μαΐου 2005 Δημοσ. 18 Μαΐου 2005 Όταν καλείς την function αφαίρεσε τις παρενθέσεις, δηλ. MyFunction Me ή χρησιμοποίησε την Call MyFunction (Me)
mmpompodakis Δημοσ. 24 Μαΐου 2005 Μέλος Δημοσ. 24 Μαΐου 2005 Dokimase anti gia onoma formas sto module na baleis me.dld anti gia onomaformas.onomacomponent..... me.onomacxomponent.... isos doulepsei etsi. Μα το me είναι μια σταθερά που δηλώνει την φόρμα που δουλεύεις κάθε φορά' date=' ενώ εγώ την συνάρτηση την εκτελώ σε module. Άρα δεν κάνει, ευχαριστώ πάντως. Όταν καλείς την function αφαίρεσε τις παρενθέσεις, δηλ.MyFunction Me ή χρησιμοποίησε την Call MyFunction (Me) To έχω δοκιμάσει, αλλά αυτό είναι που είπα και στο πρώτο post,δεν μπορεί να πάρει σαν όρισμα μια συνάρτηση. Σε ευχαριστώ και εσένα. Ίσως αν κάποιος έχει κάνει κάτι παρόμοιο να μπορέσει να δώσει λύσει σε αυτό το topic..
UserXP Δημοσ. 25 Μαΐου 2005 Δημοσ. 25 Μαΐου 2005 Το πρόβλημα είναι συντακτικό (χρησιμοποιείς παρενθέσεις στην κλήση της function). Απλά αφαίρεσέ τις παρενθέσεις Private Sub Command1_Click() MyFunction Me End Sub
mmpompodakis Δημοσ. 25 Μαΐου 2005 Μέλος Δημοσ. 25 Μαΐου 2005 Το πρόβλημα είναι συντακτικό (χρησιμοποιείς παρενθέσεις στην κλήση της function). Απλά αφαίρεσέ τις παρενθέσεις Private Sub Command1_Click() MyFunction Me End Sub Αυτό ήταν το μήνυμα που έδωσε την λύση. Ευχαριστώ! Το πρόβλημα ήταν τελικά με τις παρενθέσεις.
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.