ابو جودي قام بنشر مارس 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 في 14/3/2016 at 19:40, عبدالرحمن هاشم said: السلام عليكم ورحمة الله أخي الفاضل محمد مشاركة بجانب طلبك لعلها تفيد.. ضعه في حدث عند تحميل النموذج على أن يكون nametextbox هو اسم الحقل الذي تريد أن يظهر فيه الرقم بالعربي Me.NameTextBox.NumeralShapes = 2 Expand طيب هو حضرتك جربتها ونفعت مع حضرتك ؟
عبدالرحمن هاشم قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 في 14/3/2016 at 19:50, ابا جودى said: طيب هو حضرتك جربتها ونفعت مع حضرتك ؟ Expand نعم جربتها وأعددت لك مثال لتجربه تختار فيه طريقة عرض الأرقام جرب المرفق ووافني بالنتيجة Test Number Ar-En 2003.rar 2
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 في 14/3/2016 at 20:00, عبدالرحمن هاشم said: نعم جربتها وأعددت لك مثال لتجربه تختار فيه طريقة عرض الأرقام جرب المرفق ووافني بالنتيجة Test Number Ar-En 2003.rar Expand اعتذر جدا جدا جدا جدا لتعب حضرتك معايا لكن اظنها لا تعمل مع اللإصدار 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 (معدل) في 14/3/2016 at 20:06, عبدالرحمن هاشم 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 Expand جربت دون جدوى كذلك ولا اعرف السبب جزاكم الله خيرا استاذ عبد الرحمن في 14/3/2016 at 20:04, jjafferr said: السلام عليكم في الرابط التالي ، فيه شرح عن الموضوع: http://ryanglynn.com/2010/12/06/arabic-keyboard-layout-finished-programming/ وفيه كيبورد عربي بـ 103 ازرار ، والظاهر انه يعطي النتيجة الصحيحة: http://ju.chearon.net/up/junkyard/61574_arabic.zip جعفر Expand اعتذر جدا لتعب حضرتك معايا استاذى الحبيب سوف اطلع على الروابط جزاكم الله خيرا تم تعديل مارس 14, 2016 بواسطه ابا جودى
سعيد صواب قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 حياكم الله اخواني مشاركة معكم .. انا جربت الكود بالطريقة التالية على مربع نص a في النموذج ويندوز 7 عربي اكسس 2007 من انجليزي لعربي Me.a.NumeralShapes = 2 من عربي لإنجليزي Me.a.NumeralShapes = 1 بالتوفيق للجميع
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 في 14/3/2016 at 20:04, jjafferr said: السلام عليكم في الرابط التالي ، فيه شرح عن الموضوع: http://ryanglynn.com/2010/12/06/arabic-keyboard-layout-finished-programming/ وفيه كيبورد عربي بـ 103 ازرار ، والظاهر انه يعطي النتيجة الصحيحة: http://ju.chearon.net/up/junkyard/61574_arabic.zip جعفر Expand استاذى الحبيب انا نزلت المرفق وقمت بعمل اعداد له وقمت بالتجربة وكانت تلك هى الملاحظات - اولا يجب ان يكون الحقل نصى لو رقمى لا يقبل - يجب استخدام مجموعة الأرقام من الكيبورد فوق الحروف كما بالشكل التالى أما عند محاولة استخدام الأرقام من الجهة اليسرى " Num Lock" للاسف تكتب انجليزى مرة أخرى في 14/3/2016 at 20:31, سعيد صواب said: حياكم الله اخواني مشاركة معكم .. انا جربت الكود بالطريقة التالية على مربع نص a في النموذج ويندوز 7 عربي اكسس 2007 من انجليزي لعربي Me.a.NumeralShapes = 2 من عربي لإنجليزي Me.a.NumeralShapes = 1 بالتوفيق للجميع Expand انا جربت على ويندوز 10 انجليزى اوفيس 2010 انجليزى هذه الطريقة لم تعمل عندى
jjafferr قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 في 14/3/2016 at 20:06, عبدالرحمن هاشم 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 Expand انا الاصدار عندي انجليزي ، وهذا لا يهم ، الذي يهم ان نكون قد اخترنا الارقام العربية من اعدادات الوندوز ، ثم يشتغل الكود اعلاه ، وقد جربته انا : . . . جعفر 2
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 (معدل) في 14/3/2016 at 20:45, jjafferr said: انا الاصدار عندي انجليزي ، وهذا لا يهم ، الذي يهم ان نكون قد اخترنا الارقام العربية من اعدادات الوندوز ، ثم يشتغل الكود اعلاه ، وقد جربته انا : . . . جعفر Expand فعلا استااااااااااااااااااااااااااااااااااااذ جعفر تمااااااااااااااااااااااااااااااااااااام مرفق الاستاذ عبد الرحمن هاشم الان تحولت الارقام فيه من الانجليزية الى العربية هههههههههههههه تلك النتيجة رائعة ولا بأس به بالرغم من اننى كنت لا اريد اى تدخل من المستخدم فى الدخول الى الاعدادات او تغير شئ منها ولكن على كل حال كل الشكر استاذ جعفر استاذ عبد الرحمن استاذ سعيد اسأل الله تعالى ان يجزيكم خيرا وان يزيدكم علما وان ينفعكم بما علمكم به ان شاء الله غفر الله لكم ولوالديكم وبارك لكم فى اولادكم تم تعديل مارس 14, 2016 بواسطه ابا جودى
jjafferr قام بنشر مارس 14, 2016 قام بنشر مارس 14, 2016 ولكن ... اذا عملت الارقام باللغة العربية في اعدادات الوندوز ، فبدل ان تستخدم كود الاستاذ عبدالرحمن ، تستطيع من اعدادات كل حقل ان تتحكم في نوعية ارقام الحقل ، بحيث ممكن حقل تكون الارقام فيه انجليزي ، وحقل الارقام بالعربي جعفر
ابو جودي قام بنشر مارس 14, 2016 الكاتب قام بنشر مارس 14, 2016 (معدل) في 14/3/2016 at 20:57, jjafferr said: ولكن ... اذا عملت الارقام باللغة العربية في اعدادات الوندوز ، فبدل ان تستخدم كود الاستاذ عبدالرحمن ، تستطيع من اعدادات كل حقل ان تتحكم في نوعية ارقام الحقل ، بحيث ممكن حقل تكون الارقام فيه انجليزي ، وحقل الارقام بالعربي جعفر Expand عن طربق Properties >> Format >> Numeral Shapes = National ؟ لا جربتها ولم تنفع تم تعديل مارس 14, 2016 بواسطه ابا جودى
jjafferr قام بنشر مارس 15, 2016 قام بنشر مارس 15, 2016 في 14/3/2016 at 20:58, ابا جودى said: عن طربق Properties >> Format >> Numeral Shapes = National ؟ لا جربتها ولم تنفع Expand لاحظ امر الكود ، هو نفسه الذي انت ذكرته: Me.[Mob].NumeralShapes = 1 وطبعا National مش راح ينفع ، شوف رقم واسم العربية من جدولك (وجرب بقية الاخيارات كذلك): في 14/3/2016 at 19:29, ابا جودى 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. Expand في 14/3/2016 at 20:57, jjafferr said: تستطيع من اعدادات كل حقل ان تتحكم في نوعية ارقام الحقل ، بحيث ممكن حقل تكون الارقام فيه انجليزي ، وحقل الارقام بالعربي Expand بس في شغله لازم تعرفها ، وهي: لاحظت في بعض كمبيوترات المستخدمين ، الانتقال من حقل به هذا التنسيق الى حقل آخر يكون بطئ ، ولكن بعد تحديث الاكسس بتحديثات مايكروسوفت ، اصبحت تمام جعفر
عبدالرحمن هاشم قام بنشر مارس 15, 2016 قام بنشر مارس 15, 2016 أظن أن الأوفيس يعتبر الأرقام العربية هي الأرقام الإنجليزية أما المعروف لدينا أنه عربية فهو في الأصل أرقام هندية
ابو جودي قام بنشر مارس 15, 2016 الكاتب قام بنشر مارس 15, 2016 في 15/3/2016 at 06:46, jjafferr said: لاحظ امر الكود ، هو نفسه الذي انت ذكرته: Me.[Mob].NumeralShapes = 1 وطبعا National مش راح ينفع ، شوف رقم واسم العربية من جدولك (وجرب بقية الاخيارات كذلك): بس في شغله لازم تعرفها ، وهي: لاحظت في بعض كمبيوترات المستخدمين ، الانتقال من حقل به هذا التنسيق الى حقل آخر يكون بطئ ، ولكن بعد تحديث الاكسس بتحديثات مايكروسوفت ، اصبحت تمام جعفر Expand شكرا استاذى الحبيب جزاكم الله خيرا
.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.