inserer un tableau dans richtextbox

**sanach** · 21/04/2008, 12h24

Je voudrais insérer un tableau dans un richtextbox !! Mais je n'ai trouvé aucune source détaillée pour cette opération ! est ce que quelqu'un peut me mettre sur la voie?

Merci

**OhMonBato** · 21/04/2008, 13h12

Pourtant en tapant "RichTextBox Tableau" sur Google, il y a pas mal de lien, j'ai tourve ca par exemple :

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

PublicClass Form1
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ch AsString
ch = tableaurtf(3, 10, 300)
RichTextBox1.Rtf = ch
EndSub
Function tableaurtf(ByVal nbcol AsInteger, ByVal nbligne AsInteger, ByVal largeur AsInteger) AsString
Dim i, j AsInteger, result AsString
result = "{\rtf1\trowd"
For i = 1 To nbcol
result = result + "\cellx" + (i * (2000 + largeur)).ToString
Next
For j = 1 To nbligne
result = result + "\intbl"
For i = 1 To nbcol
result = result + "\cell"
Next
result = result + "\row"
Next
result = result + "}"
Debug.Print(result)
Return result
EndFunction
EndClass