Bonjour
Je voudrais creer un document Word a partir de VB.Net, mais j'ai plusieurs problemes :
Je n'arrive pas a aller a la ligne suivante
et je voudrais inserer une image, prise d'un controle OpenGL (Controle du Framework TAO). J'arrive deja a enregistrer cette image en me servant de glReadPixels, mais je ne sait pas comment creer une image et l'ajouter dans word.

Voila ma source :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
    Public Sub Savetoword()
        Dim Appword As New Word.Application
        Dim MonDoc As Word.Document = Appword.Documents.Add
        Appword.Visible = False
        Clipboard.SetDataObject(FrmMain.LblTemp.Text)
 
        Dim i As Integer
        Dim StrWrite As String
        For i = 0 To FrmMain.ListViewDaten.Items.Count - 1
            StrWrite = FrmMain.ListViewDaten.Items(i).Text + " " + FrmMain.ListViewDaten.Items(i).SubItems(1).Text
            MonDoc.Content.InsertAfter(StrWrite)
'Et la je voudrais passer a la ligne suivante
        Next
 
        FrmMain.OpenGlControlKontur.Refresh() 
        Dim CurrentWidth As Integer = FrmMain.OpenGlControlKontur.Size.Width
        Dim CurrentHeight As Integer = FrmMain.OpenGlControlKontur.Size.Height
        Dim b As Bitmap = New Bitmap(CurrentWidth, CurrentHeight, Imaging.PixelFormat.Format64bppArgb)
        Dim bd As Imaging.BitmapData = b.LockBits(New System.Drawing.Rectangle(0, 0, CurrentWidth, CurrentHeight), Imaging.ImageLockMode.WriteOnly, Imaging.PixelFormat.Format32bppArgb)
        Gl.glReadPixels(0, 0, CurrentWidth, CurrentHeight, Gl.GL_BGRA_EXT, Gl.GL_UNSIGNED_BYTE, bd.Scan0)
        b.UnlockBits(bd)
        b.RotateFlip(RotateFlipType.RotateNoneFlipY)
 
        MonDoc.Content.InsertCaption(b) 'Ne marche pas (CastException
 
        MonDoc.Save()
        Appword.Quit()
Merci