Καλώς ορίσατε στο dotNETZone.gr - Σύνδεση | Εγγραφή | Βοήθεια
σε

 

Αρχική σελίδα Ιστολόγια Συζητήσεις Εκθέσεις Φωτογραφιών Αρχειοθήκες

Drag & drop

Îåêßíçóå áðü ôï ìÝëïò xenophon. Τελευταία δημοσίευση από το μέλος Thiseas στις 24-08-2007, 16:40. Υπάρχουν 5 απαντήσεις.
Ταξινόμηση Δημοσιεύσεων: Προηγούμενο Επόμενο
  •  19-08-2007, 20:43 34367

    Drag & drop

    Με το notepad παλι που δουλευω
    θελω να μπορω μεσα απο τον Explorer  των windows
    να κανω drag & drop ενα αρχειο
    και απο αυτο να διαβαζω το κειμενο που γραφει
    ξερει κανεις πως γινετε ?
    (σε VB 2005)

  •  21-08-2007, 18:59 34403 σε απάντηση της 34367

    Απ: Drag & drop

    Πρέπει να γίνεις λίγο πιο σαφής.

    Θέλεις να κάνεις Drag & Drop ένα txt αρχείο από το παράθυρο του Windows Explorer που???

    Σε ένα ανοικτό Notepad ??

    Σε κάποιο RichText Control κάποιας φόρμας ???

     

  •  22-08-2007, 01:59 34413 σε απάντηση της 34403

    Απ: Drag & drop

    ε ναι σε ενα textbox που ειναι στο notepad

  •  22-08-2007, 22:47 34448 σε απάντηση της 34413

    Απ: Drag & drop

    Θα υποθέσω πως εννοείς ότι έχεις ένα TextBox Control (έστω πως λέγεται TextBox1) σε μία φόρμα.

    Θα πρέπει πρώτα να ορίσεις το Property AllowDrop του TextBox1 σε True.

    Έπειτα θα πρέπει να ενεργοποιείσεις τα εξής δύο Events του TextBox1:

    DragDrop και DragEnter.

     

    Αρχικά θα πάρεις Copy τα Data που γίνονται Dragged στο TextBox1

    Private Sub TextBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter
    e.Effect = DragDropEffects.Copy
    End Sub

    Έπειτα θα πάρεις από τα δεδομένα αυτά το όνομα του αρχείου και θα διαβάσεις το Text περιεχόμενο χρησιμοποιώντας ένα StreamReader

    Private Sub TextBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop
    Dim tmpStr As String()
    tmpStr = e.Data.GetData("FileDrop", True)
    Dim file As IO.TextReader = New IO.StreamReader(tmpStr(0))
    TextBox1.Text = file.ReadToEnd()
    file.Close()
    End Sub

     

    Στο σημείο αυτό μπορείς να προσθέσεις και έναν έλεγχο για να δείς ότι το αρχείο είναι όντως TextFile, αλλιώς να το απορίψεις.

  •  24-08-2007, 15:50 34476 σε απάντηση της 34448

    Απ: Drag & drop

    ευχαριστω παρα πολυ !!!

  •  24-08-2007, 16:40 34478 σε απάντηση της 34413

    Απ: Drag & drop

    xenophon:
    ε ναι σε ενα textbox που ειναι στο notepad


    πΩς?

    Nothing to declare...
Προβολή Τροφοδοσίας RSS με μορφή XML
Με χρήση του Community Server (Commercial Edition), από την Telligent Systems