Как да копирате в клипборда в Microsoft Visual Basic

Автор: William Ramirez
Дата На Създаване: 22 Септември 2021
Дата На Актуализиране: 11 Може 2024
Anonim
Мультикультурность как мультипликатор продуктивности / Александр Ложечкин (Microsoft)
Видео: Мультикультурность как мультипликатор продуктивности / Александр Ложечкин (Microsoft)

Съдържание

Полезно е да знаете как да използвате системния клипборд за копиране на информация от едно приложение в друго с помощта на Microsoft Visual Basic .NET (VB.NET). Клипбордът е среда, която се споделя между програмите в Windows, което улеснява споделянето на информация. Програмистите често трябва да експортират информация от приложението VB.NET в електронна таблица на Microsoft Excel. Можете обаче да напишете кода на VB.NET, за да копирате данните в системния буфер и да го поставите в работен лист на Excel.


инструкции

Можете да копирате данните в системния клипборд, като използвате Visual Basic .NET (цифров тунел на city.binary и град през нощта от Stasys Eidiejus от Fotolia.com)

  1. Въведете следния код в нова подпрограма във вашия проект VB.NET, за да декларирате променливите си в Excel:

    Dim XLApp As Microsoft.Office.Interop.Excel.Application = Нищо не е оправдано XLBooks като Microsoft.Office.Interop.Excel.Workbooks = Нищо не е осветлено като книга. .Excel.Sheets = Nothing Dim XLSheet As Microsoft.Office.Interop.Excel.Worksheet = Нищо

  2. Въведете следния код, за да добавите текстов низ в клипборда и да получите текста от него:

    Dim processObject As New Process Clipboard.SetDataObject ("Това се копира в клипборда и се добавя към Excel.")

    Защита на клипборда като IDataObject = Clipboard.GetDataObject ()


  3. Въведете следния код, за да отворите Excel и да добавите нов работен лист:

    XLApp = Нов 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. Въведете следния код, за да добавите последователността от клипборда към Excel:

    С clipboardObject Ако .GetDataPresent (DataFormats.Text) Тогава XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) Край, ако завършва с

  5. Стартирайте програмата си