hvordan man kan kopiere til klippebordet i Microsoft Visual Basic

Indlæg af Birthe Møller     opdateret: 2011-12-01

Det er nyttigt at vide, hvordan man bruger systemet udklipsholder at kopiere oplysninger fra et program til et andet ved hjælp af Microsoft Visual Basic. NET ( VB. NET ) . Klippebordet er et miljø , der deles mellem programmer i Windows , hvilket gør det lettere at dele information . Programmører har ofte behov for at eksportere oplysninger fra en VB. NET applikation til en Microsoft Excel- regneark . Men du kan skrive VB. NET kode til at kopiere data til systemet udklipsholderen og indsætte det i et Excel -regneark
1 . .
Skriv følgende kode i en ny subrutine i dit VB. NET projekt at erklære din Excel variabler :

Dim XLApp Som Microsoft. Office. Interop . Excel. Application=Nothing
Dim XLBooks Som Microsoft. Office. Interop. Excel. Workbooks=Nothing
Dim XLBook Som Microsoft. Office. Interop. Excel. Workbook=Nothing
Dim XLSheets Som Microsoft. Office. Interop. Excel. Sheets=Nothing
Dim XLSheet Som Microsoft. Office. Interop. Excel. Worksheet=Nothing
. 2
Skriv følgende for at tilføje en tekststreng til klippebordet og få teksten fra klippebordet :

Dim processObject som ny Process

Udklipsholder . SetDataObject (" Dette er kopieret til klippebordet og lægges til Excel . " )

Dim clipboardObject Som IDataObject=Clipboard. GetDataObject ( )
3 .

Skriv følgende for at åbne Excel og føje et nyt regneark :

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

XLApp. Visible=True
XLApp. DisplayAlerts=False
XLBook=CType ( XLApp. Workbooks. Add ( ) , Microsoft. Office. Interop. Excel. Workbook )
XLBooks=XLApp . Projektmapper
XLSheet=CType ( XLBooks (1 ) . Sheets. Item (1 ) , Microsoft. Office. Interop. Excel. Worksheet )
XLSheets=XLBook. Worksheets

4
Skriv følgende for at tilføje strengen fra klippebordet til Excel : .

Med clipboardObject

Hvis . GetDataPresent ( DataFormats. Text ) Så
XLSheet. Cells (1 , 1)=. GetData ( DataFormats. Text )
End If

End With
5 .
Kør dit program .


Previous:hvordan man programmerer en TI -84 Plus Silver Edition Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change