منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اريد تغير من ال 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

(29-03-15, 12:02 AM)ameerah كتب : [ -> ]

كود :

Me.Icon = My.Resources.WW

كود :

PictureBox1.Image = My.Resources.WW.ToBitmap

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

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

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

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أسامة

أسامة

أسامة

أسامة