التحدي الكبير

اقتباس

GetMenu: يعيد مقبض القائمة (Handle) عن طريق تمرير مقبض الفورم

وليس ما يعيده هو عدد ال Menu في الفورم

أنا لست مختلفا معك لكن اذا كان لدينا 2 Menus سيعيد لنا مقبضهما لكن هذا المقبض هو عبارة عن رقم ترتيب ال Menu يعني من 0 الى آخر Menu موجود و انا قلت "عدد" فقط للتبسيط

و نفس الشئ بالنسبة للدوال الأخرى

اقتباس

لوضع صورة لعنصر ما في قائمة فرعية نستخدم كما ذكرت SetMenuItemBitmaps ونمرر له مقبض القائمة (أي القيمة التي يعيدها GetMenu) ثم مقبض عنصر القائمة الفرعية (أي القيمة التي يعيدها GetMenuItemID) ثم باقي البارميترات كما ذكرت.

مقبض في حالتنا هذه يختلف عن مقبض في حالات أخرى اذ انه هنا يعني بكل بساطة و دون تعقيد رقم ال Menu او ال SubMenu ... لكن طبعا المقبض قد يكون رقم معقد مثلا لو أردنا الحصول على مقبض نافذة برنامج ما يشتغل على جهازنا ...

أظن أن هذا كل شئ

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

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

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

حضرة الأخ crazy-man:

في البداية أنا اعتقدت أنك حين قلت المقبض هو عدد ال Menu أنك كنت تعني ال Count ولكن يبدو أنك قصدت رقم الترتيب أو Index ولهذا ما زال كلامك هذا خاطئاً

اقتباس

أنا لست مختلفا معك لكن اذا كان لدينا 2 Menus سيعيد لنا مقبضهما لكن هذا المقبض هو عبارة عن رقم ترتيب ال Menu يعني من 0 الى آخر Menu موجود و انا قلت "عدد" فقط للتبسيط

اختلف كلامك عن كلامي فالمقبض ليس رقم ترتيب ال Menu (أو Index)

وإنما هو عبارة عن رقم طويل Long وهو فريد Unique أي لا يوجد أي نافذة أو زر أو مربع نص ......إلخ

لها نفس هذا المقبض في الوقت نفسه في نظام التشغيل

وهذا ما يميزه عن Index (أو رقم الترتيب)

ولو أعاد الفنكشن GetMenu القيمة 0 فهذا يعني أنه فشل ولا يعني أبداً أن ما أعاده هو مقبض القائمة الأولى.

وإن كنت لا تصدق وأردت التأكد من صحة كلامي فجرب كتابة الكود وتشغيل البرنامج سطراً سطراً عن طريق F8 ثم مرر الماوس على المتحول lngMenu لمعرفة القيمة التي يحتويها وهي القيمة التي أعادها الفنكشن GetMenu وستجد أنها من المستحيل أن تكون مساوية للصفر إلا في حال فشل الفنكشن.

اقتباس

مقبض في حالتنا هذه يختلف عن مقبض في حالات أخرى اذ انه هنا يعني بكل بساطة و دون تعقيد رقم ال Menu او ال SubMenu ...

عندما قلت لك مقبض فإن ما أعنيه هو دوماَ رقم طويل Long وهو فريد Unique ولم أقصد أن له حالات خاصة كأن يكون رقم الترتيب (أو Index) ولو أنا قصدت قول غير هذا لما استعملت في كلامي كلمة المقبض (Handle) أصلاً.

أرجو أن تكون الفكرة قد وضحت لديك.

وشكراً...

صحيح ... انت صح

يبدو اني أسات الفهم :blink:

و الاعتراف بالخطأ فضيلة (حتى أخرج مرفوع الرأس :D )

مشكلتي أني كنت عارف اني كنت عارف انو بيرجع ال Handle بتاع ال Menu و انو لو رجع 0 يعني مفيش بس و الله العظيم لا أدري ما حدث لي :blink: و انا كنت استعمل هذه الدالة دائما و بتعامل معها جيدا بس يبدو أني لما أردت ان أشرح أخطأت

و مرة ثانية : و الاعتراف بالخطأ فضيلة (حتى أخرج مرفوع الرأس :D )

يالله أعطونا السؤال التالي :D

الحمد لله إنك وافقتني الرأي

أنا متأكدة أنك كنت تعرف ولكن اختلط عليك الأمر :wacko: - على كل لا مشكلة جميعنا يحصل معه هذا

وأنت رأسك مرفوع على طول

يلا شباب هاتولنا سؤال للمحترفين

سؤالي هو كيف تضيف ايقونة لبرنامجك على ال Internet Explorer Toolbar ؟

والصورة توضح :

هذا مثال يوضح المطلوب

s_Tools_Menu_and_an_Icon_on_the_Toolbar.rar

يوووووووووووووووه الكود ده طوييييييييل جدا و معقد دون فائدة و قد عملت عليه و جعلته يبدو أصغر فأصغر فأصغر :D فهل تصدق أنه أصبح 10 أسطر فقط و يقوم بنفس العمل بكفاءة ;)

اليكم الكود

Explorer.rar

الله يعطيك العافيه أخوي

أنا اللي همني هو تفيذ المطلوب

لكن ماشاءالله عليك أنت مبدع

أنا سؤالي هذا الموضوع

http://www.arabteam2000.com/forums/index.php?showtopic=69029

قمت بنشره ولم أجد له إجابه

هل من مجيب في هذا التحدي الكبير

لا مبدع و لا أي حاجة انا مثلي مثلكم و ربما أقل

بالنسبة لموضوعك فأنا لم أفهم قصدك جيدا

ما شاء الله تبارك الله .. ما توقعت ابد ان موضوعي يحصل على هذا التفاعل المبهر .. هي صار اكثر من موضوع بيتناقش وبيتحدو فيه الشباب

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

سلام عليكم

غلط مطبعي .. العفو منكم ... اللع قصد بها الله يعطيكم العافيه .. سلام عليكم

السلام عليكم إخوانى المبرمجين

أنا شفت إنوا الشباب بيدخلوا هذه الصفغحة كتير لأهميتها

و أنا قمت بطرح الطلب هذا فى موضوع مستقل وما فى حدا أبدى له أى إهتمام

و أنا حبيت إنى أطرح فكرتى و يا ريت تفيدونى

أولا أنا مطلوب منى مشروع تخرج فى الجامعة

أنا إخترت مشروع مخازن

فحبيت إنوا تبدوللى بأفكار و أكواد حول هذا الموضوع تفيدنى و تفيد غيرى

مع الشكر

السلام عليكم ..

الإجابة :

الطريقة الأولي :

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Const WM_GETTEXT = &HD

Private Sub Command1_Click()
Dim lngHwnd As Long
Dim lngClassHwnd As Long
Dim strText As String * 10000

lngHwnd = FindWindow(vbNullString, "text.txt - Notepad")
Debug.Print lngHwnd
lngClassHwnd = FindWindowEx(lngHwnd, 0&, "Edit", vbNullString)
Debug.Print lngClassHwnd



SendMessageSTRING lngClassHwnd, WM_GETTEXT, 10000, strText
Debug.Print strText
End Sub

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

Private Sub Command1_Click()
AppActivate ("text.txt - Notepad")
Wait
SendKeys ("%+E")
Wait
SendKeys ("A")
Wait
SendKeys ("%+E")
Wait
SendKeys ("C")
Wait
Debug.Print Clipboard.GetText
End Sub

Private Sub Wait()
For i = 1 To 350
 DoEvents
Next
End Sub

==================================================

السؤال الحالي :

يوجد عندنا متغيران حرفيان String هما Str1,Str2

نريد نقل قيمة المتغير Str1 إلي Str2 بدون استخدام القانون الحسابي

Str2=Str1

==================================================

عزيزي crazy-man

سؤالي هو أنه عندي لنفرض 100 جهاز كمبيوتر أريد أن أعمل لها جميعا إتصال إنترنت

والطريق التقليديه هي الذهب وعمل الإعدادن عن طريق خصائص الإنترنت وإضافة اليوزر نيم والباسوور والبروكسي والبورت

لكن هذا يأخد الوقت الطويل في حالة ال 100 جهاز

اريد عمل برنامج تكون مخزنه فيه هذه القيم وبمجرد تشغيل البرنامج في الجهاز يعمل على إضافة القيم في خصائص الإتصال في الإنترنت وعمل إتصال جديد

ونفس الشيء أيضا لإضافة إعدادات الشبكه

هناك برامج لشركات إنترنت تعمل هذا العمل مجرد تشغيل البرنامج في الجهاز فيقوم هو بعمل جميع الإعدادت اللازمه

أرجو أن يكون سؤالي واضحا الأن

ولكم جزيل الشكر والإحترام والتقدير

السلام عليكم ،،

اقتباس

السؤال الحالي :

يوجد عندنا متغيران حرفيان String هما Str1,Str2

نريد نقل قيمة المتغير Str1 إلي Str2 بدون استخدام القانون الحسابي

Str2=Str1

نستخدم الدالة CopyMemory علمًا بأنها من دوال API ، مثال :

CopyMemory str2,str1,len(str1)

والسلام عليكم ،،

جزاك الله الف خير اخي المبرمج احمد ..

.. وناسف على الانقطاع ولكنها لظروف الاختبارت .. فهي قريبه جدا ..

ان شاء الله يعود الحماس الى عهد السابق ..

وقد احزنني ان رأية هذه الصفحه خامده .. وقد توالت عن الانظار ..

ليس لانها موضوعي وانما لما كان لها من فوائد ..

ادعو لي بالتوفيق ..

سلام عليكم

السلام عليكم

لماذا يتجاهل الجميع سؤالي ؟؟؟؟؟؟؟؟؟؟

:D اظن ان السبب هو انك حددت لمن هذا السؤال موجه ؟؟؟؟

عزيزي crazy-man

سؤالي هو أنه عندي لنفرض 100 جهاز كمبيوتر أريد أن أعمل لها جميعا إتصال إنترنت

:rolleyes: :rolleyes:

B) هههههههه اني امازحك فقط ...

انا لا اعرف الاجابه على هذا السؤال والا لكنت اول من يجيب .. لكن ارجو من الاخوة الكرم التفاعل وايجاد الجواب ..

اعتذر اردت ان اعمل اقتباس؟؟؟؟ لا كود ..

اكرر الاعتذار

شكرا لردك أخي ANSI

هذا سؤالي

اقتباس

أنا سؤالي هذا الموضوع

http://www.arabteam2000.com/forums/index.php?showtopic=69029

قمت بنشره ولم أجد له إجابه

هل من مجيب في هذا التحدي الكبير

هذا اللنك يؤدي للصفحة الرئيسية

اسف أخي seaprince على تأخري في الرد لكن حقيقة انا لا أعرف طريقة محددة لعمل ما تريد

السلام عليكم

جميل هذا الموضوع والله أخى ANSI لكن لماذا لا يتفاعل الأعضاء معنا أكثر من ذلك ؟ّ

ولماذا لم يثبت ؟؟

على العموم أرجو ان يحدث ذلك :rolleyes:

بالمناسبه كان عندى سؤال و مافى أى احد دلنى على اجابه له وأرجو ان يستطيع اى شخص ان يجد اجابته :s

وهو كيف اشغل ملف تنفيذى من الرام مباشرة ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

وشكرا للجميع

أخي العزيز ال MSAIF أحسن لغة للتعامل مع الرام هي الأسمبلي ثم السي او السي ++

----

حتى لا ينتهي الموضوع و يتوه بين صفحات المنتدى اليكم سؤال جد جد بسيط

لدينا متغيرين من نوع Integer

X=15

Y=1524

نريد ان نحول محتوى المتغير X الى Y و محتوى Y الى X دون اللجوء الى أي متغير آخر و لا أي أداة يعني استعمال المتغيرين فقط

:)

سهلة جدا

x=15
y=1524

x=1524
y=15

:)