|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : afficher des polices de caractère dans un ComboBox [ Archives Visual Basic / J'AI BESOIN D'AIDE !!!! :) ] (PHILOUVB)
 Informations & options pour cette discussion
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é 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
VBA : Obtention adresse MAC : Probleme d allocation Memoire [ par bankrout ]
Bonjour a tous,Je désire creer une macro VBA qui me permettera de recuperer l adresse mac du PC, afin de securiser l utilisation du classeur.Comme tou
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
LG KP501
Entre 9€ et 159€
|