مشكلة ظهور الشاشة الرمادية هل من حل

[وسيم الحمادة]

ارجو المساعدة في طريقة تغيير اسم البرنامج بعد التصغير

وشكرا

ابو يزن

[jjafferr]

اخوي أبو يزن جرب:

AppDesigner="أبو يزن"

بدل السطر اللي يبدا بـAppDesigner

جعفر

[أبا عمر]

 

السلام عليكم أخوي أبا عمر 

 

حيله جميلة باستخدام SetWindowPos 

إحنا بسبب طريقة السؤال كنا نحاول ان نخفي شاشة الاكسس ، بس انت ماشاء الله عليك ، نظرت للموضوع من خارج العلبة ، وحصلت على مفهوم أكبر وطرق اخرى للحل ، هنيئا لك هذه القدرة 

وللعلم ، راعي الغنم في مشاركته رقم 84 لمح لهذا الشي نظريا ، ولم يطبقه برمجيا ، وانت سبقته ففيك الخير 

 

جزاك الله أخي جعفر هذا من فضل الله وحده لا شريك له

وهو قطرة في بحر علمكم وفضل ربي عليكم عظيم.

[أبا عمر]

وبخصوص مشاركة أخي الحبيب راعي الغنم لم أطلع عليها ولم أطلع على الموضوع كله وهذا يدل على أن الأفكار تتلاقى وذلك لأن المتفضل بها علينا هو _الله_ الواحد الأحد

[أبو عبير 2005]

إخواني أعتذر لمن لم أشكره ونسيت أن أذكر أسمه من شدة فرحي

أخي الغالي جعفر والأخ الغالي عبدالرحمن هاشم وإلى كل من نسيت شكره

والله لم أنسى الدعاء لكم في هذا اليوم الجمعة .

أسأل الله أن يستجيب دعوتي لكم .

تقبلوا فائق تقديري واحترامي .

[jjafferr]

عزيز وغالي أخوي أبو عبير 

 

ولو إحنا في الكثير من الاوقات مقصرين 

 

 

جعفر

[jjafferr]

 

اخوي أبو يزن جرب:
AppDesigner="أبو يزن"

بدل السطر اللي يبدا بـAppDesigner

جعفر

 

أخي ابو يزن

 

طرشت لك الرسالة السابقة من هاتفي ، فما فيه خاصية المنتدى العادي ، لذلك طلعت الكتابة بالمقلوب 

 

المفروض ان المبرمج يكون يكتب الاسم وبطريقة مباشرة ، مثل: أبو يزن ، بدل ما يكتب أ ب و  ي ز ن ، او يكتب ارقام الحروف (القائمة التي وضعها اخينا أبا عمر ascii table ، وانظر في الاسفل) ،

مثل:

AppDesigner="أبو يزن" 

ولكن اذا اراد المبرمج ان يتحاشى الحروف العربية في الكود (قد يكون السبب لأن بعض اعدادات الكمبيوترات تحولها الى علامات استفهام ؟؟؟؟ ) ، فانه سيضطر الى استعمال ارقام الحروف !

مثل:

لاحظ في الاكسس ، لما تريد تعمل زر لنموذج اسمه بالعربي (مثل أبو يزن) ، فالاكسس يعمل هذا الكود:

docmd.openform chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

بدل عن الامر المتعارف:

docmd.openform "أبو يزن"

'-

'-

 

والان وبعد هذه المقدمة

 

عملت لك كود صغير يغير الاسم من حروف الى ارقام:

a = "أبو يزن"
b = ""
c = ""
For I = 1 To Len(a)
   c = c & Mid(a, I, 1) & "=" & Asc(Mid(a, I, 1)) & " , "
   b = b & "chr(" & Asc(Mid(a, I, 1)) & ") & "
Next I
c = Mid(c, 1, Len(c) - 3)
b = Mid(b, 1, Len(b) - 3)
Debug.Print c
Debug.Print b

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

أ=195 , ب=200 , و=230 ,  =32 , ي=237 , ز=210 , ن=228
chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

يعني بدل ما تكتب اسمك بهذه الطريقة:

AppDesigner="أبو يزن" 

اكتبه:

AppDesigner=chr(195) & chr(200) & chr(230) & chr(32) & chr(237) & chr(210) & chr(228)

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

http://www.ascii.ca/cp864.htm

 

 

جعفر

[وسيم الحمادة]

الله يجزاكم كل خير بجرب واخبركم

[وسيم الحمادة]

تمام اخوي جعفر الله يجزاك كل خير تمام وشكرا لك 

فاضل لي اخر طلب طريقة تغيير الصورة كمان اذا سمحت ووفقك الله ياغالي

[وسيم الحمادة]

بصراحة لم اجدها كود الصورة بين الاكواد

ولكن وضعت الصورة الجديدة وعملت اسمها زي اسم الصورة القديمة ونجحت

ولكن لم اعرف من اين تتغير الصورة والله يجزاكم كل خير

تم تغيير الصورة بنجااااح

[jjafferr]

افتح الكود ، وابحث عن: bmp

وسترى الاسم 

 

 

الباحث جعفر

[وسيم الحمادة]

ههههه ماشي ياعم الباحث

شكرا حبيبي

[ahmad_mustafa]

السلام عليكم 

مشكلة ظهور الشاشة الرمادية  لقد وجدتم حل للمشكلة لكنكم لم توضحو ما هو الحل الرجاء افادتي لاني اعاني من نفس المشكلة 

وبارك الله فيكم

 

تم تعديل أغسطس 21, 2017 بواسطه ahmus

[عبق الرياحيين]

في ٢١‏/٨‏/٢٠١٧ at 22:56, ahmus said:

السلام عليكم 

مشكلة ظهور الشاشة الرمادية  لقد وجدتم حل للمشكلة لكنكم لم توضحو ما هو الحل الرجاء افادتي لاني اعاني من نفس المشكلة 

وبارك الله فيكم

 

الحل فى المشاركه دى

 

[ابو ياسين المشولي]

كل عام والجميع بخير

كيف ممكن ان نصغر اكثر من نموذج ونستعيدها بنفس الوقت

اقصد بجوار الساعه

[ابو ياسين المشولي]

الاخ jjafferr

اذا فهمت قصدي ممكن تشاركني

اريد تصغير 2 نموذج مع بعض

وعند التكبير يرجعو مع بعض

اكون شاكر لك

هو الان انا اضفضت هذا ولكنه يعطيني رمزين عند المهام

startForm
MinimizeToTry Me.hwnd
MinimizeToTry Forms!login.hwnd
SetFormState 0

 

[jjafferr]

وعليكم السلام اخوي ابو ياسين

 

لو تابعت الموضوع بشكل دقيق ، بتلقى ان انا لم ارد على السؤال ، لذا يمكن للشباب اصحاب الاجابه ان يردوا عليك

 

جعفر

[ابو ياسين المشولي]

منذ ساعه, jjafferr said:

وعليكم السلام اخوي ابو ياسين

 

لو تابعت الموضوع بشكل دقيق ، بتلقى ان انا لم ارد على السؤال ، لذا يمكن للشباب اصحاب الاجابه ان يردوا عليك

 

جعفر

تسلم اخي جعفر بارك الله فيك

طيب ممكن نتشرح لي هذا الكود وهو من مشاركتك في هذا الموضوع

Dim WshShell, strCurDir
Set WshShell = CreateObject("WScript.Shell")
strCurDir    = WshShell.CurrentDirectory
WshShell.Run strCurDir & "\Nasystry.mdb", 2
Set WshShell = Nothing