الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مسح الحرف الأخير في التيكست بوكس

بدأه Abboodd في 7 ديسمبر 2008 · 3 رد · 533 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

إخواني الأعزاء، أحاول صنع آلة حاسبة بسيطة، لكن هناك مشكلة، وهي زر BackSpace حيث إني جربت وسائل عديدة للقيام بمسح الرقم الأخير، لكن دون فائدة، والمشكلة أنه يتعامل مع محتويات التيكست بوكس على أنها أرقام، حتى مع استعمال دالة Str وقد جربت الكود التالي ونجح مع الأعداد الصحيحة، لكنه لا يمكن أن ينجح مع الأعداد العشرية، فما الحل؟

TxtMain = TxtMain - Right(TxtMain , 1)
TxtMain = TxtMain / 10

حيث يقوم الكود السابق بتحويل آخر رقم إلى 0 ومن ثم يقسم العدد على عشرة، لكنه كود متخلف ولا يعمل مع الأعداد العشرية، فما الحل؟

وشكراً لكم

تم تعديل هذه المشاركة بواسطة Abboodd في 7 ديسمبر 2008 في 15:19

هذه الجملة خاطئة  :wacko: 


#2 
		if len(textbox1.Text)>0 then
			textBox1.Text  = Mid(textBox1.Text , 1,len(textbox1.text)-1)
		End if
#3

شكراً لك أخ Bashir001 بصراحة أنا لم أكن أعرف الدالة Mid وبعد مثالك هذا بحثت عنها وتعرفت عليها. وجزاك الله كل خير

هذه الجملة خاطئة  :wacko: 


#4

وهناك طريقة أخرى لم تكن ببالي، وهي شبيهة بطريقتك، وقداكتشفتها منذ دقائق:

TxtMain = Left(TxtMain , Len(TxtMain) - 1)

هذه الجملة خاطئة  :wacko: 


مواضيع مشابهة