have viden om, hvordan man kopiere data fra et program og indsætte det i et andet kan spare dig tid , når du arbejder med forskellige applikationer. Du kan bruge klippebordet til at kopiere data og indsætte den i et andet program ved hjælp af Visual Basic.NET . Udklipsholderen er et sæt af funktioner , at alle ansøgninger har adgang til , hvilket gør det nemt at overføre data mellem dem . Visual Basic er en Microsoft programmeringssprog, der er forholdsvis let at bruge. Instruktioner
1

Start Visual Basic.NET og oprette en ny "Windows Forms Application "-projektet . Tilføj en " TextBox " og to " Buttons" til formularen .
2

Klik på " Project" i menuen "Filer" og vælg " Egenskaber". Vælg "Referencer" i venstre rude, og klik på " Tilføj ... " . Klik på " COM" fanebladet, vælg "Microsoft Excel 12,0 Object Library " og klik " OK".
3

Dobbeltklik på formularen for at åbne " Form1.vb "-modulet . Under " Form1_Load " Skriv følgende for at tilføje en tekststreng til tekstboksen : Hej

Me.TextBox1.Text = " Jeg har kopieret denne streng fra en VB program og indsat i Microsoft Excel. "
< Br > 4

Klik på " Form1.vb [ Design ] " fanen og dobbeltklik på " Button1 " . Indtast følgende under " Button1_Click " for at kopiere strengen til udklipsholder : Hej

Dim obj As New Process

Clipboard.SetDataObject ( Me.TextBox1.Text )
5 < p > Skriv følgende til selve toppen af ​​din " Form1.vb "-modulet :

Import Microsoft.Office.Interop.Excel
6

Klik på " Form1.vb [ Design ] " fanen og dobbeltklik på " button2 " . Skriv følgende for at oprette et nyt regneark , skal du åbne den og indsætter strengen kopieret til clipboard fra din VB program : Hej

Dim objClipbrd Som IDataObject = Clipboard.GetDataObject ()

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

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

Dim objBk Som Microsoft.Office.Interop.Excel.Workbook = Nothing < br >

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 = Ægte

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 ) Salg

objShts = objBk.Worksheets

Med objClipbrd
p Hvis . GetDataPresent ( DataFormats.Text ) Så

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

End If

End With
7

Kør dit program og klik på " Button1 " for at kopiere strengen vises i tekstboksen. Klik på " button2 " for at åbne et nyt Excel-regneark og indsætte strengen.