Discussion :

[Ashireon]

Bonjour à tous

Je cherche comment activer spellcheck sur un richtextbox.
Apparemment la propriété existe dans les exemples ou tutos mais je ne la trouve pas dans les propriétés des objets richtextbox, et je ne peux pas la déclarer non plus en programme vb.

KKun a une idée de comment proceder pour activer le correcteur d’orthographe
?

Merci bien

[Ashireon]

Je suis sur la voir pour trouver comment activer le correcteur orthographique sur un RTB.

Il faut utiliser apparemment un RTB créer en wpf l'ajouter au projet et ne pas oublier d'activer la propriété spellcheck.

ensuite il faut importer l'objet via un ElementHost , et la je but sur une erreur.

Object type ne peut pas être null???

Une personne a deja importer un element Wpf dans un Winform?

[Ashireon]

J'ai finit par y arriver donc voici mon code pour ceux que ca intéresse de creer un richTextBox avec correcteur orthographique.

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
 Dim wpfRTFHost As New ElementHost
    Dim RTBWPF As New System.Windows.Controls.RichTextBox()
    Public FileName As String = String.Empty
    Public datatbl01 As New DataTable
 
    Public Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        ' allows WPF controls to be hosted in a Win32 application
        ' create an instance of RTF box and enable SpellCheck
        System.Windows.Controls.SpellCheck.SetIsEnabled(RTBWPF, True)
        ' hosts the WPF control, fills the window
        wpfRTFHost.Child = RTBWPF
        ' add to the Win32 window
        Me.Controls.Add(wpfRTFHost)
        RTBWPF.VerticalScrollBarVisibility = ScrollBarVisibility.Auto
        RTBWPF.HorizontalScrollBarVisibility = ScrollBarVisibility.Auto
    End Sub

Il faut absolument déclarer le usercontrol.WPF avant de le copier dans l'interface graphique du winform.

Ensuite le positionner dans votre winform

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
28
29
30
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: cette ligne de code charge les données dans la table 'DBGMAODataSet.InterventionConso'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.InterventionConsoTableAdapter.Fill(Me.DBGMAODataSet.InterventionConso)
        'TODO: cette ligne de code charge les données dans la table 'DBGMAODataSet.conso'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.ConsoTableAdapter.Fill(Me.DBGMAODataSet.conso)
        'TODO: cette ligne de code charge les données dans la table 'DBGMAODataSet.Personnel'. Vous pouvez la déplacer ou la supprimer selon vos besoins.
        Me.TextBox5.Text = Convert.ToString(GMAO.ListBox1.SelectedItem)
 
        Me.PersonnelTableAdapter.Fill(Me.DBGMAODataSet.Personnel)
        Me.Achat_MaterielTableAdapter.Fill(Me.DBGMAODataSet.Achat_materiel)
 
        Me.TextBox1.Text = GMAO.TextBox1.Text
        Me.TextBox3.Text = GMAO.TextBox2.Text
        Me.TextBox8.Text = GMAO.TextBox14.Text
 
        Me.RichTextBox1.Text = GMAO.RichTextBox1.Text
 
        With datatbl01
            .Columns.Add("ID")
            .Columns.Add("Article")
        End With
 
 
        wpfRTFHost.Height = 80
        wpfRTFHost.Width = 350
        wpfRTFHost.Location = New Point(386, 576)
 
 
 
    End Sub