Partager via


IInfoPathDataImporter.Import - Méthode

Importe les données dans le formulaire actif.

Espace de noms :  Microsoft.Office.Interop.InfoPath
Assembly :  Microsoft.Office.Interop.InfoPath (dans Microsoft.Office.Interop.InfoPath.dll)

Syntaxe

'Déclaration
Sub Import ( _
    pPrintSettings As IPropertyBag, _
    punkViewControls As IEnumUnknown _
)
'Utilisation
Dim instance As IInfoPathDataImporter
Dim pPrintSettings As IPropertyBag
Dim punkViewControls As IEnumUnknown

instance.Import(pPrintSettings, punkViewControls)
void Import(
    IPropertyBag pPrintSettings,
    IEnumUnknown punkViewControls
)

Paramètres

  • punkViewControls
    Type : IEnumUnknown

    Une collection mshtml.IEnumUnknown des contrôles dans l'affichage.

Remarques

Les paramètres d'impression suivants sont disponibles par le biais de l'interface IPropertyBag .

Imprime la valeur

Description

PageSize

Taille de page en cours, tels que A4, B4, lettre.

TopMargin

La marge supérieure de la vue actuelle.

BottomMargin

La marge inférieure de la vue actuelle.

LeftMargin

La marge de gauche de la vue actuelle.

RightMargin

La marge de droite de la vue actuelle.

MarginUnitsType

Unités de mesure de la marge.

Pour plus d'informations sur l'importation par programme des données dans un formulaire InfoPath, voir le Portail des développeurs InfoPath sur le Centre de développement Microsoft Office.

Exemples

Dans l'exemple suivant, la méthode Import de l'interface IInfoPathDataImporter est utilisée pour effectuer une itération dans la collection mshtml.IEnumUnknown des contrôles IInfoPathViewControl dans l'affichage du formulaire actif.

La routine Import est la partie principale d'une solution servant à générer un importateur de données personnalisé. Le projet Visual Studio requiert une référence à la Bibliothèque de Type Microsoft Office InfoPath 2.0 et System.Windows.Forms, avec Imports les instructions pour chaque, ainsi que les instructions mshtml.Implements sont requises pour générer les signatures des méthodes fournies par les interfaces de l'importateur des données personnalisées, y compris IInfoPathDataImporter, IInfoPathDataImporterFields, IInfoPathViewControlet IPropertyBag.

Notes

Pour créer un importateur de données personnalisé à l'aide d'une bibliothèque de classes .NET, cochez la case inscrire pour COM interop sur l'onglet de compilation de l'éditeur de propriétés de classe.

Notes

Pour déboguer un importateur de données personnalisé, définissez une Action de démarrage dans Visual Studio pour Démarrer le programme externe et accédez à INFOPATH. EXE situé dans < lecteur > : \Program Files\Microsoft Office\Office12\. Cette option est disponible sous l'onglet débogage de l'éditeur de propriétés de classe.

Imports Microsoft.Office.Interop.InfoPath
Imports System.Windows.Forms
Imports mshtml

<ComClass(Class1.ClassId, Class1.InterfaceId, Class1.EventsId)> Public Class Class1
   Implements Microsoft.Office.Interop.InfoPath.IInfoPathDataImporter
   Implements Microsoft.Office.Interop.InfoPath.IInfoPathDataImporterFields
   Implements Microsoft.Office.Interop.InfoPath.IInfoPathViewControl
   Implements Microsoft.Office.Interop.InfoPath.IPropertyBag

   Public Const ClassId As String = _
      "1FEB0DF8-E7F1-4b21-A9EE-B06D5FECC572"
   Public Const InterfaceId As String = _
      "9F9F685C-71A0-46ec-A7F9-A86AF8CBC2A8"
   Public Const EventsId As String = _
      "ED7C0C49-3F89-40a2-A50E-C59E8F682B08" 

Public Sub Import( _
   ByVal pPrintSettings As Microsoft.Office.Interop.InfoPath.IPropertyBag, _
   ByVal punkViewControls As mshtml.IEnumUnknown) _
   Implements Microsoft.Office.Interop.InfoPath.IInfoPathDataImporter.Import

   Dim pControl As IInfoPathViewControl
   Dim pUnk As Object
   Dim pcelt As UInt16 = 1
   Dim pceltFetched As UInt16 = 0

   Try
      'Gets first control in the view
      punkViewControls.RemoteNext(pcelt, pUnk, pceltFetched)

      Do While pUnk.ToString() <> "Nothing"
         pControl = pUnk
         MessageBox.Show(pControl.ControlType)
         'Gets next control in the view
         punkViewControls.RemoteNext(pcelt, pUnk, pceltFetched)
      Loop
   Catch e As Exception
      If e.Message = _
         "Object reference not set to an instance of an object." Then
         'Signals the end of the enumeration/controls in the view
      Else
         MessageBox.Show("Error: " & e.ToString & " " & e.Message)
      End If
   End Try
End Sub

Voir aussi

Référence

IInfoPathDataImporter interface

IInfoPathDataImporter - Membres

Microsoft.Office.Interop.InfoPath - Espace de noms