Condexatedenbay.com


Comment faire pour copier une chaîne d'une Application & coller dans un autre avec Visual Basic

Comment faire pour copier une chaîne d'une Application & coller dans un autre avec Visual Basic


Ayant les connaissances sur la façon de copier des données d'une application et les coller dans un autre peut vous sauver temps lorsque vous travaillez avec des applications différentes. Vous pouvez utiliser le presse-papiers pour copier des données et de le coller dans une autre application à l'aide de Visual Basic.net. Le presse-papiers est un ensemble de fonctions que toutes les applications ont accès, rendant simple pour transférer des données entre eux. Visual Basic est un langage de programmation de Microsoft qui est relativement facile à utiliser.

Instructions

• Démarrez Visual Basic.NET et créez un nouveau projet « Application Windows Forms ». Ajouter un « TextBox » et deux « boutons » à la forme.

• Cliquez sur « Projet » dans le menu « Fichier » et sélectionnez "< projet > Propriétés". Sélectionnez « Références » dans le volet gauche, cliquez sur "Add...". Cliquez sur l'onglet « COM », sélectionnez « Bibliothèque d'objets Microsoft Excel 12.0 » et cliquez sur « OK ».

• Double-cliquez sur le formulaire pour ouvrir le module « Form1.vb ». Sous « Form1_Load » tapez la commande suivante pour ajouter une chaîne de texte dans la zone de texte : Me.TextBox1.Text = « J'ai copié cette chaîne à partir d'une application VB et collé dans Microsoft Excel. »

• Cliquez sur « Form1.vb [Design] » onglet, puis double-cliquez sur « Button1 ». Tapez la commande suivante sous « Button1_Click » pour copier la chaîne vers presse-papiers : Dim obj As New Clipboard.SetDataObject(Me.TextBox1.Text) de processus

• Tapez ce qui suit jusqu'au sommet de votre module « Form1.vb »: importations Microsoft.Office.Interop.Excel

• Cliquez sur « Form1.vb [Design] » onglet, puis double-cliquez sur « Button2 ». Type de ce qui suit pour créer une nouvelle feuille de calcul, ouvrez-le et copiez la chaîne copié dans le presse-papiers de votre application VB : Dim objClipbrd As IDataObject = Clipboard.GetDataObject() Dim objXL As Microsoft.Office.Interop.Excel.Application = Nothing Dim objBks As Microsoft.Office.Interop.Excel.Workbooks = Nothing Dim objBk As Microsoft.Office.Interop.Excel.Workbook = Nothing Dim objShts As Microsoft.Office.Interop.Excel.Sheets = Nothing Dim objSht As Microsoft.Office.Interop.Excel.Worksheet = null objXL = nouveau Microsoft.Office.Interop.Excel.Application objXL.Visible = True 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 avec objClipbrd si. GetDataPresent(DataFormats.Text) puis objSht.Cells (1, 1) =. GetData(DataFormats.Text) End If se termine par

• Exécutez votre programme et cliquez sur « Button1 » pour copier la chaîne affichée dans la zone de texte. Cliquez sur « Button2 » pour ouvrir une nouvelle feuille de calcul Excel et coller la chaîne.