التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لتغيير خلفية قرص و الأيكون الخاص به
#1
كاتب الموضوع : 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]
}}}
تم الشكر بواسطة:


الردود في هذا الموضوع
كود لتغيير خلفية قرص و الأيكون الخاص به - بواسطة Raggi Tech - 17-10-12, 07:08 PM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم