Hur Kopiera en sträng från ett program och klistra in den i en annan med Visual Basic

ha kunskap om hur man kan kopiera data från ett program och klistra in den i en annan kan spara tid när du arbetar med olika applikationer . Du kan använda urklipp för att kopiera data och klistra in den i ett annat program med hjälp av Visual Basic.NET . Klippbordet är en uppsättning funktioner som alla program har tillgång till , vilket gör det enkelt att överföra data mellan dem . Visual Basic är ett Microsoft programmeringsspråk som är relativt lätt att använda . Instruktioner
1

Starta Visual Basic.NET och skapa en ny " Windows Forms Application " -projektet . Lägg en " TextBox " och två "Knappar" till formuläret .
2

Klicka på " Projekt " i " Arkiv " -menyn och välj " Properties " . Välj "Referenser " på den vänstra panelen och klicka på " Lägg till ... " . Klicka på " COM ", välj " Microsoft Excel 12.0 Object Library " och klicka " OK " .
3

Dubbelklicka på formuläret för att öppna " Form1.vb " modul . Under " Form1_Load " Skriv följande för att lägga till en textsträng till textrutan :

Me.TextBox1.Text = " Jag kopierade denna sträng från ett VB program och klistras i Microsoft Excel . "

4

Klicka " Form1.vb [ Design ] " -fliken och dubbelklicka på " Button1 " . Skriv följande under " Button1_Click " för att kopiera strängen till Urklipp :

Dim obj Som Ny Process

Clipboard.SetDataObject ( Me.TextBox1.Text )
5

Skriv följande till toppen av din " Form1.vb " modul :

Imports Microsoft.Office.Interop.Excel
6

Klicka på " Form1.vb [ Design ] " fliken och dubbelklicka på " Button2 " . Skriv följande för att skapa ett nytt kalkylblad , öppna den och klistra in strängen kopieras till urklipp från din VB ansökan :

Dim objClipbrd Som IDataObject = Clipboard.GetDataObject ( ) katalog

Dim objXL Som Microsoft . Office.Interop.Excel.Application = ingenting

Dim objBks Som Microsoft.Office.Interop.Excel.Workbooks = ingenting

Dim objBk Som Microsoft.Office.Interop.Excel.Workbook = ingenting

Dim objShts Som Microsoft.Office.Interop.Excel.Sheets = Nothing

Dim objSht Som Microsoft.Office.Interop.Excel.Worksheet = Nothing

objXL = Ny Microsoft . Office.Interop.Excel.Application

objXL.Visible = true

objXL.DisplayAlerts = False

objBk = ctyp ( objXL.Workbooks.Add ( ) , Microsoft.Office . Interop.Excel.Workbook )

objBks = objXL.Workbooks

objSht = ctyp ( objBks ( 1 ) . Sheets.Item ( 1 ) , Microsoft.Office.Interop.Excel.Worksheet )

objShts = objBk.Worksheets

objClipbrd
p Om . GetDataPresent ( DataFormats.Text ) Sen

objSht.Cells ( 1 , 1 ) = . GetData ( DataFormats.Text ) katalog

End If

End With
7

Kör programmet och klicka på " Button1 " för att kopiera den sträng som visas i textrutan . Klicka på " Button2 " för att öppna ett nytt Excel- kalkylblad och klistra in strängen .