Poniamo il caso di voler impostare un TabPanel con tre tabelle. Per ogni tabella imposteremo un'immagine di tipo Picture ed un testo colorato del titolo:
Public Sub Form_Open()
TabPanel1.Count = 3
With TabPanel1[0]
.RichText = "<FONT color=yellow>1</font>"
.Picture = Picture.Load("/percorso/immagine")
End With
With TabPanel1[1]
.RichText = "<FONT color=green>2</font>"
.Picture = Picture.Load("/percorso/immagine")
End With
With TabPanel1[2]
.RichText = "<FONT color=blue>3</font>"
.Picture = Picture.Load("/percorso/immagine")
End With
End
...non saprei.
A me funziona perfettamente !
Posso anche aggiungere che se vuoi inserire il grassetto del testo puoi fare così:
With TabPanel1[2]
.RichText = "<FONT color=green><B>2</b></font>"
....prova anche questo: :D
With TabPanel1[1]
.RichText = "<Table border=1><TR><TD>1</td><TD>2</td></tr><TR><TD>3</td><TD>4</td></tr></table>"
Aggiungo che la proprietà .RichText consente di impostare anche immagini:
With TabPanel1[0]
.RichText = "<img src=/percorso/dell'immagine></img>"
......
...ma anche contemporaneamente immagine e testo:
With TabPanel1[0]
.RichText = "<img src=/percorso/dell'immagine></img> kicco"
......