Accueil > Forum > > > > afficher des polices de caractère dans un ComboBox
 afficher des polices de caractère dans un ComboBox
mercredi 5 avril 2006 à 19:24:23 |
afficher des polices de caractère dans un ComboBox
PHILOUVB
|
Bonjour à tous Grace à l'API EnumFont, je peux afficher l'ensemble de mes polices dans un Combo. Le truc, c'est que je ne voudrais afficher que celles présentes dans le répertoire C:\Windows\Fonts.  Mon problème est que la fonction EnumFont affiches l'ensemble des polices.  Pouvez-vous m'aider  ci-dessous le bout de code Private Const LF_FACESIZE = 32
Type LOGFONT
lfHeight As Long
lfWidth As Long
lfEscapement As Long
lfOrientation As Long
lfWeight As Long
lfItalic As Byte
lfUnderline As Byte
lfStrikeOut As Byte
lfCharSet As Byte
lfOutPrecision As Byte
lfClipPrecision As Byte
lfQuality As Byte
lfPitchAndFamily As Byte
lfFaceName(LF_FACESIZE) As Byte
End Type
Declare Function EnumFonts Lib "gdi32" Alias "EnumFontsA" (ByVal hDC As Long, ByVal lpsz As String, ByVal lpFontEnumProc As Long, ByVal lParam As Long) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
Function EnumFontProc(ByVal lplf As Long, ByVal lptm As Long, ByVal dwType As Long, ByVal lpData As Long) As Long
Dim LF As LOGFONT, FontName As String, ZeroPos As Long
CopyMemory LF, ByVal lplf, LenB(LF)
FontName = StrConv(LF.lfFaceName, vbUnicode)
ZeroPos = InStr(1, FontName, Chr$(0))
If ZeroPos > 0 Then FontName = Left$(FontName, ZeroPos - 1)
Combo1.Add (FontName)
EnumFontProc = 1
End Function |
|
mercredi 5 avril 2006 à 20:00:27 |
Re : afficher des polices de caractère dans un ComboBox
DARKSIDIOUS
|
Réponse acceptée !
Utilise plutôt l'objet Printer pour énumérer tes polices : voir ma source permettant de visualiser les polices dans un listbox par exemple. _
Avant de poster dans le forum,
prière d'aller lire ceci :
http://www.codes-sources.com/reglement.aspx
|
|
mercredi 5 avril 2006 à 22:55:26 |
Re : afficher des polices de caractère dans un ComboBox
MasterHack
|
Réponse acceptée !
salut,
ou l'objet screen
Life is short...Learn more
Copy Rights <> Rights to Copy
|
|
jeudi 6 avril 2006 à 06:34:10 |
Re : afficher des polices de caractère dans un ComboBox
mortalino
|
Réponse acceptée !
Salut
Essaie ça :
Sub Recherche_Police()
Dim i As Long, DLUcolA As Long
Sheets.Add
Application.DisplayAlerts = False
Application.ScreenUpdating = False
With Application.CommandBars.FindControl(ID:=1728)
For i = 1 To .ListCount
Cells(i, 1).Value = .List(i)
Cells(i, 2).Value = "Exemple"
' Cells(i, 2).Font.Name = .List(i)
' Cells(i, 2).Font.Size = 12
Next i
End With
Cells(1, 1).EntireColumn.AutoFit
DLUcolA = Columns(1).Find("", [A1], , , xlByRows, xlNext).Row - 1
Range("A1:A" & DLUcolA).Select
Selection.Copy
Sheets("Listes").Select (=> change le nom de la feuille)
Range("B2").Select
ActiveSheet.Paste
ActiveWorkbook.Names.Add Name:="ListePolices", RefersToR1C1:= _
"=Listes!R2C2:R" & DLUcolA + 1 & "C2"
Sheets("Feuil1").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
( Merci à ta4444 qui m'a donné le code récemment, je l'ai à peine modifié)
C'est trop fort
Pour l'exemple, j'ai appelé la Liste "ListePolices" donc après tu peux faire ComboBox1.RowSource = "ListePolices"
@++
Mortalino
|
|
Cette discussion est classée dans : long, afficher, byte, lf, fontname
 Répondre à ce message
 Sujets en rapport avec ce message
pb recuperation de l'adresse mac sous winNT [ par andrea ]
Bonjour, J'ai un probleme lorsque j'essaie de recuperer l'adresse mac d'un ordinateur qui est sous NT cela me renvoie toujours la valeur suivant 0.0.0
Vb et les dll [ par fabmas ]
bonjour, j'essaie juste de faire une petite DLL de rien du tout mais ca mrche pas !l'erreur c'est que mon prog d'utilisation de cette dll ne trouve pa
RasDial + Error [ par jsmeiway ]
Bonjour,J'ai récupéré une fontion avec l'api RasApi32.dllqui récupère les connexions en cours,j'ai trouvé des exemples de connexion pour gérer les err
Comment récupérer l'adresse d'une variable de type long ou byte ou.... sous VB 4 ??? [ par TheMarz ]
Pour utiliser certaines API win32, j'ai besoin de passer en paramètre des adresses de variables de type Long, Byte ou autre. Malheureusement, l'entrep
importation de dll sous VB 6.0 [ par Bojczuk ]
Bonjour,j'ai besoin de connaitre la façon d'incorporer une fonction issue d'une DLL avec un passage par valeur pour un type défini par l'utilisateur.E
RasGetEntryDialParams ne fonctionne pas [ par wtor ]
la fonction RasGetEntryDialParams() retourne les parametres de l'entre RAS mais le mot de passe retourne "****************"voici le code:'------------
prise en compte paramétre imprimante sous word [ par mathbou73 ]
Bonjour,je me permets de poster ce message après plusieurs journées de recherche sur le web et sur vbfrance entre autres. Voila mon souci, je souhaite
BMP en mémoire comme Byte array. L'afficher en PictureBox / Image ? [ par trancemaster ]
Bonjour, J'ai un Byte array (dim myArray() as Byte) qui a 76085 éléments, et contient un bitmap de 176 x 144 (BMP24).Ce que j'arrive à lire du myArr
Chargement d'image depuis un tableau de byte [ par badmike95 ]
Salut, Actuellement je charge mes images avec la librairie de PaintX.dll de sorte à faire ceci :Public Function LoadPNG(filename As String) As StdPic
problème avec GetMACAddress [ par Ce.plusplus ]
Bonjour, j'ai un petit problème avec un code très courant qui permet de donnner l'adresse MAC d'une machine... Cela aurai pu ne pas être gênant, mais
 Livres en rapport
|
Derniers Blogs
 GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|