الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ضروري جدا جدا؛ كود لتغيير خلفية سطح المكتب إلى

مغلق
بدأه The SNiper في 2 يوليو 2005 · 5 رد · 651 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الإخوة الأحبة:

من المعلوم للجميع مقدرة أي منا على تغيير خلفية سطح المكتب إلى صحفة HTML،،،

أريد صنع برنامج من خصائصه أنه يمكن المستخدم من تغيير خلفية سطح مكتبه إلى صفحة HTML يختارها، لكن المشكلة في الكود :(

أملك واحدا لكنه لا يتيح لي غلى تحديد صورة، وتحديدا BMP

قررت التعديل على الريجستري، وفعلا وجدت القيمة المطلوبة، وهي wallpaper على المفتاح

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General

لكن المشكلة أن التعديلات لا تتم إلا بعد عمل LogOff للجهاز...

أريد مساعدتكم في جعل التعديلات (أي إضافة صفحة الHTML على سطح المكتب) تتم مباشرة بمجرد الضغط على زر، ولا أظن هذا صعبا عليكم :)

...أخوكم

#2

ما الذي يحدث هنا؟!!!

لا أفكار، لا محاولات لإيجاد حل، أو اقتراحات لحل هذه المشكلة؟!!!

أرجوكم يا إخوة، ساعدوني :(

#3

حراااام عليكم يا إخوة؛

لماذا تهملونني بهذه الصورة :( :( :(

#4

سأبحث لك اخي sniper وا ن شاء الله اجد الحل

ولو في احد بيعرف اكيد ماراح يبخل عليك

*************************************************

**************************************************

مصطفى زيداني

#5

وجدت لك كود يغير الخلفية مباشرة بدون عمل Log Off للويندوز

ولكن يغير الخلفية إلى ملف BMP

قم بنسخ ولصق الكود الآتي في مشروع فيجوال بيزك جديد

قم بوضع زر على الفورم وأداة CommonDialog التي تستدعي لك مربع حوار فتح حتى تختار ملف الصورة

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Const SPI_SETDESKWALLPAPER = 20
Const SPIF_UPDATEINIFILE = &H1

Private Sub Command1_Click()
    'Set the commondialogbox' title
    CommonDialog1.DialogTitle = "Choose a bitmap"
    'Set the filter
    CommonDialog1.Filter = "Windows Bitmaps (*.BMP)|*.bmp|All Files (*.*)|*.*"
    'Show the 'Open File'-dialog
    CommonDialog1.ShowOpen
    'Change the desktop's background
    SystemParametersInfo SPI_SETDESKWALLPAPER, 0, CommonDialog1.FileName, SPIF_UPDATEINIFILE
End Sub

Private Sub Form_Load()
    Command1.Caption = "Set Wallpaper"
End Sub

ملاحظة:

لإدراج أداة CommonDialog اضغط Ctrl + T ثم ضع علامة صح أمام Microsoft Common Dialog Control 6.0

ثم انقر نقر مزدوج على زر الأداة في مربع شريط الأدوات لإدراجها على الفورم.

#6

الحمد لله أن تجاوبت معي أخي mostafazidani

وأرجو من جميع إخوتي المحاولة، فأنا متأكد أن الطريقة موجودة،،، فقد رأيت شبيها لها في برنامج FlashDesktop لمن جربه...

حفظكم الله أجمعين

أخي / aroma_kt

شكرا لك على المحاولة، لكنني أملك هذا الكود، وهو لاينفع إذا لا يتيح لي تعيين صفحة HTML كخلفية،

شكرا لك مرة أخرى، وجزاك الله عني كل خير...

أنتظركم إخوتي

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…