+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=6291)
كود لتغيير خلفية قرص و الأيكون الخاص به - RaggiTech - 17-10-12
كاتب الموضوع : egyption-coder
كود تغيير الخلفيةكود :
Public Sub SetIconbac(ByVal Drivename As String, ByVal IconName As String)
If IO.File.Exists(IconName) = True Andalso IO.Path.GetExtension(IconName) = ".ico" Then
My.Computer.Registry.SetValue("hKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & Drivename & "\Defaulticon", "", IconName)
Else
MsgBox("[FONT=Tahoma]الملف غير موجود [/FONT]")
End If
End Subكود :
dim drivename as string
dim filename as string
If IO.File.Exists(IconFileName) = True And IO.Path.GetExtension(IconFileName) = ".ico" Then
My.Computer.Registry.SetValue("hKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\" & Drivename & "\Defaulticon", "", IconFileName)
Else
MsgBox("[FONT=Tahoma]الملف غير موجود [/FONT][SIZE=1][SIZE=3]")[/SIZE]
[SIZE=1]End If[/SIZE]
[/SIZE]