Kako kopirati v odložišče v Microsoft Visual Basic

Avtor: Joan Hall
Datum Ustvarjanja: 27 Januar 2021
Datum Posodobitve: 15 November 2024
Anonim
How to make a button copy to clipboard! (Visual studio)
Video.: How to make a button copy to clipboard! (Visual studio)

Vsebina

Koristno je vedeti, kako uporabiti sistemsko odložišče za kopiranje informacij iz ene aplikacije v drugo z uporabo Microsoft Visual Basic .NET (VB.NET). Odložišče je okolje, ki si ga deli program v sistemu Windows in omogoča lažje skupno rabo informacij. Programerji pogosto izvažajo podatke iz aplikacije VB.NET v Microsoft Excelovo preglednico. Vendar pa lahko napišete kodo VB.NET za kopiranje podatkov v sistemsko odložišče in jo prilepite v Excelov delovni list.


Navodila

Podatke lahko kopirate v odložišče sistema z uporabo Visual Basic .NET (digitalni mestni tunel in mesto ponoči slika Stasys Eidiejus iz Fotolia.com)

  1. Vnesite naslednjo kodo v nov podprogram v vašem projektu VB.NET, da prijavite spremenljivke Excel:

    Dim XLApp As Microsoft.Office.Interop.Excel.Application = Nič ne dim XLBooks kot Microsoft.Office.Interop.Excel.Workbooks = Nič dim XLBook kot Microsoft.Office.Interop.Excel.Workbook = Nič ne dim XLSheets kot Microsoft.Office.Interop .Excel.Sheets = Nič dim XLSheet kot Microsoft.Office.Interop.Excel.Worksheet = Nič

  2. Vnesite naslednjo kodo, da dodate besedilni niz v odložišče in dobite besedilo iz njega:

    Dim processObject As New Process Clipboard.SetDataObject ("To je kopirano v odložišče in dodano v Excel.")

    Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()


  3. Vnesite naslednjo kodo, da odprete Excel in dodate nov delovni list:

    XLApp = Novo 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. Vnesite naslednjo kodo, da dodate zaporedje iz odložišča v Excel:

    Z clipboardObject Če .GetDataPresent (DataFormats.Text) Potem XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) End če se konča s

  5. Zaženite program