تقييم الموضوع :
  • 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]
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال بسيط لتغيير طريقة استخدام اداة العنان Label مع الشرح RaggiTech 0 803 20-10-12, 11:50 AM
آخر رد: RaggiTech
  كود لأخذ الأيكون من ملفexe RaggiTech 0 224 17-10-12, 07:04 PM
آخر رد: RaggiTech
  لتغيير لغة الكتابة الافتراضية للتطبيق RaggiTech 0 260 17-10-12, 06:05 PM
آخر رد: RaggiTech
  لتغيير دقة العرض Screen Resolution RaggiTech 0 453 17-10-12, 06:05 PM
آخر رد: RaggiTech
  تحديد المعرف unc الخاص بجهاز على الشبكة RaggiTech 0 236 17-10-12, 05:54 PM
آخر رد: RaggiTech
  لتغيير لون الخط والخلفية في Console Application RaggiTech 0 409 17-10-12, 05:27 PM
آخر رد: RaggiTech
  لتغيير حجم الصورة RaggiTech 0 301 17-10-12, 05:27 PM
آخر رد: RaggiTech

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


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