Sådan kopieres en String fra et program & Indsæt den i en anden med Visual Basic

March 31

Sådan kopieres en String fra et program & Indsæt den i en anden med Visual Basic

At have viden om, hvordan man kopiere data fra et program og indsætte det i en anden, kan spare dig tid, når du arbejder med forskellige programmer. Du kan bruge klippebordet til at kopiere data og indsætte det i et andet program ved hjælp af Visual Basic.NET. Klippebordet er et sæt af funktioner, som alle programmer 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.

Vejledning


• Start Visual Basic.NET og oprette en ny "Windows Forms Application" projekt. Tilføj en "TextBox" og to "knapper" til formularen.

• Klik på "Project" i menuen "Filer" og vælg "<projekt> Egenskaber". Vælg "Referencer" i venstre rude, og klik på "Tilføj ...". Klik på "COM" -fanebladet skal du vælge "Microsoft Excel 12,0 Object Library" og klik på "OK".

• Dobbeltklik på formularen for at åbne "Form1.vb" modul. Under "Form1_Load" Skriv følgende for at tilføje en tekststreng til tekstboksen: ". Jeg kopierede denne streng fra et VB program og indsat i Microsoft Excel" Me.TextBox1.Text =

• Klik på "Form1.vb [Design]" fanen og dobbeltklikke på "Button1". Skriv følgende under "Button1_Click" for at kopiere strengen til udklipsholder: Dim obj som ny Process Clipboard.SetDataObject (Me.TextBox1.Text)

• Skriv følgende til selve toppen af ​​din "Form1.vb" modulet: Import Microsoft.Office.Interop.Excel

• Klik på "Form1.vb [Design]" fanen og dobbeltklikke på "button2". Skriv følgende for at oprette et nyt regneark, åbne den og indsætte strengen kopieret til udklipsholderen fra din VB program: 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 Dim objShts Som Microsoft.Office.Interop.Excel.Sheets = Nothing Dim objSht som Microsoft.Office.Interop.Excel. Arbejdsark = Nothing objXL = Ny Microsoft.Office.Interop.Excel.Application objXL.Visible = True objXL.DisplayAlerts = False objBk = CIndtast (objXL.Workbooks.Add (), Microsoft.Office.Interop.Excel.Workbook) objBks = objXL .Workbooks objSht = CIndtast (objBks (1) .Sheets.Item (1), Microsoft.Office.Interop.Excel.Worksheet) objShts = objBk.Worksheets Med objClipbrd Hvis .GetDataPresent (DataFormats.Text) Derefter objSht.Cells (1, 1) = .GetData (DataFormats.Text) End If End With

• 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.