Jak skopiować do schowka w Microsoft Visual Basic

Autor: William Ramirez
Data Utworzenia: 21 Wrzesień 2021
Data Aktualizacji: 6 Grudzień 2024
Anonim
How to make a button copy to clipboard! (Visual studio)
Wideo: How to make a button copy to clipboard! (Visual studio)

Zawartość

Dobrze jest wiedzieć, jak używać schowka systemowego do kopiowania informacji z jednej aplikacji do drugiej za pomocą Microsoft Visual Basic .NET (VB.NET). Schowek jest środowiskiem współdzielonym między programami w systemie Windows, co ułatwia udostępnianie informacji. Programiści często muszą eksportować informacje z aplikacji VB.NET do arkusza kalkulacyjnego Microsoft Excel. Można jednak napisać kod VB.NET, aby skopiować dane do schowka systemowego i wkleić je do arkusza programu Excel.


Instrukcje

Możesz skopiować dane do schowka systemowego za pomocą Visual Basic .NET (cyfrowy city.binary tunel i miasto nocą obraz Stasys Eidiejus z Fotolia.com)

  1. Wprowadź następujący kod w nowym podprogramie w projekcie VB.NET, aby zadeklarować zmienne programu Excel:

    Dim XLApp Jak Microsoft.Office.Interop.Excel.Application = Nic DimBooks XL jak 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. Wprowadź następujący kod, aby dodać ciąg tekstowy do schowka i pobrać z niego tekst:

    Dim processObject jako nowy proces Clipboard.SetDataObject („To jest kopiowane do schowka i dodawane do Excela.”)

    Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()


  3. Wprowadź następujący kod, aby otworzyć program Excel i dodać nowy arkusz:

    XLApp = Nowy 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. Wpisz następujący kod, aby dodać sekwencję ze schowka do programu Excel:

    With clipboardObject If .GetDataPresent (DataFormats.Text) Następnie XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) End If End With

  5. Uruchom swój program