وسيم الحمادة قام بنشر مايو 1, 2015 مشاركة قام بنشر مايو 1, 2015 ارجو المساعدة في طريقة تغيير اسم البرنامج بعد التصغير وشكرا ابو يزن رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 1, 2015 مشاركة قام بنشر مايو 1, 2015 اخوي أبو يزن جرب: AppDesigner="أبو يزن" بدل السطر اللي يبدا بـAppDesigner جعفر رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر مايو 1, 2015 مشاركة قام بنشر مايو 1, 2015 السلام عليكم أخوي أبا عمر حيله جميلة باستخدام SetWindowPos إحنا بسبب طريقة السؤال كنا نحاول ان نخفي شاشة الاكسس ، بس انت ماشاء الله عليك ، نظرت للموضوع من خارج العلبة ، وحصلت على مفهوم أكبر وطرق اخرى للحل ، هنيئا لك هذه القدرة وللعلم ، راعي الغنم في مشاركته رقم 84 لمح لهذا الشي نظريا ، ولم يطبقه برمجيا ، وانت سبقته ففيك الخير جزاك الله أخي جعفر هذا من فضل الله وحده لا شريك له وهو قطرة في بحر علمكم وفضل ربي عليكم عظيم. رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر مايو 1, 2015 مشاركة قام بنشر مايو 1, 2015 وبخصوص مشاركة أخي الحبيب راعي الغنم لم أطلع عليها ولم أطلع على الموضوع كله وهذا يدل على أن الأفكار تتلاقى وذلك لأن المتفضل بها علينا هو _الله_ الواحد الأحد رابط هذا التعليق شارك More sharing options...
أبو عبير 2005 قام بنشر مايو 1, 2015 الكاتب مشاركة قام بنشر مايو 1, 2015 إخواني أعتذر لمن لم أشكره ونسيت أن أذكر أسمه من شدة فرحي أخي الغالي جعفر والأخ الغالي عبدالرحمن هاشم وإلى كل من نسيت شكره والله لم أنسى الدعاء لكم في هذا اليوم الجمعة . أسأل الله أن يستجيب دعوتي لكم . تقبلوا فائق تقديري واحترامي . رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 1, 2015 مشاركة قام بنشر مايو 1, 2015 عزيز وغالي أخوي أبو عبير ولو إحنا في الكثير من الاوقات مقصرين جعفر رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 1, 2015 مشاركة قام بنشر مايو 1, 2015 اخوي أبو يزن جرب: 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 جعفر رابط هذا التعليق شارك More sharing options...
وسيم الحمادة قام بنشر مايو 1, 2015 مشاركة قام بنشر مايو 1, 2015 الله يجزاكم كل خير بجرب واخبركم رابط هذا التعليق شارك More sharing options...
وسيم الحمادة قام بنشر مايو 2, 2015 مشاركة قام بنشر مايو 2, 2015 تمام اخوي جعفر الله يجزاك كل خير تمام وشكرا لك فاضل لي اخر طلب طريقة تغيير الصورة كمان اذا سمحت ووفقك الله ياغالي رابط هذا التعليق شارك More sharing options...
وسيم الحمادة قام بنشر مايو 2, 2015 مشاركة قام بنشر مايو 2, 2015 بصراحة لم اجدها كود الصورة بين الاكواد ولكن وضعت الصورة الجديدة وعملت اسمها زي اسم الصورة القديمة ونجحت ولكن لم اعرف من اين تتغير الصورة والله يجزاكم كل خير تم تغيير الصورة بنجااااح رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر مايو 2, 2015 مشاركة قام بنشر مايو 2, 2015 افتح الكود ، وابحث عن: bmp وسترى الاسم الباحث جعفر رابط هذا التعليق شارك More sharing options...
وسيم الحمادة قام بنشر مايو 2, 2015 مشاركة قام بنشر مايو 2, 2015 ههههه ماشي ياعم الباحث شكرا حبيبي رابط هذا التعليق شارك More sharing options...
ahmad_mustafa قام بنشر أغسطس 21, 2017 مشاركة قام بنشر أغسطس 21, 2017 (معدل) السلام عليكم مشكلة ظهور الشاشة الرمادية لقد وجدتم حل للمشكلة لكنكم لم توضحو ما هو الحل الرجاء افادتي لاني اعاني من نفس المشكلة وبارك الله فيكم تم تعديل أغسطس 21, 2017 بواسطه ahmus رابط هذا التعليق شارك More sharing options...
عبق الرياحيين قام بنشر أغسطس 24, 2017 مشاركة قام بنشر أغسطس 24, 2017 في ٢١/٨/٢٠١٧ at 22:56, ahmus said: السلام عليكم مشكلة ظهور الشاشة الرمادية لقد وجدتم حل للمشكلة لكنكم لم توضحو ما هو الحل الرجاء افادتي لاني اعاني من نفس المشكلة وبارك الله فيكم الحل فى المشاركه دى 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 24, 2018 مشاركة قام بنشر أغسطس 24, 2018 كل عام والجميع بخير كيف ممكن ان نصغر اكثر من نموذج ونستعيدها بنفس الوقت اقصد بجوار الساعه رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 28, 2018 مشاركة قام بنشر أغسطس 28, 2018 الاخ jjafferr اذا فهمت قصدي ممكن تشاركني اريد تصغير 2 نموذج مع بعض وعند التكبير يرجعو مع بعض اكون شاكر لك هو الان انا اضفضت هذا ولكنه يعطيني رمزين عند المهام startForm MinimizeToTry Me.hwnd MinimizeToTry Forms!login.hwnd SetFormState 0 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أغسطس 28, 2018 مشاركة قام بنشر أغسطس 28, 2018 وعليكم السلام اخوي ابو ياسين لو تابعت الموضوع بشكل دقيق ، بتلقى ان انا لم ارد على السؤال ، لذا يمكن للشباب اصحاب الاجابه ان يردوا عليك جعفر رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أغسطس 28, 2018 مشاركة قام بنشر أغسطس 28, 2018 منذ ساعه, jjafferr said: وعليكم السلام اخوي ابو ياسين لو تابعت الموضوع بشكل دقيق ، بتلقى ان انا لم ارد على السؤال ، لذا يمكن للشباب اصحاب الاجابه ان يردوا عليك جعفر تسلم اخي جعفر بارك الله فيك طيب ممكن نتشرح لي هذا الكود وهو من مشاركتك في هذا الموضوع Dim WshShell, strCurDir Set WshShell = CreateObject("WScript.Shell") strCurDir = WshShell.CurrentDirectory WshShell.Run strCurDir & "\Nasystry.mdb", 2 Set WshShell = Nothing رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان