Jak kopírovat do schránky v aplikaci Microsoft Visual Basic

Autor: Marcus Baldwin
Datum Vytvoření: 21 Červen 2021
Datum Aktualizace: 19 Listopad 2024
Anonim
Jak kopírovat do schránky v aplikaci Microsoft Visual Basic - Články
Jak kopírovat do schránky v aplikaci Microsoft Visual Basic - Články

Obsah

Je užitečné vědět, jak používat systémovou schránku ke kopírování informací z jedné aplikace do jiné pomocí aplikace Microsoft Visual Basic .NET (VB.NET). Schránka je prostředí, které je sdíleno mezi programy v systému Windows, což usnadňuje sdílení informací. Programátoři často potřebují exportovat informace z aplikace VB.NET do tabulky Microsoft Excel. Však můžete napsat kód VB.NET zkopírovat data do systémové schránky a vložte jej do listu aplikace Excel.


Pokyny

Data můžete zkopírovat do systémové schránky pomocí jazyka Visual Basic .NET (digitální city.binary tunel a město v noci obrázek Stasys Eidiejus z Fotolia.com) t

  1. Zadejte následující kód v novém podprogramu v projektu VB.NET deklarovat proměnné aplikace Excel: t

    Dim XLApp jako Microsoft.Office.Interop.Excel.Application = Nic Dim XLBooks jako Microsoft.Office.Interop.Excel.Workbooks = Nic Dim XLBook jako Microsoft.Office.Interop.Excel.Workbook = Nic Dim XLSheets jako Microsoft.Office.Interop .Excel.Sheets = Nic Dim XLSheet jako Microsoft.Office.Interop.Excel.Worksheet = Nic

  2. Zadejte následující kód pro přidání textového řetězce do schránky a získání textu z něj:

    Dim processObject Jako nový proces Clipboard.SetDataObject ("Toto je zkopírován do schránky a přidán do aplikace Excel.")


    Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()

  3. Chcete-li otevřít aplikaci Excel a přidat nový list, zadejte následující kód:

    XLApp = Nový Microsoft.Office.Interop.Excel.Application XLApp.Visible = True XLApp.DisplayAlerts = False XLBook = CType (XLApp.Workbooks.Add (), Microsoft.Office.Interop.Excel.Workbook) XLBooks = XLApp.Workbooks XLSheet = CType (XLBooks (1) .Sheets.Item (1), Microsoft.Office.Interop.Excel.Worksheet) XLSheets = XLBook.Worksheets

  4. Zadejte následující kód přidat sekvenci ze schránky do aplikace Excel: t

    S clipboardObject Pokud .GetDataPresent (DataFormats.Text) Pak XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) End If End With End

  5. Spusťte program