Discussion :

[GRIMPMASTER]

Bonjour,
j'ai des donnée en multilangue qui s'affiche dans des textbox,
je veux afficher un bouton d’impression losque un font arabe ou hébreu est afficher
quel code a ajouter pour reconnaitre un font arabe ou hébreu dans un textbox ?
Merci

[ProgElecT]

Salut

Dans le principe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Text1_Change()
Dim CFGFont As StdFont
Set CFGFont = Text1.Font
Const HEBREU = 177
Const ARABE = 178
If CFGFont.Charset = HEBREU Or CFGFont.Charset = ARABE Then
    Command1.Visible = True
    Else
    Command1.Visible = False
End If
Set CFGFont = Nothing
End Sub

Je pense qu'il te faudra trouver un autre évenement que le Text1_Change

[GRIMPMASTER]

Merci Pour votre aide, ça marche très bien , j'ai mis ça sur un timer.
merci encore.