'//Add a treeview control to your form
'//Paste this in your form
Private sub form_load()
Dim i As Integer
With TreeView1.Nodes
Set Root = .Add(, , , "Available System Fonts")
For i = 1 To Screen.FontCount - 1
.Add Root.Index, tvwChild, , Screen.Fonts(i)
Next
End With
end sub
In the above code, notice the "set Root". This line is the name of the Title or the Category, and anything below it is considered its "subtitles". For example:
Title
[]- Subtitle
[]-Subtitle
Tile 2
[]-Subtitle
[]-Subtitle
Add all fonts to a treeview control
This example will show you how to add all your system fonts to the treeview control.
You might also like...
age:14, programmer;languages(vb, c++,vbscript, html)
VB 6 forum discussion
-
CorelDRAW VBA: cdrTraceLineDrawing FAILS, producing single linear path instead of Centerline trace?
by dancemanj (0 replies)
-
client/server application using activex
by beautifulheart (0 replies)
-
System Error &H8007007E. The specifed module could not be found.
by swiftsafe (5 replies)
-
Invitation to take part in an academic research study
by researchlab (0 replies)
-
Send SMS with SMPP
by mmahmoud (0 replies)
VB 6 podcasts
-
Stack Overflow Podcast: Podcast #45 – Keeping it Sharp
Published 7 years ago, running time 0h54m
Our guest this week is Eric Lippert – language architect extraordinaire and famous for all his work at Microsoft in developing their languages Eric joined Microsoft right out of college and was originally working on VB It’s time for everyone’s favorite game: Name the Worst Feature of that Microso.
Comments