ابو جودي قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 (معدل) السلام عليكم ورحمة الله تعالى وبركاته اساتذتىالافاضل فضلا وليس امرا هل هناك طريقة تجعل المستخدم يتحكم فى شكل الارقام دون الاقتراب من اعداد الويندوز بعنى ان اراد المستخدم أن تظهر بالعربى او بالانجليزى له حرية الاختيار ؟وللعلم قمت بتجربة تلك الطريقة ولكن صادفت انها اظهرت الارقام بالعربى على نسخة وعلى نسخة اخرى لم تعمل Properties >> Format >> Numeral Shapes = National هل من حل كود او وحده نمطية يمكن لها التحكم فى شكل الارقام ؟ تم تعديل مارس 14, 2016 بواسطه ابا جودى تصحيح أخطاء إملائية
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 (معدل) وجدت هذا فى موقع مايكروسفت اثناء البحث على الانترنتhttps://msdn.microsoft.com/en-us/library/office/ff836569.aspx وفهمت منه والله اعلى واعلم قد اكون أخطات الفهم انه ممكن التحكم فى شكل الارقام عن طريق هذا الكود Public Sub ChangeNumeralShapes(ctl As Control) ctl.NumeralShapes = 2 End Sub طبعا قمت بتغير الرقم 0 إلى الرقم 2 فى الكود تبعا لهذا الجدول Setting Visual Basic Description System 0 Numeral shapes determined by the Numeral Shapes system setting. Arabic 1 Arabic digit shapes will be used to display and print numerals. National 2 National digit shapes will be used to display and print numerals. Context 3 Numeral shapes determined by Unicode context rules for adjacent text. كيف يمكن تطبيق هذا الكود حاولت إستخدامه ولكن لم أوفق تم تعديل مارس 14, 2016 بواسطه ابا جودى
عبدالرحمن هاشم قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 السلام عليكم ورحمة الله أخي الفاضل محمد مشاركة بجانب طلبك لعلها تفيد.. ضعه في حدث عند تحميل النموذج على أن يكون nametextbox هو اسم الحقل الذي تريد أن يظهر فيه الرقم بالعربي Me.NameTextBox.NumeralShapes = 2 1
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 الان, عبدالرحمن هاشم said: السلام عليكم ورحمة الله أخي الفاضل محمد مشاركة بجانب طلبك لعلها تفيد.. ضعه في حدث عند تحميل النموذج على أن يكون nametextbox هو اسم الحقل الذي تريد أن يظهر فيه الرقم بالعربي Me.NameTextBox.NumeralShapes = 2 طيب هو حضرتك جربتها ونفعت مع حضرتك ؟
عبدالرحمن هاشم قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 8 دقائق مضت, ابا جودى said: طيب هو حضرتك جربتها ونفعت مع حضرتك ؟ نعم جربتها وأعددت لك مثال لتجربه تختار فيه طريقة عرض الأرقام جرب المرفق ووافني بالنتيجة Test Number Ar-En 2003.rar 2
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 الان, عبدالرحمن هاشم said: نعم جربتها وأعددت لك مثال لتجربه تختار فيه طريقة عرض الأرقام جرب المرفق ووافني بالنتيجة Test Number Ar-En 2003.rar اعتذر جدا جدا جدا جدا لتعب حضرتك معايا لكن اظنها لا تعمل مع اللإصدار 2010
jjafferr قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 السلام عليكم في الرابط التالي ، فيه شرح عن الموضوع: http://ryanglynn.com/2010/12/06/arabic-keyboard-layout-finished-programming/ وفيه كيبورد عربي بـ 103 ازرار ، والظاهر انه يعطي النتيجة الصحيحة: http://ju.chearon.net/up/junkyard/61574_arabic.zip جعفر
عبدالرحمن هاشم قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 If chLang = 2 Then Me.[NoCust].NumeralShapes = 3 Me.[IDCust].NumeralShapes = 3 Me.[Tel].NumeralShapes = 3 Me.[Mob].NumeralShapes = 3 Else Me.[NoCust].NumeralShapes = 1 Me.[IDCust].NumeralShapes = 1 Me.[Tel].NumeralShapes = 1 Me.[Mob].NumeralShapes = 1 End If أظن أنه لا علاقة له بالإصدار وأيضا لأن الإصدار لدي نفس إصدارك 2010 ويبدو أن السبب هو أن الإصدار لديك إنجليزي وليس عربي على العموم حاول أن تبدل الرقم إلى 3
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 (معدل) الان, عبدالرحمن هاشم said: If chLang = 2 Then Me.[NoCust].NumeralShapes = 3 Me.[IDCust].NumeralShapes = 3 Me.[Tel].NumeralShapes = 3 Me.[Mob].NumeralShapes = 3 Else Me.[NoCust].NumeralShapes = 1 Me.[IDCust].NumeralShapes = 1 Me.[Tel].NumeralShapes = 1 Me.[Mob].NumeralShapes = 1 End If أظن أنه لا علاقة له بالإصدار وأيضا لأن الإصدار لدي نفس إصدارك 2010 ويبدو أن السبب هو أن الإصدار لديك إنجليزي وليس عربي على العموم حاول أن تبدل الرقم إلى 3 جربت دون جدوى كذلك ولا اعرف السبب جزاكم الله خيرا استاذ عبد الرحمن الان, jjafferr said: السلام عليكم في الرابط التالي ، فيه شرح عن الموضوع: http://ryanglynn.com/2010/12/06/arabic-keyboard-layout-finished-programming/ وفيه كيبورد عربي بـ 103 ازرار ، والظاهر انه يعطي النتيجة الصحيحة: http://ju.chearon.net/up/junkyard/61574_arabic.zip جعفر اعتذر جدا لتعب حضرتك معايا استاذى الحبيب سوف اطلع على الروابط جزاكم الله خيرا تم تعديل مارس 14, 2016 بواسطه ابا جودى
سعيد صواب قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 حياكم الله اخواني مشاركة معكم .. انا جربت الكود بالطريقة التالية على مربع نص a في النموذج ويندوز 7 عربي اكسس 2007 من انجليزي لعربي Me.a.NumeralShapes = 2 من عربي لإنجليزي Me.a.NumeralShapes = 1 بالتوفيق للجميع
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 الان, jjafferr said: السلام عليكم في الرابط التالي ، فيه شرح عن الموضوع: http://ryanglynn.com/2010/12/06/arabic-keyboard-layout-finished-programming/ وفيه كيبورد عربي بـ 103 ازرار ، والظاهر انه يعطي النتيجة الصحيحة: http://ju.chearon.net/up/junkyard/61574_arabic.zip جعفر استاذى الحبيب انا نزلت المرفق وقمت بعمل اعداد له وقمت بالتجربة وكانت تلك هى الملاحظات - اولا يجب ان يكون الحقل نصى لو رقمى لا يقبل - يجب استخدام مجموعة الأرقام من الكيبورد فوق الحروف كما بالشكل التالى أما عند محاولة استخدام الأرقام من الجهة اليسرى " Num Lock" للاسف تكتب انجليزى مرة أخرى الان, سعيد صواب said: حياكم الله اخواني مشاركة معكم .. انا جربت الكود بالطريقة التالية على مربع نص a في النموذج ويندوز 7 عربي اكسس 2007 من انجليزي لعربي Me.a.NumeralShapes = 2 من عربي لإنجليزي Me.a.NumeralShapes = 1 بالتوفيق للجميع انا جربت على ويندوز 10 انجليزى اوفيس 2010 انجليزى هذه الطريقة لم تعمل عندى
jjafferr قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 33 دقائق مضت, عبدالرحمن هاشم said: If chLang = 2 Then Me.[NoCust].NumeralShapes = 3 Me.[IDCust].NumeralShapes = 3 Me.[Tel].NumeralShapes = 3 Me.[Mob].NumeralShapes = 3 Else Me.[NoCust].NumeralShapes = 1 Me.[IDCust].NumeralShapes = 1 Me.[Tel].NumeralShapes = 1 Me.[Mob].NumeralShapes = 1 End If أظن أنه لا علاقة له بالإصدار وأيضا لأن الإصدار لدي نفس إصدارك 2010 ويبدو أن السبب هو أن الإصدار لديك إنجليزي وليس عربي على العموم حاول أن تبدل الرقم إلى 3 انا الاصدار عندي انجليزي ، وهذا لا يهم ، الذي يهم ان نكون قد اخترنا الارقام العربية من اعدادات الوندوز ، ثم يشتغل الكود اعلاه ، وقد جربته انا : . . . جعفر 2
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 (معدل) الان, jjafferr said: انا الاصدار عندي انجليزي ، وهذا لا يهم ، الذي يهم ان نكون قد اخترنا الارقام العربية من اعدادات الوندوز ، ثم يشتغل الكود اعلاه ، وقد جربته انا : . . . جعفر فعلا استااااااااااااااااااااااااااااااااااااذ جعفر تمااااااااااااااااااااااااااااااااااااام مرفق الاستاذ عبد الرحمن هاشم الان تحولت الارقام فيه من الانجليزية الى العربية هههههههههههههه تلك النتيجة رائعة ولا بأس به بالرغم من اننى كنت لا اريد اى تدخل من المستخدم فى الدخول الى الاعدادات او تغير شئ منها ولكن على كل حال كل الشكر استاذ جعفر استاذ عبد الرحمن استاذ سعيد اسأل الله تعالى ان يجزيكم خيرا وان يزيدكم علما وان ينفعكم بما علمكم به ان شاء الله غفر الله لكم ولوالديكم وبارك لكم فى اولادكم تم تعديل مارس 14, 2016 بواسطه ابا جودى
jjafferr قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 ولكن ... اذا عملت الارقام باللغة العربية في اعدادات الوندوز ، فبدل ان تستخدم كود الاستاذ عبدالرحمن ، تستطيع من اعدادات كل حقل ان تتحكم في نوعية ارقام الحقل ، بحيث ممكن حقل تكون الارقام فيه انجليزي ، وحقل الارقام بالعربي جعفر
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 (معدل) الان, jjafferr said: ولكن ... اذا عملت الارقام باللغة العربية في اعدادات الوندوز ، فبدل ان تستخدم كود الاستاذ عبدالرحمن ، تستطيع من اعدادات كل حقل ان تتحكم في نوعية ارقام الحقل ، بحيث ممكن حقل تكون الارقام فيه انجليزي ، وحقل الارقام بالعربي جعفر عن طربق Properties >> Format >> Numeral Shapes = National ؟ لا جربتها ولم تنفع تم تعديل مارس 14, 2016 بواسطه ابا جودى
jjafferr قام بنشر مارس 15, 2016 قام بنشر مارس 15, 2016 9 ساعات مضت, ابا جودى said: عن طربق Properties >> Format >> Numeral Shapes = National ؟ لا جربتها ولم تنفع لاحظ امر الكود ، هو نفسه الذي انت ذكرته: Me.[Mob].NumeralShapes = 1 وطبعا National مش راح ينفع ، شوف رقم واسم العربية من جدولك (وجرب بقية الاخيارات كذلك): 11 ساعات مضت, ابا جودى said: Setting Visual Basic Description System 0 Numeral shapes determined by the Numeral Shapes system setting. Arabic 1 Arabic digit shapes will be used to display and print numerals. National 2 National digit shapes will be used to display and print numerals. Context 3 Numeral shapes determined by Unicode context rules for adjacent text. 9 ساعات مضت, jjafferr said: تستطيع من اعدادات كل حقل ان تتحكم في نوعية ارقام الحقل ، بحيث ممكن حقل تكون الارقام فيه انجليزي ، وحقل الارقام بالعربي بس في شغله لازم تعرفها ، وهي: لاحظت في بعض كمبيوترات المستخدمين ، الانتقال من حقل به هذا التنسيق الى حقل آخر يكون بطئ ، ولكن بعد تحديث الاكسس بتحديثات مايكروسوفت ، اصبحت تمام جعفر
عبدالرحمن هاشم قام بنشر مارس 15, 2016 قام بنشر مارس 15, 2016 أظن أن الأوفيس يعتبر الأرقام العربية هي الأرقام الإنجليزية أما المعروف لدينا أنه عربية فهو في الأصل أرقام هندية
ابو جودي قام بنشر مارس 15, 2016 الكاتب قام بنشر مارس 15, 2016 9 ساعات مضت, jjafferr said: لاحظ امر الكود ، هو نفسه الذي انت ذكرته: Me.[Mob].NumeralShapes = 1 وطبعا National مش راح ينفع ، شوف رقم واسم العربية من جدولك (وجرب بقية الاخيارات كذلك): بس في شغله لازم تعرفها ، وهي: لاحظت في بعض كمبيوترات المستخدمين ، الانتقال من حقل به هذا التنسيق الى حقل آخر يكون بطئ ، ولكن بعد تحديث الاكسس بتحديثات مايكروسوفت ، اصبحت تمام جعفر شكرا استاذى الحبيب جزاكم الله خيرا
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.