Γειά σας
Πως πρέπει να είναι το ByVal Object προκειμένου να μην μου βγάζει λάθος όταν χρησιμοποιώ την  Option Strict On.
Ευχαριστώ.

Όπως και σε άλλη ερώτησή σου, επαναλαμβάνω: Ποιο είναι το λάθος που σου "βγάζει";

---

Dimitris Papadimitriou Software Development Professional

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

Option Strict On disallows late binding.  

Δεν καταλαβαίνω τίποτα σχετικά με το λάθος, πότε το βγάζει και τι ακριβώς είναι το πρόβλημα!

Πάντως, δες αυτά τα δύο posts που σχετίζονται με το θέμα, μήπως βοηθηθείς:

• http://www.dotnetzone.gr/cs/blogs/mkelaiditis/archive/2008/02/03/late-binding-option-strict.aspx
• http://www.dotnetzone.gr/cs/blogs/mkelaiditis/archive/2008/02/15/late-binding-revisited.aspx

 

 

---

Vir prudens non contra ventum mingit

Διαβάζω πάντα όλα τα posts .
 
   Private Sub ΟνομαΚουμπιών(ByVal btn As Object, ByVal onoma As String, ByVal eik As Integer)
        btn.Name = onoma
        btn.ToolTipText = onoma
        Fs0.ΑσπρόμαυραΚουμπιάTSButton(btn, eik, Fs0.FsButton, Fs0.FsButtonA)
        btn.Alignment = ToolStripItemAlignment.Right
        Mn0.Items.Add(btn)
    End Sub

Οταν βάζω στην αρχή της Class το Option Strict On μου υπογραμίζει τα υπογραμισμένα.
   Private Sub ΟνομαΚουμπιών(ByVal btn As Object, ByVal onoma As String, ByVal eik As Integer)
        btn.Name = onoma
        btn.ToolTipText = onoma
        Fs0.ΑσπρόμαυραΚουμπιάTSButton(btn, eik, Fs0.FsButton, Fs0.FsButtonA)
        btn.Alignment = ToolStripItemAlignment.Right
        Mn0.Items.Add(btn)
    End Sub
    Private Sub ΚουτiΒ()
        ΚουτίΒ = New System.Windows.Forms.ToolStripButton
        th = CInt(GetSetting("MyApp", Fn, "th", CStr(th)))
        ΟνομαΚουμπιών(ΚουτίΒ, "", 3)
        ΚουτίΒ.Alignment = ToolStripItemAlignment.Left
        ΚουτίΒ.Tag = "Χρησιμοποιείται_ΕμφάνισηΑπόκρυψηΚουτίΒ"
    End Sub
    Private Sub CmsFsOpen(ByVal Cms As ContextMenuStrip)
            Dim b1 As New System.Windows.Forms.ToolStripMenuItem
            ΟνομαΚουμπιών(b1, "", 1)
    End sub
Θά 'θελα γράφοντας  μόνο  μία  φορά  την  ΟνομαΚουμπιών να την χρησιμοποιώ και σαν ToolStripButton αλλά και σαν ToolStripMenuItem,πράγμα που συμβαίνει αν δεν χρησιμοποιήσω την Option Strict On.

α.... τώρα κατάλαβα!

ToolStripMenuItem και ToolStripButton κληρονομούν πολλά πράγματα από την ToolStripItem. Αν η τελευταία έχει όλες τις ιδιότητες που θέλεις να χρησιμοποιήσεις στην ΟνομαΚουμπιών (σημείωση: μην χρησιμοποιείς ελληνικά στον κώδικα) τότε μπορείς να ορίσεις το btn As ToolStripItem. Οπότε θα έχεις:

Private Sub ΟνομαΚουμπιών(ByVal btn As ToolStripItem, ByVal onoma As String, ByVal eik As Integer)

---

Dimitris Papadimitriou Software Development Professional

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

Εφόσον το ToolStripButton και το ToolStripMenuItem κάνουν inherit το ToolStripItem, μπορείς να πεις στο όρισμα της ΟνομαΚουμπιών "ByVal btn As ToolStripItem" αντί "ByVal btn As Object".

Το να χρησιμοποιείς το Option Strict On είναι μια πολύ καλή τακτική, ωστόσο θα πρέπει να ξεσκονίσεις λίγο την ΟΟ θεωρία καθώς όπως διαπιστώνεις δεν συγχωρεί τέτοιες παρατυπίες 

Επίσης, ομολογώ μου κάνει μεγάλη εντύπωση που χρησιμοποιείς ελληνικούς χαρακτήρες μέσα στον κώδικά σου...

 

---

Vir prudens non contra ventum mingit

Ευχαριστώ αυτό ακριβώς ήθελα.

Μάνο... οι απαντήσεις μας είναι ολόιδιες!!!

Σε πρόλαβα όμως... μάλλον ακόμα γράφεις με ένα χέρι;

---

Dimitris Papadimitriou Software Development Professional

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

Ουυυυ ναι, τουλάχιστον για κανένα μήνα ακόμα...

---

Vir prudens non contra ventum mingit

Δεν γνωρίζω αγγλικά ωστόσο μπορώ να γράφω με αγγλικούς χαρακτήρες εαν αυτό θεωρείται απαραίτητο, την στιγμή που με τα Ελληνικά διαχωρίζω τις δικές μου εντολές από του Vs.net.

SotirisPap:

Δεν γνωρίζω αγγλικά ωστόσο μπορώ να γράφω με αγγλικούς χαρακτήρες εαν αυτό θεωρείται απαραίτητο, την στιγμή που με τα Ελληνικά διαχωρίζω τις δικές μου εντολές από του Vs.net.

Καταλαβαίνω που το πας. Ας ξεκινήσουμε ένα άλλο thread γι αυτό το θέμα! Συνέχεια εδώ...

---

Dimitris Papadimitriou Software Development Professional

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