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 :
Merci
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()
Partager