+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : هل يمكن اداف صوره بامتداد icon الى PictureBox (/showthread.php?tid=7552)
هل يمكن اداف صوره بامتداد icon الى PictureBox - مبتدئ - 03-02-13
هل يمكن اداف صوره بامتداد icon الى PictureBox
جربت هذا الكود
كود :
For Each i As ListViewItem In ListView1.SelectedItems
If i.SubItems.Count >= 3 Then
Dim pr As New Process
pr.StartInfo.FileName = "explorer.exe"
pr.StartInfo.Arguments = i.SubItems(2).Text.Remove(i.SubItems(2).Text.LastIndexOf("\") + 1, _
(i.SubItems(2).Text.Length - i.SubItems(2).Text.LastIndexOf("\") - 1))
TextBox1.Text = pr.StartInfo.Arguments + ListView1.SelectedItems.Item(0).Text + ".exe"
End If
Next
Dim myHandle As IntPtr
For Each proc In Process.GetProcesses
If proc.MainWindowHandle = myHandle Then
Dim a As Icon
a = Icon.ExtractAssociatedIcon(TextBox1.Text)
ImageList1.Images.Add(a)
PictureBox1.Image = ImageList1.Images(0)
nIndex = nIndex + 1
End If
Nextهل يمكن اداف صوره بامتداد icon الى PictureBox - m.sami.ak - 04-02-13
هنا لعرض الصورة من موقع بالجهاز :
PHP كود :
' Function for loading the icon from disk in 48x48 size '
Private Function LoadIconFromFile(ByVal fileName As String) As Icon
Return New Icon(fileName, New Size(48, 48))
End Function
' code for loading the icon into a PictureBox '
Dim theIcon As Icon = LoadIconFromFile("C:\path\file.ico")
pbIcon.Image = theIcon.ToBitmap()
theIcon.Dispose()
' code for drawing the icon on the form, at x=20, y=20 '
Dim g As Graphics = Me.CreateGraphics()
Dim theIcon As Icon = LoadIconFromFile("C:\path\file.ico")
g.DrawIcon(theIcon, 20, 20)
g.Dispose()
theIcon.Dispose()
هنا لعرض الصور من الريسورس :
PHP كود :
Private Function LoadIconFromFile(ByVal fileName As String) As Icon
Dim result As Icon
Dim assembly As System.Reflection.Assembly = Me.GetType().Assembly
Dim stream As System.IO.Stream = assembly.GetManifestResourceStream((assembly.GetName().Name & ".file.ico"))
result = New Icon(stream, New Size(48, 48))
stream.Dispose()
Return result
End Function
تحياتي للجميع
ابـــو سامـــي
هل يمكن اداف صوره بامتداد icon الى PictureBox - مبتدئ - 04-02-13
M.Sami.AK كتب :هنا لعرض الصورة من موقع بالجهاز :
PHP كود :
' Function for loading the icon from disk in 48x48 size '
Private Function LoadIconFromFile(ByVal fileName As String) As Icon
Return New Icon(fileName, New Size(48, 48))
End Function
' code for loading the icon into a PictureBox '
Dim theIcon As Icon = LoadIconFromFile("C:\path\file.ico")
pbIcon.Image = theIcon.ToBitmap()
theIcon.Dispose()
' code for drawing the icon on the form, at x=20, y=20 '
Dim g As Graphics = Me.CreateGraphics()
Dim theIcon As Icon = LoadIconFromFile("C:\path\file.ico")
g.DrawIcon(theIcon, 20, 20)
g.Dispose()
theIcon.Dispose()
هنا لعرض الصور من الريسورس :
PHP كود :
Private Function LoadIconFromFile(ByVal fileName As String) As Icon
Dim result As Icon
Dim assembly As System.Reflection.Assembly = Me.GetType().Assembly
Dim stream As System.IO.Stream = assembly.GetManifestResourceStream((assembly.GetName().Name & ".file.ico"))
result = New Icon(stream, New Size(48, 48))
stream.Dispose()
Return result
End Function
تحياتي للجميع
ابـــو سامـــي
جزاك الله خير اخى