hur man kopierar en sträng från ett program och klistra in den i en annan med Visual Basic

Att ha kunskap om hur man kopierar data från ett program och klistra in den i en annan kan du spara tid när du arbetar med olika program. Du kan använda klippbordet för att kopiera data och klistra in den i ett annat program med hjälp av Visual Basic. NET . Urklipp ä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 enkel att använda
1 .
Starta Visual Basic. NET och skapa en ny ” Windows Forms Application ” -projekt. Lägg till ett ” TextBox ” och två ” knappar ” i formuläret .
2 .
Klicka på ” Projekt ”i ” Arkiv ” -menyn och välj ” Egenskaper ” . Välj ” Referenser ” i den vänstra rutan och klicka på ” Add . . . ”. Klicka på ” KOM ” , 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 den här strängen från en VB ansökan och klistras in i Microsoft Excel. ”
4 .
Klicka på ” 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 : .

Import 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 ditt VB program: .

Dim objClipbrd Som IDataObject=Clipboard. GetDataObject ( )

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

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

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

Dim objShts som Microsoft. Office. Interop. Excel. Sheets=Inget

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

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

objXL. Visible=Sant

objXL. DisplayAlerts=False

objBk=CType ( objXL. Workbooks . add () , Microsoft. Office. Interop. Excel. Workbook )

objBks=objXL. Workbooks

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

objShts=objBk. Worksheets

Med objClipbrd

Om . GetDataPresent ( DataFormats. Text ) Sen

objSht. Cells (1 , 1)=. Getdata ( DataFormats. Text )

End If

End With
7 .
Kör dina program och klicka på ” Button1 ”för att kopiera strängen som visas i textrutan . Klicka på ” Button2 ”för att öppna ett nytt Excel- kalkylblad och klistra in strängen .