Hoe te kopiëren naar het klembord in Microsoft Visual Basic

Schrijver: William Ramirez
Datum Van Creatie: 15 September 2021
Updatedatum: 9 Kunnen 2024
Anonim
Hoe te kopiëren naar het klembord in Microsoft Visual Basic - Artikelen
Hoe te kopiëren naar het klembord in Microsoft Visual Basic - Artikelen

Inhoud

Het is handig om te weten hoe u het systeemklembord gebruikt om informatie van de ene toepassing naar de andere te kopiëren met behulp van Microsoft Visual Basic .NET (VB.NET). Het klembord is een omgeving die wordt gedeeld tussen programma's in Windows, waardoor het gemakkelijker wordt om informatie te delen. Programmeurs moeten vaak informatie uit een VB.NET-toepassing exporteren naar een Microsoft Excel-spreadsheet. U kunt echter de VB.NET-code schrijven om gegevens naar het klembord van het systeem te kopiëren en in een Excel-werkblad te plakken.


routebeschrijving

U kunt de gegevens kopiëren naar het systeemklembord met behulp van Visual Basic .NET (digitale stad.binetunnel en stad bij nacht afbeelding door Stasys Eidiejus van Fotolia.com)

  1. Voer de volgende code in een nieuwe subroutine in uw VB.NET-project in om uw Excel-variabelen te declareren:

    Dim XLApp Als Microsoft.Office.Interop.Excel.Application = Niets Dim XLBooks als Microsoft.Office.Interop.Excel.Workbooks = Niets Dim XLBook als Microsoft.Office.Interop.Excel.Workbook = Niets minder XLSheets als Microsoft.Office.Interop .Excel.Sheets = Nothing Dim XLSheet As Microsoft.Office.Interop.Excel.Worksheet = Niets

  2. Voer de volgende code in om een ​​tekststring aan het klembord toe te voegen en de tekst ervan te verkrijgen:

    Dim processObject As New Process Clipboard.SetDataObject ("Dit wordt gekopieerd naar het klembord en toegevoegd aan Excel.")


    Dim-clipboardObject As IDataObject = Clipboard.GetDataObject ()

  3. Voer de volgende code in om Excel te openen en een nieuw werkblad toe te voegen:

    XLApp = Nieuwe 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. Typ de volgende code om de reeks toe te voegen van het Klembord naar Excel:

    Met clipboardObject If.GetDataPresent (DataFormats.Text) Then XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) End If End With

  5. Run je programma