منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
change icon - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : change icon (/showthread.php?tid=11901)

change icon - أسامة - 28-03-15

اريد تغير من ال icon 
هذا الكود لايعمل لا اعرف لماذا
كود :
       Dim resources As New System.Resources.ResourceManager(GetType(Form1))
       Me.Icon = CType(resources.GetObject("WW.ico"), System.Drawing.Icon)

و هذا ايضآ

كود :
     Dim Ic As Icon = New Icon(My.Resources.WW)
       Dim bmp As New Bitmap(Ic.Width, Ic.Height)
       Dim g As Graphics = Graphics.FromImage(bmp)
       g.DrawIcon(Icon, 0, 0)
       PictureBox1.Image = bmp


RE: change icon - أسامة - 29-03-15

(29-03-15, 12:02 AM)ameerah كتب :
كود :
Me.Icon = My.Resources.WW

كود :
PictureBox1.Image = My.Resources.WW.ToBitmap

هذا الكود لايعمل على صيغه icon

RE: change icon - أسامة - 29-03-15

تم الحل
Dim fullPath As String = IO.Path.GetFullPath(My.Resources.ResourceManager.BaseName)

fullPath = fullPath.Substring(0, fullPath.Length - 39) & "Resources\"

RE: change icon - أسامة - 29-03-15

(29-03-15, 01:50 AM)ameerah كتب : تذكرت مثل يقول (أذنك فين يا جحا!)

شكرى اخى الكود يعمل لاكن اعتقد على نوع ico معيآ