تويت
نتواصل معكم لنكتشف خبايا الموضوع و لنا عودة
-
-
بالنسبة لتفعيل الاضافةالمشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركةقبل مواصلة مجموعة أخرى ضخمة المتعلقة بمنصة الوينداوز
كنت بصدد إعداد تجميعية وأحتجت لمنع المستخدم من الخروج من حدود التجميعية فأحببت
أن أقرأ لك هذا الكود الجميل و توفيره هنااا لاستغلاله
1 - ماذا لو يكون مشروعنا يتميز بأنه flat و ننزع الاختيار movable
وفعل الاضافة Memory
2 - نزرع في globbal functions
[html]function EnableWindow(nHWND, bEnable)
local nEnable=0
if bEnable then nEnable = 1 end
DLL.CallFunction("user32.dll", "EnableWindow", nHWND..","..nEnable, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
end
function MouseClipping()
_RECT = Memory.CreateStructure("long, long, long, long");
Memory.SetStructureData(_RECT, 1, 0, nLeft, "");--left
Memory.SetStructureData(_RECT, 2, 0, nTop, "");--top
Memory.SetStructureData(_RECT, 3, 0, nRight, "");--right
Memory.SetStructureData(_RECT, 4, 0, nBottom, "");--bottom
DLL.CallFunction(_SystemFolder.."\\User32.dll", "ClipCursor", _RECT, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL)
Memory.FreeStructure(_RECT);
end
function Screen_coordinates()
nLeft = 0;
nTop = 0;
nRight = System.GetDisplayInfo().Width;
nBottom = System.GetDisplayInfo().Height;
end
function Do_clipping()
Input.SetText ("Input_left", nLeft);
Input.SetText ("Input_top", nTop);
Input.SetText ("Input_right", nRight);
Input.SetText ("Input_bottom", nBottom);
Page.StartTimer(250);
Label.SetText ("Label4", "Press Alt+F4 to disable clipping.");
Ex_it = 1;
end[/html]3 - في on show
4 - في on timerكود PHP:nHWND = Application.GetWndHandle();
nLeft = Window.GetPos (nHWND).X;
nTop = Window.GetPos (nHWND).Y;
nRight = Window.GetSize (nHWND).Width+nLeft;
nBottom = Window.GetSize (nHWND).Height+nTop;
Do_clipping();
[html]nActiveHWND = String.ToNumber(DLL.CallFunction(_SystemFolder.."\ \User32.dll", "GetActiveWindow", "", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if nActiveHWND == nHWND then
else
EnableWindow(nHWND, true);
end
MouseClipping();[/html]--عاين مشروعك حينها تكتشف أنه كان من الأحسن وضع زر للمغادرة
السلام عليكم ورحمة الله تعالى و بركاته
Memory
كيف يتم ذلك؟
لاننى اواجه رسالة
تعليق
-
السلام عليكم ورحمة الله وبركاته
تعليق
-
ممتاااااااااااااااااااااا ااااااااااااااااااز
فعلا اشتغلت تمام
وجزاكم الله كل خير
دمت مبدعا ومتميزا وبارك الله فيكتعليق
-
ترحيل معطيات عنصر Gridإلى ورقة ايكسل محددة
[hide]http://up.top4top.net/downloadf-top4...cdfa1-rar.html[/hide]تعليق
-
شكرا جزيلاالمشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركةترحيل معطيات عنصر gridإلى ورقة ايكسل محددة
المحتوى المخفي لايقتبس
استاذ
انا ارسلت اليك رسالة عبر الخاص هل وصلتك؟تعليق
-
أخي أحمد فعلا قرأت رسالتك و بمجرد أن أجد الشروحات إن لم تكن ضاعت سأرسلها لك
فقد فقدت عديد المرات محتويات الجهاز إن شاء الله أجدها و حينها لن أبخل
تعليق
-
للتجربة و التحميل و الاستفادةالمشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركةترحيل معطيات عنصر gridإلى ورقة ايكسل محددة
المحتوى المخفي لايقتبس
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .تعليق
-
المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة
شكرا على الملف .....و على فتح الصندوق و يكاني لم امر بالموضوع سابقاتعليق
-
بورك فيك
تعليق
-
شكرا للأساتذة على المجهودتعليق
-
السلام عليكم ورحمة الله وبركاته
من الإنشغالات ... ندرج هذه الاستراحة البرمجية :
الســـؤال كان كالتالي :
[hide]السلام عليكم ورحمة الله وبركاته
أريد أن اعرض موقع لمنتدى في انبوت Input
و اتصفحه داخل Input
لم اعرف الطريقة[/hide]
الجواب :
[hide]فعل الإضافـــة Memory
ضف أنبوت في التجميعيــة
كود :
[/hide]كود PHP:function Event(sMsg, nRes)
if sMsg == "" then
title = Memory.GetObjectEventParam(Ex, 1, OBJECT_RETURN_STRING)
end
end
Ex = Memory.CreateObject(Input.GetProperties("Input1").WindowHandle, "Shell.Explorer.2", "Event");
Memory.CallObjectFunction(Ex, "Navigate", "https://sites.ienajah.com/vb2/vb");
تعليق
-
-
و هل يمكـــن و يعقل أن تتعامل الأكـــواد مع موقع دون غيره ومن الهندسة الصناعية بالذات ؟المشاركة الأصلية بواسطة فرح صالحي مشاهدة المشاركة
وظف صديقي الأكواد بطريقة جيدة إن أردت و لا تكتفي و تحكم من تجربة واحدة و قد تكون أساسا خاطئةتعليق
-
السلام عليكم ورحمة الله وبركاته
تشعر بالرتابة و الملل .... تنتظر أسئلة في قسم الاستفسارات لتملأ وقتك بحثا
عن الاجابة
بأسرع وقت ... لا جديد ... في انتظار تحقق ذلك
إليك بسؤالي البسيط
التمرين كالتالي :
27 = x x
24 = x x x
96 = x x 
x
? = x +
أكتب حلا برمجيا للمعادلة الأخيرة
بأقل تكلفة للأكواد و هو المغزىتعليق
تعليق