έφτιαξα και μια γραμμή εργαλείων, μπορεί να μου πει κάποιος πως να κάνω τα cut, copy & paste να λειτουργήσουν;

---

Κουλούρης Θάνος

μιλάμε πάντα για το πρόγραμμα που βρίσκεται στην ενότητα με τα πρώτα βήματα στις βάσεις δεδομένων με τίτλο "έλεγχος εγκυρότητας τηλεφώνου"

---

Κουλούρης Θάνος

Cut Copy και Paste από textbox?
Αν ναι μπορείς να γράψεις

Για copy: Clipboard.SetDataObject(TextBox1.Text)
-----------------------------------------------------------------------------------------------------------------------------------
Για paste: TextBox1.Text = Clipboard.GetDataObject().GetData(DataFormats.Text)
(Το .GetData(DataFormats.Text) είναι για να κάνεις paste στο textbox μόνο ότι είναι text και όχι Images ας πούμε)
-----------------------------------------------------------------------------------------------------------------------------------
Για cut: Clipboard.SetDataObject(TextBox1.Text)
            TextBox1.Text=""
-----------------------------------------------------------------------------------------------------------------------------------

Σε γενικές γραμμές

---

Άμα κάτσω πάνω στη γραμμή του τηλεφώνου θα είμαι online???

Δεν έχω μόνο ένα textbox, είναι μια φόρμα με πολλά textboxes και θέλω ο χρήστης ανάλογα το σε ποιο textbox έχει τοποθετημένο τον κέρσορα να κάνει μια απο τις 3 αυτές ενέργειες στο συγκεκριμένο textbox

---

Κουλούρης Θάνος

λογικά πρέπει να γράψω κωδικα για τα συγκεκριμένα events, και όχι στην περίπτωση που γίνονται σε κάποιο textbox. Δηλαδη να μη γράψω κώδικα για κάθε textbox ξεχωριστά, αυτο εννοώ

---

Κουλούρης Θάνος

Κάπως έτσι είναι το πρόγραμμα, το μενού δε το έχω σχεδιάσει

---

Κουλούρης Θάνος

θέλεις να αντιγράψεις ολα τα textbox στο Clipboard???

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

Το πρόγραμμα θα έχει ένα μενου, το οποίο δεν έχω σχεδιάσει ακομα. Απλά στο Edit, θα υπάρχουν τα cut, copy & paste. Ο φίλος zax1 χτες μου είπε πως να γίνει, αλλα στη περιπτωση που υπάρχει ένα textbox, εγω έχω πολλα. Εκεί μπερδεύομαι. Κλασσικό cut, copy & paste θέλω.

---

Κουλούρης Θάνος

Το πρόγραμμα θα είναι κάπως έτσι στη τελική του μορφή




Σκέφτομαι επίσης να βάλω κ μερικά options για να μπορέσει ο χρήστης να αλλάξει καποιες παραμέτρους της εφαρμογής. Όποιος έχει καποια καλη πρόταση ας μου στείλει ενα pm για να μη μπλεχτεί το topic. Ευχαριστώ πολύ

---

Κουλούρης Θάνος

Υπάρχει κάποια συγκεκριμένη ιδιότητα για το όταν ο κέρσορας είναι τοποθετημένος σε κάποιο textbox; Έχω σκεφτεί πως θα γίνει η υλοποίηση αλλά το έχω σκεφτεί με τον συγκεκριμένο τρόπο. Δηλαδή (Δίνω παράδειγμα, δεν ξέρω αν υπάρχει IsSelected ιδιότητα)

    Private Sub MnuEditCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditCut.Click
   
            if txtName.IsSelected then
            Clipboard.SetDataObject(txtName.Text)
            txtName.text=""
            end if

            if txtSurname.IsSelected then
            Clipboard.SetDataObject(txtSurname.Text)
            txtSurname.text=""
            end if

'με τον ίδιο τρόπο θα γίνεται και για τα υπόλοιπα textboxes

    End Sub

---

Κουλούρης Θάνος

Το πρόβλημα είναι πώς όταν πατάς ένα κουμπί ή ένα menu object (γενικά οποιοδήποτε control item) για να πυροδοτήσεις το cut,copy,paste, τότε το control που έχει το focus στην φόρμα σου θα είναι για παράδειγμα το menu item copy.

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

Από όσο ξέρω δεν υπάρχει κάτι έτοιμο στο Framework που να στο δίνει.

Ένας τρόπος για να το κάνεις είναι να ενεργοποιήσεις το Focus Leave Event των textBox που έχεις, και εκεί να δίνεις στην μεταβλητή σου το textBox ώς το Last Visited Control.

π.χ.

(Στο Declaration της Form) Dim lastVisitedControl As Control

Έπειτα στο TextBox1_Leave Event του TextBox1

lastVisitedControl = Me.TextBox1

Και τέλος στo Event του menu σου μπορείς να δώσεις, για παράδειγμα:

Clipboard.SetDataObject(lastVisitedControl.Text)  στο cut ή το copy

και

lastVisitedControl.Text = Clipboard.GetData(DataFormats.StringFormat) στο paste

Το δηλώνω και μου το βγάζει λάθος. Μου λέει end of statement expected

---

Κουλούρης Θάνος

Το έγραψα αρχικά σε C# και μετά που είδα ότι γράφεις σε VB το διόρθωσα.

Πρέπει να πρόλαβες να το διαβάσεις την ώρα που το διόρθωνα.

Ξαναδές λίγο τον κώδικα και άν σου ξαναδίνει σφάλμα, γράψε την γραμμή στην οποία παίρνεις Exception.

Τώρα στη δήλωση μου λέει Statement is not valid in a namespace

---

Κουλούρης Θάνος

Ο κώδικάς σου θα πρέπει να είναι κάπως έτσι....

Public Class Form1
    Dim lastVisitedControl As Control

    Private Sub TextBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
        lastVisitedControl = Me.TextBox1
    End Sub