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

Απ: Option Strict On - Object

Dimitris Papadimitriou — Wed, 16 Apr 2008 02:32:54 GMT

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

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

Απ: Option Strict On - Object

SotirisPap — Wed, 16 Apr 2008 01:18:33 GMT

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

Απ: Option Strict On - Object

KelMan — Wed, 16 Apr 2008 00:40:23 GMT

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

Απ: Option Strict On - Object

Dimitris Papadimitriou — Wed, 16 Apr 2008 00:23:26 GMT

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

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

Απ: Option Strict On - Object

SotirisPap — Wed, 16 Apr 2008 00:13:08 GMT

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

Απ: Option Strict On - Object

KelMan — Wed, 16 Apr 2008 00:11:22 GMT

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

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

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

Απ: Option Strict On - Object

Dimitris Papadimitriou — Tue, 15 Apr 2008 23:59:45 GMT

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

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

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

Απ: Option Strict On - Object

SotirisPap — Tue, 15 Apr 2008 23:47:00 GMT

Διαβάζω πάντα όλα τα 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.

Απ: Option Strict On - Object

KelMan — Tue, 15 Apr 2008 17:47:10 GMT

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

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

Απ: Option Strict On - Object

SotirisPap — Tue, 15 Apr 2008 07:08:36 GMT

Option Strict On disallows late binding.

Απ: Option Strict On - Object

Dimitris Papadimitriou — Tue, 15 Apr 2008 06:21:09 GMT

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

Option Strict On - Object

SotirisPap — Tue, 15 Apr 2008 04:19:46 GMT

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