+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد .net (http://vb4arb.com/vb/forumdisplay.php?fid=117)
+---- الموضوع : توليد أيقونة من نص (/showthread.php?tid=6232)
توليد أيقونة من نص - RaggiTech - 17-10-12
كاتب الموضوع : Boutemine Oualid
السلام عليكم و رحمة الله و بركاتهفيبي .نت
كود :
Function CreateIcon(string s) As Icon
Dim bmp As New Bitmap(16, 16)
Dim brush As New SolidBrush(Color.Black)
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawString(s, New Font("Arial", 10f), brush, 0, 0)
g.Dispose()
Dim hIcon As IntPtr = bmp.GetHicon()
Return Icon.FromHandle(hIcon)
End Functionكود :
public static Icon CreateIcon(string s)
{
Bitmap bmp = new Bitmap(16, 16);
SolidBrush brush = new SolidBrush(Color.Black);
Graphics g = Graphics.FromImage(bmp);
g.DrawString(s, new Font("Arial", 10f), brush, 0, 0);
g.Dispose();
IntPtr hIcon = bmp.GetHicon();
return Icon.FromHandle(hIcon);
}