Πώς να αντιγράψει ένα String από τη μία εφαρμογή και να το επικολλήσετε στο άλλο με το Visual Basic

Έχοντας τη γνώση για το πώς να αντιγράψετε δεδομένα από μια εφαρμογή και να τον επικολλήσετε σε ένα άλλο μπορεί να σας εξοικονομήσει χρόνο όταν εργάζεστε με διαφορετικές εφαρμογές . Μπορείτε να χρησιμοποιήσετε το πρόχειρο για να αντιγράψετε και να επικολλήσετε τα δεδομένα σε μία άλλη εφαρμογή χρησιμοποιώντας το Visual Basic.NET . Το πρόχειρο είναι μια σειρά από λειτουργίες που όλες οι εφαρμογές να έχουν πρόσβαση σε αυτά, καθιστώντας το απλό να μεταφέρετε δεδομένα μεταξύ τους . Visual Basic είναι μια γλώσσα προγραμματισμού Microsoft που είναι σχετικά εύκολο στη χρήση. Οδηγίες
Η 1

Ξεκινήστε το Visual Basic.NET και να δημιουργήσετε ένα νέο " Windows Forms Application " του έργου . Προσθέστε ένα " πλαίσιο κειμένου " και δύο " κουμπιά " στη φόρμα . 2

Κάντε κλικ στο " Project" στο μενού "Αρχείο" και επιλέξτε " Properties" . Επιλέξτε " Αναφορές" στο αριστερό τμήμα του παραθύρου και κάντε κλικ στο " Προσθήκη ... " . Κάντε κλικ στην καρτέλα " COM " , επιλέξτε "Microsoft Excel 12.0 Object Library " και κάντε κλικ στο " OK" .
Εικόνων 3

διπλό κλικ στη φόρμα για να ανοίξει το μάθημα « Form1.vb " . Στο " Form1_Load " Πληκτρολογήστε το παρακάτω για να προσθέσετε μια συμβολοσειρά κειμένου στο πλαίσιο κειμένου :

Me.TextBox1.Text = " . Αντέγραψα αυτό το κορδόνι από μια εφαρμογή VB και να επικολληθεί στο Microsoft Excel "

4

κάντε κλικ στο " Form1.vb [ Σχέδιο ] " καρτέλα και κάντε διπλό κλικ στο " Button1 " . Πληκτρολογήστε τα ακόλουθα στο " Button1_Click " για να αντιγράψετε το string στο πρόχειρο :

Dim obj Καθώς Νέα διαδικασία

Clipboard.SetDataObject ( Me.TextBox1.Text )
5

Πληκτρολογήστε την ακόλουθη στην κορυφή του " Form1.vb « ενότητα :

Εισαγωγές Microsoft.Office.Interop.Excel
Η

6 Κάντε κλικ στο " Form1.vb [ Μελέτη ] " καρτέλα και κάντε διπλό κλικ στο " Button2 " . Πληκτρολογήστε το παρακάτω, για να δημιουργήσετε ένα νέο φύλλο , ανοίξτε το και αντιγράψτε το string αντιγραφεί στο πρόχειρο από την εφαρμογή VB σας :

Dim objClipbrd Όπως IDataObject = Clipboard.GetDataObject ( )

Dim objXL Δεδομένου ότι η Microsoft . Office.Interop.Excel.Application = Τίποτα

Dim objBks Όπως Microsoft.Office.Interop.Excel.Workbooks = Τίποτα

Dim objBk Όπως Microsoft.Office.Interop.Excel.Workbook = Nothing

Dim objShts Όπως Microsoft.Office.Interop.Excel.Sheets = Τίποτα

Dim objSht Όπως Microsoft.Office.Interop.Excel.Worksheet = Τίποτα

objXL = Νέο Microsoft . Office.Interop.Excel.Application

objXL.Visible = True

objXL.DisplayAlerts = False

objBk = ctype ( objXL.Workbooks.Add ( ) , Microsoft.Office . Interop.Excel.Workbook )

objBks = objXL.Workbooks

objSht = ctype ( objBks ( 1 ) . Sheets.Item ( 1 ) , Microsoft.Office.Interop.Excel.Worksheet )

objShts = objBk.Worksheets

Με objClipbrd

Αν . GetDataPresent ( DataFormats.Text ) Στη συνέχεια

objSht.Cells ( 1 , 1 ) = . GetData ( DataFormats.Text )

End If End

με τη
7

Εκτελέστε το πρόγραμμά σας και κάντε κλικ στο " Button1 " για να αντιγράψετε το string εμφανίζεται στο πλαίσιο κειμένου . Κάντε κλικ στο " Button2 " για να ανοίξετε ένα νέο υπολογιστικό φύλλο Excel και να επικολλήσετε το string .
Η
εικόνων