+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : رجاء عاجل من الاخوة الافاضل ( بعض التوضيحات فى References ) (/showthread.php?tid=9444)
رجاء عاجل من الاخوة الافاضل ( بعض التوضيحات فى References ) - ali.alfoly - 27-06-13
السلام عليكم ورحمة الله
ارجو شرح هذه الواجهة شرح كامل وافى عاجل جدا
[ATTACH=CONFIG]3221[/ATTACH]
وشرح الخصائص
[ATTACH=CONFIG]3222[/ATTACH]
السبب فى هذا الطلب العاجل وجدت رد احد الاخوة فى احد المشاركات
محمد عمر مصصطفى كتب :اخي العزيز فقط اريد التنويه لمعلومه مهمة جدا قبل نسخ ملف debug فهذه الطريقه استخدمها وهي فعاله ولكن اقوم بتنصيب .netframe work 3 or 4 or 4.5
على الجهاز المراد تشغيل البرنامج عليه
ام الخطوة المهمة التي اود التنبيه اليها
من project > properties > refernces
ستلاحظ ظهور جدول بمصادر المشروع
من عممود copy local
ستلاحظ ان بعض منها true و الاخر false
قم بتحديد العناصر التي لها خيار false ثم من لوحة الخصائص قم بتعديل خيار copylocla الى true
ثم اعد بناء البرنامج
رجاء عاجل من الاخوة الافاضل ( بعض التوضيحات فى References ) - 3booody - 28-06-13
[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
اخي العزيز علي المقصود بــReferences:
المكتبات الخارجية التي تريد تضمينها في المشروع الحالي والوصول إلى فئاتها(الملفات ذات الامتداد dll)
وبالنسبه الى الصوره الأولى فهي بالتأكيد المكتبات التي يوفرها لك فيجول بيسك
تحياتي[/COLOR]
رجاء عاجل من الاخوة الافاضل ( بعض التوضيحات فى References ) - ali.alfoly - 28-06-13
بالفعل اخى الكريم كما قلت لاكن المطلوب معرفته
1 - انظر اشارة رقم 9 فى الصورة عند تحديد اى فئه تغنيك عن تعريفها فى فضاء الكلاس امبورت هل هذا صحيح
2 - عند جعل كل المكتبات الخاصية copy local الى true يتم دمج كل المكتبات مع البرنامج داخل ملف bin\Debug هل فى هذه الحالة يتم الاستغناء عن نت فورم ورك لجهاز العميل ويعمل البرنامج بدونها
رجاء عاجل من الاخوة الافاضل ( بعض التوضيحات فى References ) - 3booody - 28-06-13
1-نعم بالفعل تقوم بإستيراد مجال الاسماء
2-اعتقد ان هذه الامور لتجاوز اطار NET Framework تتعلق بـ Windows API
رجاء عاجل من الاخوة الافاضل ( بعض التوضيحات فى References ) - ali.alfoly - 28-06-13
جزاك الله خيرا
اريد منك توضيح بسيط حول Windows API وما المقصود بها
واريد ان اعرف ماذا تعرف عن هذه الصورة
[ATTACH=CONFIG]3223[/ATTACH]
رجاء عاجل من الاخوة الافاضل ( بعض التوضيحات فى References ) - 3booody - 28-06-13
بصراحة لقد تطرقت الى موضوع Windows API منذ زمن بعيد وكل ما اذكر عنه انه يستخدم لتجاوز حدود عالم الاطار NET Framework من خلال التصريح عن اجراء بإستخدام Declare وهناك ثلاث انواع لتحديد صفحة المحارف (Ansi,Unicode,Auto,) وانا لم اهتم بذلك الموضوع كفاية من قبل لذلك لا املك الخبره الكافيه به وان شاء الله احد الاخوه يساعدنا به
رجاء عاجل من الاخوة الافاضل ( بعض التوضيحات فى References ) - AHMED HUSSIEN - 28-06-13
السلام عليكم ورحمة الله وبركاته
Windows Api تمنحك تحكم اكثر بنظام التشغيل فمثلا يمكنك البحث عن نافذة والتحكم بها مثل تكبيرها-تصغيرها وهذا مثال على ذالك
PHP كود :
Public Class WindowFinder
<System.Runtime.InteropServices.DllImportAttribute("user32.dll", EntryPoint:="FindWindowA")> _
Public Shared Function FindWindowA(<System.Runtime.InteropServices.InAttribute(), System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.LPStr)> ByVal lpClassName As String, <System.Runtime.InteropServices.InAttribute(), System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.LPStr)> ByVal lpWindowName As String) As System.IntPtr
End Function
<System.Runtime.InteropServices.DllImportAttribute("user32.dll", EntryPoint:="ShowWindow")> _
Public Shared Function ShowWindow(<System.Runtime.InteropServices.InAttribute()> ByVal hWnd As System.IntPtr, ByVal nCmdShow As Integer) As <System.Runtime.InteropServices.MarshalAsAttribute(System.Runtime.InteropServices.UnmanagedType.Bool)> Boolean
End Function
Public Const SW_NORMAL As Integer = 1
Public Const SW_MAXIMIZE As Integer = 3
Public Const SW_RESTORE As Integer = 9
Public Const SW_MINIMIZE As Integer = 6
Public Shared Sub Maximize(WinTitle As String)
Dim H As IntPtr = FindWindowA(Nothing, WinTitle)
ShowWindow(H, SW_MAXIMIZE)
End Sub
Public Shared Sub RestoreDown(WinTitle As String)
Dim H As IntPtr = FindWindowA(Nothing, WinTitle)
ShowWindow(H, SW_NORMAL)
End Sub
Public Shared Sub Minimize(WinTitle As String)
Dim H As IntPtr = FindWindowA(Nothing, WinTitle)
ShowWindow(H, SW_MINIMIZE)
End Sub
End Class
وهناك برنامج سيساعدك فى Winows API تجده فى الرابط التالى
P/Invoke Interop Assistant v1