HOW TO DISPLY ALL FONTS IN VB.NET
====================================================================================
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim F As System.Drawing.FontFamily
Dim A As String = ""
For Each F In System.Drawing.FontFamily.Families
A += F.Name + vbCrLf
Next
MessageBox.Show(A)
End Sub
=====================================================================================
No comments:
Post a Comment