اقتراح لشرح دوال API

ما شاء الله

اللهم زد و بارك

اليكم هذين الدالتين و هما أبسط دالتين في الفيجوال بيسك بأكمله :D

GetPixel :

هذه الدالة ترجع لك لون نقطة في صورة معينة و هي جميلة جدا عيبها الوحيد أنها بطيئة شيئا ما لذا أنصح باستعمالها مع صورة صغيرة الى حد ما ...

الدالة :

Public Declare Function GetPixel Lib "gdi32" Alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

الشرح :

hdc : هنا تحدد مقبض الأداة التي توجد بها الصورة التي تريد التعامل معها مثلا PictureBox1.Hwnd أو PictureBox1.Hdc

لا أذكر :wacko: ذلك أني هجرت الفيبي 6 منذ مدة و لا يوجد عندي في الجهاز المهم أكيد واحدة من هذين :rolleyes:

X,Y : طبعا تحدد بهما احداثياث النقطة التي تريد من الدالة ارجاع لونها

---------

SetPixel :

الدالة :

Public Declare Function SetPixel Lib "gdi32" Alias "SetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long

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

الشرح :

hdc : هنا تحدد مقبض الأداة التي تود رسم النقطة فيها سواء كانت اداة حاضنة الصور او الفورم او أي أداة اخرى ترجع مقبضها من خلال خصائصها:

X,Y : طبعا تحدد بهما احداثياث النقطة التي تريد من الدالة رسمها

crColor : لون النقطة التي تود رسمها و قد تستعمل هنا اللون المسترجع من الدالة الأولى أو أي لون تريد

----------------------

مثال على استخدام هذين الدالتين :

عمل برنامج يقوم بمقارنة صورتين و رسم الفرق بينهما في أداة و التشابه في أداة

أنا لن أضع الكود لكن أتمنى منكم التفكير و محاولة عمله ;)

و السلام عليكم ورحمة الله و بركاته

هو ده التفاعل :lol:

الدالة GetCaretBlinkTime

الاعلان :

Private Declare Function GetCaretBlinkTime Lib "user32" Alias "GetCaretBlinkTime" () As Long

وتعود هذه الدالة بزمن سرعة وميض مؤشر الكتابة كما هى محددة فى لوحة التحكم والزمن يكون بوحدة المللى ثانية:rolleyes:

الدالة SetCaretBlinkTime

الاعلان عنها:

Private Declare Function SetCaretBlinkTime Lib "user32" Alias "SetCaretBlinkTime" (ByVal wMSeconds As Long) As Long

تستقبل هذه الدالة معامل واحد وهو wMSeconds والذى يحدد الزمن الذى نريد وضعه لسرعة وميض مؤشر الكتابة ويكون ايضا بوحدة المللى ثانية :rolleyes:

الدالة SetCaretPos

هذه الدالة تقوم بوضع مؤشر الكتابة داخل اداة مثل كست بوكس او ريتش تكست فى مكان تحدده انت وتكتب كالاتى

Private Declare Function SetCaretPos Lib "user32" Alias "SetCaretPos" (ByVal x As Long, ByVal y As Long) As Long

وطبعا لاحاجة لشرح المعاملين X,Y :rolleyes:

ايوه كده ياعم ghost اعطيهم

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

شرح رائع و جميل أرجوا الاستمرار و اضافة المزيد :)

اليكم ال API الشهيرة SetWindowLong ووظيفتها التحكم فى خصائص أى نافذة أو كنترول له مقبض hwnd

و اليك شرح لمعاملات هذه الدالة :

---------------------------------

1- hwnd :

و هو مقبض النافذة المراد التحكم بها

2- nIndex :

وهو نوع التحكم فى النافذة أو الجزأ المطلوب التحكم به وقد يأخذ القيم التالية:

CODEConst GWL_WNDPROC = (-4)
Const GWL_HINSTANCE = (-6)
Const GWL_HWNDPARENT = (-8)
Const GWL_STYLE = (-16)
Const GWL_EXSTYLE = (-20)
Const GWL_USERDATA = (-21)
Const GWL_ID = (-12)

وقد اخترنا هنا العنصر GWL_EXSTYLE وهو اختصار Extended style أى خصائص إضافية لشكل النافذة أو الكنترول

3- dwNewLong :

وهى ثمثل القيمة التى ستأخذها النافذة وذلك حسب نوع التحكم الذى اخترناه فى nIndex

فمثلا لو اخترنا GWL_EXSTYLE فأن dwNewLong قدتأخذ القيم التالية :

CODEConst WS_EX_DLGMODALFRAME = &H1&
Const WS_EX_NOPARENTNOTIFY = &H4&
Const WS_EX_TOPMOST = &H8&
Const WS_EX_ACCEPTFILES = &H10&
Const WS_EX_LAYOUTRTL = &H400000 ' وهى الخاصية الخاصة بال RightToLEft
Const WS_EX_TRANSPARENT = &H20&

أما لو اخترنا GWL_STYLE (العناصر الاساسية فى مظهر الفورم) فأن dwNewLong قد تأخذ القيم التالية :

CODEConst WS_MINIMIZE = &H20000000
Const WS_VISIBLE = &H10000000
Const WS_MAXIMIZE = &H1000000
Const WS_DISABLED = &H8000000

مثال أخير ..... نحن نريد أن نجعل النافذة Form1 : disabled

إذا خاصية WS_disabled موجودة تحت GWL_STYLE فإن الكود سيكون كالتالى :

SetWindowLong Form1.hwnd , GWL_STYLE , WS_DISABLED

أتمنى أن أكون أوصلت المعلومة

و أرجوان يستفيد الجميع :)

يعطيك العافيه اخي vb6_Rocket واخي ghost على الشرح الجميل وعلى التفاعل

ربنا يوفقكم ويزيدكم

شكرا لكل من تفاعل مع الموضوع

الدالة GetTickCount

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

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As Long

هذه الدالة تعود لك بالزمن الذى مر منذ تشغيل الجهاز بوحدة المللى ثانية :rolleyes:

الدالة SetForegroundWindow

الاعلان عنها:

Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

هذه الدالة تقوم بتنشيط النافذة التى نمرر مقبضها الى المعامل hwnd اى انها تجعل هذه النافذة هى النافذة المتأثرة بكل احداث الماوس ولوحة المفاتيح حتى لو كانت مصغرة فى شريط المهام :rolleyes:

الله ينور عليك يا جووست 2010

بارك الله فيك

الدالة CopyFile

طريقة الاعلان:

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

هذه الدالة تقوم بنسخ ملف الى المكان الذى نحدده وتحتاج لثلاثة معاملات هى

1-lpExistingFileName والذى يعبر عن مسار الملف الذى نريد نسخه

2-lpNewFileName المسار الذى نريد النسخ اليه

3-bFailIfExists هذا المعامل تستطيع بواسطته التحكم فى اتمام عملية النسخ اذا ماكان المسار الذى ستنسخ فيه الملف يحتوى على ملف بنفس الاسم بمعنى:

اذا كان لديك ملف يسمى Test.txt موجود فى المسار C:\Test.txt وتريد ان تنسخه الى المسار D:\Test.txt وكان المسار D:\ يحمل فعلا ملف بنفس الاسم Test.txt ففى هذه الحالة لن تتم عملية النسخ الا اذا جعلت قيمة المعامل bFailIfExists = 0

لااعلم اذا كان قد فهمنى احد ام لا لان مستوايا فى الشرح....... :wacko: :wacko: :rolleyes:

يسلااااااااااااام لو يتم تثبيت مواضيع الapi كلها ف مكان واحد حتى لو كانت بأى لغة علشان الواحد يأخذ خبرة أكتر

أرجو الرد من المشرفين بحيث تكون مرجع refrence لكل من أراد تعليم الapi علشان يعتر الsyntax واحد بس أختلافات ف الكتابة

وشكرا

اقتباس

يسلااااااااااااام لو يتم تثبيت مواضيع الapi كلها ف مكان واحد حتى لو كانت بأى لغة علشان الواحد يأخذ خبرة أكتر

أرجو الرد من المشرفين بحيث تكون مرجع refrence لكل من أراد تعليم الapi علشان يعتر الsyntax واحد بس أختلافات ف الكتابة

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

الدالة MoveWindow

طريقة التعريف:

Declare Function MoveWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

هذه الدالة تقوم بتحريك نافذة فى المكان الذى نحدده وهذه النافذة من الممكن ان تكون اداة وليس شرط ان تكون فورم حيث ان كل ماله مقبض فهو نافذة ومعاملات الدالة كالاتى:

1-hwnd مقبض النافذة التى ستستقبل حدث التحريك وتغيير الابعاد

2-x بعد النافذة عن الجانب الايسر للشاشة

3-y بعد النافذة عن الجانب العلوى للشاشة

4-nWidth عرض النافذة الذى تريد تغيير عرض النافذة اليه

5-nHeight ارتفاع النافذة الجديد

6-bRepaint دائما مانجعل قيمته 1 حيث انه يعمل عمل الامر Refresh حيث يقوم باعادة رسم النافذة بابعادها الجديدة وفى مكانها الجديد :rolleyes:

تمام يا محمد

بارك الله فيك وفى جميع الاخوة اللى شاركوا فى هذا الموضوع

بالفعل هذا الموضوع من اجمل ما رأيت فى شرح الAPI

اسم الدالة : Netsendbuffermessage

الوظيفة : ارسال مسج الى جهاز اخر داخل الشبكة الداخلية.

الدالة :

Private Declare Function NetMessageBufferSend Lib _
 "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
 yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long

Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
  FromUser As String, BodyMessage As String) As Boolean

  Dim RcptTo() As Byte
  Dim From() As Byte
  Dim Body() As Byte

  RcptTo = RcptToUser & vbNullChar
  From = FromUser & vbNullChar
  Body = BodyMessage & vbNullChar
  SendMessage = False
  
  If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
       Body(0), UBound(Body)) = NERR_Success Then
    SendMessage = True
  End If

End Function

طريقة استدعاء الدالة :

(Call Sendmessage( receipent computer name , sender computer name , themessage

تضع بدل receipent computer name اسم الجهاز المستقبل

تضع بدل sender computer name اسم الجهاز المرسل

تضع بدل themessage الرسالة المراد ارسالها

وترجع هذه الدالة قيمتين اما True او False

وهي تدل اذا الرسالة وصلت او لا

شكراً على تفاعلكم مع الموضوع وربنا يوفق الجميع وخصوصا اللى فى امتحانات :wacko: :wacko: :rolleyes:

تمام هذه المشاركات اصبحت مرجع للعديد من الدوال مشكـــــــــــــــور الجهد المبذول صديقي محمد .

موضوع رائع ..

منتدى vb شغال ونشيط بأعضاءه ..

استفدت من الموضوع .. حتى لو كنت مبرمج ++C .. فالصيغة نفسها .. الا اننا في السي لانحتاج الى الاعلان عن الدوال او عن الثوابت ..

اتمنى ان تواصلوا ولو حبتين زيادة :)

اقتباس

استفدت من الموضوع

لااصدق ان الشمرى استفاد من احد موضوعاتى :lol: :lol:

انت بالشكل ده هتخلينى اخد مقلب فى نفسى :lol: :lol:

الدالة ShowCursor

هذه الدالة تقوم باخفاء او اظهار مؤشر الماوس ويتم الاعلان عنها على الصورة التالية

Private Declare Function ShowCursor Lib "user32.dll" (ByVal bShow As Long) As Long

المعامل bShow هو المسؤل عن العملية المطلوبة سواء كانت اظهار المؤشر او اخفاؤه وتأخذ القيمة 1 اذا كان نريد اخفاء المؤشر والقيمة 0 اذا كنا نريد اظهاره :rolleyes:

الدالة HideCaret

هذه الدالة تقوم باخفاء مؤشر الكتابة من اداة معينة مثل صندوق نص ويتم الاعلان عنها كالاتى

Public Declare Function HideCaret Lib "user32" Alias "HideCaret" (ByVal hwnd As Long) As Long

المعامل hwnd هو مقبض الاداة التى ستستقبل حدث اخفاء المؤشر :rolleyes:

الدالة ShowCaret

عكس الدالة السابقة اى انها تقوم باظهار مؤشر الكتابة ويتم الاعلان عنها كالاتى

Public Declare Function ShowCaret Lib "user32" Alias "ShowCaret" (ByVal hwnd As Long) As Long

المعامل hwnd هو مقبض الاداة التى ستستقبل حدث اخفاء المؤشر :rolleyes: