mind [at] .net -- not a geek

Q:
Bagaimana meng-list InstallFont di system kita dengan mudah?

A:
Tentu saja mudah, dengan class InstalledFontCollection, jadi indah dech hari-nya.
Contoh di bawah adalah men-list Install Font ke dalam Label dalam Panel pada winforms.

	// namespace: System.Drawing.Text
	// Wrapper dari List Install Font
	InstalledFontCollection FontFamilies = new InstalledFontCollection();
	// Iterate font ke label
	//pnlFonts merupakan Panel Control
	int offset = 10;
	foreach (FontFamily family in FontFamilies.Families)
	{
		try
		{
			Label fontLabel = new Label();
			fontLabel.Text = family.Name;
			fontLabel.Font = new Font(family, 14);
			fontLabel.Left = 10;
			fontLabel.Width = this.pnlFonts.Width;
			fontLabel.Top = offset;

			// Panel-nya di buat Scroallable
			this.pnlFonts.Controls.Add(fontLabel);
			offset += 30;
		}
		catch { } //Kadang tidak semua font support normal style
	}

	' namespace: System.Drawing.Text
	' Wrapper dari List Install Font
	Dim FontFamilies As InstalledFontCollection = New InstalledFontCollection()
	' pnlFonts merupakan Panel Control
	Dim offset As Integer = 10
	For Each family As FontFamily In FontFamilies.Families
		Try
			Dim fontLabel As Label = New Label()
			fontLabel.Text = family.Name
			fontLabel.Font = New Font(family, 14)
			fontLabel.Left = 10
			fontLabel.Width = pnlFonts.Width
			fontLabel.Top = offset

			' Panel-nya di buat Scroallable
			pnlFonts.Controls.Add(fontLabel)
			offset += 30
		Catch
			' Kadang tidak semua font support normal style
		End Try
	Next

Share this post: | | | |