Ayant beaucoup de fonts, j'ai pensé utiliser un programme
en VB pour visualiser et choisir les polices que l'on trouve
sur le Net, sans avoir à les installer.
C'est fait, avec des bouts de code trouvés ça et là j'ai
mon visualisateur.
MAIS je voudrais pouvoir effacer une police sélectionnée que
je ne veux pas garder.
J'ai donc ajouté un bouton pour effacer.
J'utilise KILL qui m'a toujours donné satisfaction.
Cette fois, j'ai un compte rendu d'erreur:
"Erreur dans le chemin d'accès"
et on ne peut pas effacer la police, qui n'est pas installée
ni protégée en ecriture.
Si je remplace l'extension ttf par txt, tout va bien et le fichier
est effacé.
Comment faire?
Merci à ceux qui pourront me venir en aide.
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
Salut,
Pour désinstaller une police, une méthode plus élégante est l'api
RemoveFontResource() :
--
Nicolas G.
FAQ VB : http://faq.vb.free.fr
API Guide : http://www.allapi.net
Google Groups : http://groups.google.fr/
MZ-Tools : http://www.mztools.com/
-- Nicolas G. FAQ VB : http://faq.vb.free.fr API Guide : http://www.allapi.net Google Groups : http://groups.google.fr/ MZ-Tools : http://www.mztools.com/
JeanPaul
Je te remercie Nicolas. Comme je l'avais dit, dans mon cas, les polices que je visualise et que je veux pouvoir effacer ne sont
PAS ENREGISTREES dans le dossier de Windows. Donc je voulais faire simple.
Il m'est venu à l'idée de jouer sur l'extension. Donc voici le mini programme que j'ai fini par faire pour tester mon idée:
Dim Fichier As String Const Chemin = "C:Tempor" 'Dossier où sont les fonts à trier
Private Sub Command1_Click()
Fichier = Dir(Chemin & "trebuc.ttf") 'trebuc.ttf étant une des polices en test If Fichier = "" Then Exit Sub Name Chemin & Fichier As Chemin & Mid$(Fichier, 1, Len(Fichier) - 4) & ".txt" Text1.Text = Mid$(Fichier, 1, Len(Fichier) - 4) & ".txt" Text2.Text = "C:Tempor" + Text1.Text Kill (Text2.Text) End Sub
ça fonctionne, on peut voir l'extension changer et le fichier disparaître, mais je vais essayer par l'API que tu m'as signalée.
Merci encore
Je te remercie Nicolas.
Comme je l'avais dit, dans mon cas, les polices que je visualise et que je veux pouvoir effacer ne
sont
PAS ENREGISTREES dans le dossier de Windows.
Donc je voulais faire simple.
Il m'est venu à l'idée de jouer sur l'extension.
Donc voici le mini programme que j'ai fini par faire pour tester mon idée:
Dim Fichier As String
Const Chemin = "C:Tempor" 'Dossier où sont les fonts à trier
Private Sub Command1_Click()
Fichier = Dir(Chemin & "trebuc.ttf") 'trebuc.ttf étant une des polices en test
If Fichier = "" Then Exit Sub
Name Chemin & Fichier As Chemin & Mid$(Fichier, 1, Len(Fichier) - 4) & ".txt"
Text1.Text = Mid$(Fichier, 1, Len(Fichier) - 4) & ".txt"
Text2.Text = "C:Tempor" + Text1.Text
Kill (Text2.Text)
End Sub
ça fonctionne, on peut voir l'extension changer et le fichier disparaître, mais je vais essayer par
l'API que tu m'as signalée.
Je te remercie Nicolas. Comme je l'avais dit, dans mon cas, les polices que je visualise et que je veux pouvoir effacer ne sont
PAS ENREGISTREES dans le dossier de Windows. Donc je voulais faire simple.
Il m'est venu à l'idée de jouer sur l'extension. Donc voici le mini programme que j'ai fini par faire pour tester mon idée:
Dim Fichier As String Const Chemin = "C:Tempor" 'Dossier où sont les fonts à trier
Private Sub Command1_Click()
Fichier = Dir(Chemin & "trebuc.ttf") 'trebuc.ttf étant une des polices en test If Fichier = "" Then Exit Sub Name Chemin & Fichier As Chemin & Mid$(Fichier, 1, Len(Fichier) - 4) & ".txt" Text1.Text = Mid$(Fichier, 1, Len(Fichier) - 4) & ".txt" Text2.Text = "C:Tempor" + Text1.Text Kill (Text2.Text) End Sub
ça fonctionne, on peut voir l'extension changer et le fichier disparaître, mais je vais essayer par l'API que tu m'as signalée.
