Så här kopierar du till Urklipp i Microsoft Visual Basic

Författare: Janice Evans
Skapelsedatum: 2 Juli 2021
Uppdatera Datum: 1 Maj 2024
Anonim
Så här kopierar du till Urklipp i Microsoft Visual Basic - Artiklar
Så här kopierar du till Urklipp i Microsoft Visual Basic - Artiklar

Innehåll

Det är användbart att veta hur man använder systemklippskortet för att kopiera information från en applikation till en annan med hjälp av Microsoft Visual Basic .NET (VB.NET). Urklippet är en miljö som delas mellan program i Windows, vilket gör det enklare att dela information. Programmerare behöver ofta exportera information från en VB.NET-applikation till ett Microsoft Excel-kalkylblad. Du kan dock skriva VB.NET-koden för att kopiera data till systemklippet och klistra in det i ett Excel-kalkylblad.


vägbeskrivning

Du kan kopiera data till systemklippet med Visual Basic .NET (digital city.binary tunnel och stad på natten bild av Stasys Eidiejus från Fotolia.com)

  1. Ange följande kod i en ny subrutin i ditt VB.NET-projekt för att deklarera dina Excel-variabler:

    Dim XLApp Som Microsoft.Office.Interop.Excel.Application = Inget Dim XLBooks Som Microsoft.Office.Interop.Excel.Workbooks = Inget Dim XLBook Som Microsoft.Office.Interop.Excel.Workbook = Inget Dim XLSheets As Microsoft.Office.Interop .Excel.Sheets = Inget Dim XLSheet Som Microsoft.Office.Interop.Excel.Worksheet = Ingenting

  2. Ange följande kod för att lägga till en textsträng till urklippet och få texten från den:

    Dim processObject som ny process Clipboard.SetDataObject ("Detta kopieras till klippbordet och läggs till i Excel.")


    Dim clipboardObject As IDataObject = Clipboard.GetDataObject ()

  3. Ange följande kod för att öppna Excel och lägga till ett nytt kalkylblad:

    XLApp = Ny Microsoft.Office.Interop.Excel.Application XLApp.Visible = Sann 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. Skriv följande kod för att lägga till sekvensen från Urklipp till Excel:

    Med clipboardObject Om .GetDataPresent (DataFormats.Text) Sedan XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) Avsluta om slut med

  5. Kör ditt program