تابع لموضوع زر الماوس

بسم الله الرحمن الرحيم

تحية طيبة و بعد

أخي العزيز

يكفيك اختيارك لاسمك هذا أن يعفيك من أي اعتذار

أرجو منك ان ترسل لي الملف حتى أطبق لك الكود عليه

و الله الموفق

بسم الله الرحمن الرحيم

تحية طيبة و بعد

يمكنك استخدام الشفرة التالية

Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long

Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Private Sub Form_Load()

Dim I As String

Dim A As Long

B = 32512

S = App.Path & "1.cur"

A = LoadCursorFromFile(S)

SetSystemCursor A, B

DestroyCursor A

End Sub

أو حمل الملف التالي

changecursor.zip

الف شكر

تعبتك معي

ما بقدر ولله اعبر عن شكري لك بالكلام

(f)

اخوي Pcbat ماشاء الله عليك منور

الله يعطيك العافية

:)

بسم الله الرحمن الرحيم

الأخ حسين حفظه الله

وجد منتداكم بكافة أقسامه ليكون مكانا لا يحس فيه الإنسان بأنه أهدر وقته في التفاعل معه

فجزاكم الله ألف خير و يسر لكم وللجميع سبله و حفظكم الله على التزامكم لهذا النهج في المنتدى و الله الموفق