Cum se copiază în Clipboard în Microsoft Visual Basic

Autor: Virginia Floyd
Data Creației: 10 August 2021
Data Actualizării: 14 Noiembrie 2024
Anonim
Cum se copiază în Clipboard în Microsoft Visual Basic - Articole
Cum se copiază în Clipboard în Microsoft Visual Basic - Articole

Conţinut

Este util să știți cum să utilizați clipboard-ul sistemului pentru a copia informații dintr-o aplicație în alta folosind Microsoft Visual Basic .NET (VB.NET). Clipboard-ul este un mediu care este împărțit între programe în Windows, făcând mai ușor schimbul de informații. Programatorii au de multe ori nevoie să exporte informații dintr-o aplicație VB.NET într-o foaie de calcul Microsoft Excel. Cu toate acestea, puteți scrie codul VB.NET pentru a copia date în clipboard-ul de sistem și pentru ao lipi într-o foaie de lucru Excel.


instrucțiuni de ghidare

Puteți copia datele în clipboardul sistemului utilizând Visual Basic .NET (tunel digital digital și oraș pe timp de noapte de către Stasys Eidiejus de la Fotolia.com)

  1. Introduceți codul următor într-o nouă subrutină în proiectul dvs. VB.NET pentru a declara variabilele dvs. Excel:

    Dim XLApp ca Microsoft.Office.Interop.Excel.Application = Nimic Dim XLBooks ca Microsoft.Office.Interop.Excel.Workbooks = Nimic Dim XLBook Ca Microsoft.Office.Interop.Excel.Workbook = Nimic Dim XLSheets ca Microsoft.Office.Interop .Excel.Sheets = nimic Dim XLSheet ca Microsoft.Office.Interop.Excel.Worksheet = nimic

  2. Introduceți codul următor pentru a adăuga un șir de text în clipboard și pentru a obține textul din acesta:

    Dim processObject Ca proces nou Clipboard.SetDataObject ("Aceasta este copiată în clipboard și adăugată în Excel.")


    Dim clipboardObject Ca IDataObject = Clipboard.GetDataObject ()

  3. Introduceți codul următor pentru a deschide Excel și a adăuga o nouă foaie de lucru:

    XLApp = Noua 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 = Lucruri XLBook.Worksheets

  4. Tastați următorul cod pentru a adăuga secvența din Clipboard în Excel:

    Cu clipboardObject Dacă .GetDataPresent (DataFormats.Text) Apoi XLSheet.Cells (1, 1) = .GetData (DataFormats.Text) Sfârșit Dacă Sfârșit Cu

  5. Rulați programul