Πρώτα Βήματα - Desktop Applications

Απ: Cut, copy & paste

Dark Dominion — Mon, 17 Jul 2006 08:04:00 GMT

Το δοκίμασα και λειτουργεί μια χαρά, σε ευχαριστω πολύ

Απ: Cut, copy & paste

evliatsas — Mon, 17 Jul 2006 07:54:58 GMT

Δυστυχώς (παράβλεψή μου), όταν χρησιμοποιείς MenuStrip και κάνεις κλίκ εκεί, τότε δεν χάνει το Focus το TextBox με αποτέλεσμα να μήν τρέχει ποτέ ο κώδικας του Event και το lastVisitedControl να είναι κενό.

Αυτό συμβαίνει γιατί το MenuStrip είναι Component και όχι Control.

Αυτό λύνεται, άν χρησιμοποιήσεις το Event Focus Enter των TextBox αντί του Leave. (δηλαδή να πάρεις ώς τελευταίο Control αυτό που έχει το Focus).

Υ.Σ. Όταν δοκίμασα τον κώδικα χρησιμοποίησα button αντί για MenuStrip Items...

Απ: Cut, copy & paste

Dark Dominion — Mon, 17 Jul 2006 07:43:44 GMT

Έχω βάλει στο leave event του nametextbox

lastVisitedControl = Me.NameTextBox

και τρέχω το πρόγραμμα, γράφω κάτι στο name, πατάω μετα cut στο μενού και μου εμφανίζει το exception

Απ: Cut, copy & paste

evliatsas — Mon, 17 Jul 2006 07:35:21 GMT

Το exception που σου βγαίνει, δεν έχει να κάνει με τον κώδικα, αλλά με το γεγονός ότι είναι null η τιμή που προσπαθείς να δώσεις στην συνάρτηση SetDataObject().

Αυτό μπορεί να συμβαίνει για δύο λόγους:

1-Επειδή δεν έχεις αναθέσει τιμή στη LastVisitedControl μεταβλητή

ή

2-Επειδή το control που έχεις δώσει στη LastVisitedControl δεν έχει text property ή (πιο πιθανό) το text property του control έχει την τιμή null.

Απ: Cut, copy & paste

Dark Dominion — Mon, 17 Jul 2006 07:15:45 GMT

Μου βγάζει λάθος στο event click του cut

Private Sub MnuEditCut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MnuEditCut.Click

Clipboard.SetDataObject(LastVisitedControl.Text)

LastVisitedControl.Text = String.Empty

End Sub

Αυτό το κώδικα έχω γράψει στο συγκεκριμένο event

Να και ένα screenshot

Απ: Cut, copy & paste

evliatsas — Mon, 17 Jul 2006 06:56:03 GMT

Dark Dominion wrote:
Και μετά στο cut για παράδειγμα τι πρέπει να γράψω;

Όπως ακριβώς σου έγραψε και ο zax1 πιο πάνω, το cut είναι το ίδιο με το copy, απλά πρέπει και να κάνεις reset την τιμή του TextBox από το οποίο έκανες cut.

Δηλαδή όταν παίρνεις τα δεδομένα με cut, το Event του menu σου, θα είναι κάπως έτσι...

Clipboard.SetDataObject(lastVisitedControl.Text)

lastVisitedControl.Text = String.Empty

Απ: Cut, copy & paste

evliatsas — Mon, 17 Jul 2006 04:49:27 GMT

Ελπίζω να λύθηκε το πρόβλημα.

Άν σκεφτώ κάποιον πιο έξυπνο τρόπο (χωρίς να χρειάζεται να ενεργοποιήσεις το Leave Event για όλα τα TextBox) για να δείς το Last Visited Control θα σου τον γράψω.

Απ: Cut, copy & paste

Dark Dominion — Mon, 17 Jul 2006 04:49:23 GMT

Και μετά στο cut για παράδειγμα τι πρέπει να γράψω;

Απ: Cut, copy & paste

Dark Dominion — Mon, 17 Jul 2006 04:44:01 GMT

Όντως το είχα γράψει απο πάνω

Απ: Cut, copy & paste

evliatsas — Mon, 17 Jul 2006 04:41:39 GMT

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

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

Απ: Cut, copy & paste

Dark Dominion — Mon, 17 Jul 2006 04:36:07 GMT

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

Απ: Cut, copy & paste

evliatsas — Mon, 17 Jul 2006 04:34:03 GMT

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

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

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

Απ: Cut, copy & paste

Dark Dominion — Mon, 17 Jul 2006 04:29:46 GMT

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

Απ: Cut, copy & paste

evliatsas — Mon, 17 Jul 2006 04:15:38 GMT

Το πρόβλημα είναι πώς όταν πατάς ένα κουμπί ή ένα 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

Απ: Cut, copy & paste

Dark Dominion — Mon, 17 Jul 2006 01:05:14 GMT

Υπάρχει κάποια συγκεκριμένη ιδιότητα για το όταν ο κέρσορας είναι τοποθετημένος σε κάποιο 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